R2-31-第四期-饼图+箱式图

小伊伊 2017-11-26 12:03:01 阅读: 1133

library("ggthemes")
library(ggplot2)

data <- read.csv("D:/R.4-1.csv", header = T)
data1<-data[order(data$value,decreasing = TRUE),]
myLabel=as.vector(data1$code)
myLabel=paste(myLabel,"(",round(data1$value/sum(data1$value)*100,2),"%)",sep="")
ggplot(data1,aes(x="",y=value,fill=code))+geom_bar(stat="identity",width=1)+
coord_polar(theta="y")+labs(x="value",y="city",title="R2-31")+
theme(legend.position = 'top',legend.title=element_blank(),axis.ticks=element_blank())+
scale_fill_discrete(breaks=data1$code,labels=myLabel)

library(lattice)
ggplot(singer,aes(x=voice.part,y=height,fill=voice.part))+
geom_boxplot()+
theme(legend.position ='top',legend.title = element_blank())+
labs(title="R2-31")

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01