R2-30第四次作业提交

土貉 2017-11-28 10:05:37 阅读: 861

datar41<-read.csv("C:/Documents and Settings/Administrator/桌面/s/r/第四次作业/R.4-1.csv",header=T) 

library(ggplot2)

datar41 = datar41[order(datar41$值,decreasing=TRUE),]

mylabel=as.vector(datar41$"代码")

mylabel=paste(mylabel,"",round(datar41$值/sum(datar41$值)*100,2),"%)",sep="")

ggplot(datar41,aes(x="",y=值,fill=代码))+geom_bar(stat="identity",width =2)+coord_polar(theta= "y",direction=-1)+labs(x="city",y="value",title="R2-30")+theme(axis.ticks = element_blank())+theme(legend.title=element_blank(),legend.position = "top")+scale_fill_discrete(breaks=datar41$代码,labels=mylabel)+theme(axis.text.x =element_blank())

01.png


install.packages(lattice)

library(lattice)

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

02.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

微信服务号