步骤
> library(xlsx) > test<-read.csv("I:/山农大学大数据中心/柱状图/z7.csv") > data1=test[3] #选第三列 > table <-table(data1) #对选出来的制作表格(出现的次数) > table=sort(table,decreasing=TRUE) #升序 > table_20=table[0:20] > data2=as.data.frame(table_20) #数据框的利用 > View(data) > ggplot(data2, aes(x = data2$data1, y =data2$Freq,fill=data2$data1)) + geom_bar(stat = "identity")+labs(y='value',x='city') #导入数据框 +条形图+名字
这里重点说一下
data1=test[3] 对 对 应的是灰色
这个是选取第三行的表格数据
也可以是data1=test[,3] 对应的是彩色
不过这样data就变成了values,而不是data了,虽然这部分不太明白但是就是这个意思
过了半小时,我理解了,原来产生的效果不一样灰色的是data,而彩色的是values
这有一个就是自动生成的名字
ggplot(data2, aes(x = data2$data1, y =data2$Freq,fill=data2$data1)) + geom_bar(stat = "identity")+labs(y='value',x='city')