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

R30-椰z 2017-11-21 13:14:51 阅读: 1012

任务1：

> library(ggplot2)

> p=ggplot()

> library(reshape2)

> library(ggthemes)

> r=read.csv("/Users/liutianzi/Downloads/R2-3.1.csv",head=T)

> head(r)

> r1=melt(r,id.vars="Products",variable.name = "Time",value.name="Index")

> p +scale_fill_wsj("rgby")+geom_bar(data=r1,aes(x=Time,y=Index,fill=Products),stat="identity",position="dodge")+theme_economist()+ggtitle("R2-21")

任务2：

> r=read.table("/Users/liutianzi/Downloads/R2_3_2_mac.csv",head=T,sep=",")

> head(r)

> p+geom_bar(data=r,aes(x=社区,fill=态度))+coord_flip()+theme(text=element_text(family="STKaiti",size=12))+ggtitle("R2-21")

邀请讨论

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

删除

回复关闭