R2-20第三期- ggplot2画柱状图任务

科研狗聪 2017-11-21 15:39:22 阅读: 944

Figure 3.1

data<-read.csv("R2-3.1.csv",header=TRUE)

library("ggplot2")

library("reshape2")

library("ggthemes")

mydata<-melt(data,id.vars="Products",variable.name="Quater",value.name="Index")

ggplot(mydata,aes(Quater,Index,fill=Products))+

geom_bar(stat="identity",position="dodge")+

theme_economist() + scale_fill_wsj("rgby")+

ggtitle("R2-20")+xlab("Time")

Figure 3.2

library(ggplot2)

data<-read.csv("R2-3.2.csv",header=T)

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

geom_bar(position='stack')+

coord_flip()+ggtitle('R2-20')

邀请讨论

{{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}})

删除

回复关闭