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

barcaqiu 2017-11-26 01:20:05 阅读: 966

> library(ggplot2)

> data1<-read.csv("D:\\learningr\\R4-1-1.csv",head=T)

> data1<-data1[order(data1$value,decreasing = TRUE),]

> myLabel=as.vector(data1$city)

> myLabel=paste(myLabel,"(",round(data1$value/sum(data1$value)*100,2),"%)",sep="")

>ggplot(data1,aes(x="",y=value,fill=city))+geom_bar(stat="identity",width=1)+coord_polar(theta="y")+labs(x="value",y="city",title="R2-40")+theme(legend.position = 'top',legend.title =element_blank(),axis.ticks=element_blank())+scale_fill_discrete(breaks=data1$city,labels=myLabel)

4-1.png

> library(ggplot2)

> 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-40")

4-2.png

 
邀请讨论

附件

{{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}}) 删除 回复 关闭
R科研作图学习小组(小组)

小组最新话题

科研狗©2015-2024 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号