R2-33 第四期-ggplot2画饼图/箱型

R48-小之 2017-11-28 21:08:38 阅读: 921

library(ggplot2)

data<- read.csv("R2-4.csv")

data<- data[order(data$值,decreasing=TRUE),]

b<- as.vector(data$代码)

c<- paste(b,"(",round(data$值/sum(data$值)*100,2),"%)",sep="")

ggplot(data,aes(x="",y=值,fill=代码))+geom_bar(stat="identity",width=1)+coord_polar(theta="y")+

+ labs(x="value",y="city",title="R2-33")+

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

+ theme(axis.text.x=element_blank())+

+scale_fill_discrete(breaks=data1$代码,labels=c)

library(lattice)

library(ggplot2)

ggplot(singer,aes(x=voice.part,y=height,fill=voice.part))+geom_boxplot()+theme(legend.position="top",legend.title=element_blank())+

+ ggtitle("R2-33")

邀请讨论

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

删除

回复关闭