R2-19 第三期作业

XT 2017-11-23 16:00:22 阅读: 899

library(ggplot2)

library(reshape2)

library(ggthemes)

setwd("C:\\Users\\think\\Desktop\\3")

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

ggplot(mydata,aes(x=Time,y=Index,fill=Products))+geom_bar(stat="identity",position = "dodge")

+labs(title="R2-19")+scale_fill_wsj("rgby")+theme_economist()

mydata2<-read.csv("R2_3_2.csv",header=T,row.names = 1)

ggplot(mydata2,aes(社区,fill=态度))+geom_bar(position="stack")+ggtitle("R2-19")+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}})

删除

回复关闭