在R中按降序对堆叠的条形图进行排序

Question

我正在根据2x2表格创建一个堆积的条形图：

fuel.type <- c('diesel', 'gas', 'diesel', 'gas', 'diesel', 'gas', 'gas', 'gas', 'gas')   
make <- c('bmw', 'wv', 'audi', 'bmw', 'audi', 'audi', 'wv', 'wv', 'wv')    
table1 <- table(fuel.type, make)  
barplot(table1, legend = row.names(table1))

我得到下图：

我如何获得相同的情节，但是以降序排序？

Answer 1

您可以按照以下方式对数据进行排序，然后进行绘制：

# here you define a table (your) that is sorted by the total of the columns
table1 <- table1[,order(colSums(-table1))] 
barplot(table1, legend = row.names(table1))