R2-33 第三期ggplot2画柱状图

R48-小之 2017-11-21 22:25:16 阅读: 913

library(ggplot2)

library(reshape2)

library(ggthemes)

QAQ<-read.csv("R2-3.1.csv")

qaq<-melt(QAQ,id.var="Products",variable.name="Quater",value.name="Index")

ggplot(qaq,aes(Quater,Index,fill=Products))+geom_bar(stat="identity",position="dodge")+xlab("Time")+

+ theme_economist()+scale_fill_wsj("rgby","")+

+ theme(axis.ticks.length=unit(0.5,'cm'))+

+ guides(fill=guide_legend(title=NULL))+

+ ggtitle("R2-33")+

+ xlab("Time")

library(ggplot2)

library（reshape2)

library(ggthemes)

a<- read.csv("R2_3_2.csv")

ggplot(a,aes(社区,fill=态度))+geom_bar()+

+ ggtitle("R2-33")+coord_flip()

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭