R2-20-第四期-ggplot2画饼图/箱线图作业

科研狗聪 2017-11-27 17:33:19 阅读: 839

Figure4.1_code

setwd("F:\\Doctor\\R语言学习\\互助小组\\第四期作业")

library(ggplot2)

data<-read.csv("R.4-1.csv",header=T)

ggplot(data, aes( x="",y = value, fill = code)) +

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

coord_polar(theta = "y") +

theme(axis.ticks = element_blank(),

legend.title = element_blank(),

legend.position = "top")+

xlab ("value")+ ylab ("city")+

ggtitle( "R2-20")

Figure4.2_code

library(lattice)

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

geom_boxplot()+

theme(legend.title = element_blank(),

legend.position = "top")+

xlab ("voice.part")+ ylab ("height")+

ggtitle( "R2-20")

邀请讨论

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

删除

回复关闭