library(plotly) USPersonalExpenditure <- data.frame("Categorie"=rownames(USPersonalExpenditure), USPersonalExpenditure) data <- USPersonalExpenditure[,c('Categorie', 'X1960')] p <- plot_ly(data, labels = ~Categorie, values = ~X1960, type = 'pie',sort = FALSE, textinfo = 'label+percent...