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

四幺1111 2017-11-20 23:31:11 阅读: 856

任务一

library(ggplot2)

library(reshape2)

library(ggthemes)

read.csv(file="F:\\R学习作业\\20171120\\R2-3.1.csv")

mydata<-read.csv(file="F:\\R学习作业\\20171120\\R2-3.1.csv")

mydata<-melt(mydata,id.vars="Products",measure.vars=c("Q1th","Q2nd","Q3rd","Q4th"))

ggplot(mydata,aes(x=variable,y=value,fill=Products))+

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

labs(x="Time", y="Index")+ ggtitle("R2-17")+scale_fill_wsj("rgby")+theme_wsj(color="blue")

任务二

library(ggplot2)

mydata<-read.csv(file="F:\\R学习作业\\20171120\\R2_3_2.csv")

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

geom_bar(position="stack")+

labs(x="社区",y="count")+coord_flip()+

scale_fill_brewer(palette="Pastel1")+

ggtitle("R2-17")

邀请讨论

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

删除

回复关闭