R2-34-第三期ggplot2画柱状图

橡皮擦 2017-11-21 19:11:15 阅读: 930

R2-3-1

library(ggplot2)

library(reshape2)

library(ggthemes)

data1=read.csv("J:\\R\\1121\\R2-3-1.csv",header=TRUE)

mydata=melt(data1,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')+

xlab('Time')+

ggtitle('R2-34')

R2-3-2

mydata2=read.csv("J:\\R\\1121\\R2-3-2.csv",head=TRUE)

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

geom_bar(position='stack')+

coord_flip()+

ylab("频数")+

ggtitle('R2-34')

邀请讨论

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

删除

回复关闭