R2-04-第四次作业-饼图+箱式图

blanking 2017-11-25 23:57:33 阅读: 979

library(ggplot2)

library(lattice)

R2_04_4 <- read.csv("/users/taowang/documents/R/R2/R2-4/R.4-1.csv",header = T)

png("/Users/taowang/documents/R/R2/R2-4/R2-4-1.png")

ggplot(data = R2_04_4,aes(x = "", y=X..., fill = X......))+

geom_bar(stat = "identity", width = 1)+

coord_polar(theta = "y")+

xlab("city")+

ylab("value")+

theme(axis.ticks = element_blank(), legend.position = "top",legend.title = element_blank(),axis.text.x = element_blank())+

ggtitle("R2-04")

dev.off()

png("/Users/taowang/documents/R/R2/R2-4/R2-4-2.png")

ggplot(singer, aes(x= voice.part, y = height, fill = voice.part))+

geom_boxplot()+

theme(legend.position = "top",legend.title = element_blank())+

ggtitle("R2-04")

dev.off()

邀请讨论

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

删除

回复关闭