R柱状图,叠图(排序)

本文展示了如何使用R语言进行数据处理和可视化,通过读取CSV文件并进行数据整合,利用ggplot2库创建了一个展示各城市空气质量的柱状叠图。图表以城市为X轴,空气质量指数为Y轴,用不同颜色区分不同污染级别,并进行了排序,以清晰地显示各城市的污染天数。
摘要由CSDN通过智能技术生成
each<-read.csv("C:\\Users\\Administrator\\Desktop\\R\\数据三\\eachcl.csv")


cl<-colMeans(each)


clname<-variable.names(each)

#取变量名

cl<-as.numeric(cl)
mycolorscl <- c(heat.colors(11)[1:11])
barplot(cl[sort.list(cl,decreasing=T)[10:1]],names.arg=clname[sort.list(cl,decreasing=T)[10:1]],xlab="city",ylab="value",

        main="空气污染指数",col=mycolorscl[10:1],border=mycolorscl[10:1],ylim = c(0,70))


#sort.list取排序位置



叠图:(ggpl0t)

#叠图:
allend<-read.csv("C:\\Users\\Administrator\\Desktop\\R\\数据三\\allend.csv")
allggplot<-allend[2:4]
for (i in 1:9) {
  test<-allend[(3*i+2):(3*i+4)]
  colnames(test)<-c("how","quanty","city")
  allggplot<-rb

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值