ggplot条形图

1. 降序排列的条形图

library("ggplot2")

p <- ggplot(mtcars, aes(reorder(row.names(mtcars), -qsec), qsec)) # 载入数据；用reorder按qsec的值对车辆的名字进行排序，-qsec表示降序排列；
p <- p + geom_bar(stat = "identity", fill = "steelblue") # 指定条形图并设定颜色；
p <- p + labs(x = "Cars", y = "Q seconds") # 指定横纵坐标名称；
p <- p + theme(text=element_text(family = "serif", size = 24)) # 指定图片中的字体及大小；
p <- p + theme(axis.text.x=element_text(angle = 90, size = 12, colour = "black"), axis.text.y=element_text(size = 16, colour = "black")) # 设定x、y轴，将x轴的文字旋转90度；
p