第五次作业R019-R语言绘制饼图

yxldoc 2017-08-21 18:39:58 阅读: 1106

 

 

第五期作业 

 

1.饼图

1.1

x=c(40,18,17,15,14)

names(x)=c("帕金森病","多系统萎缩","肌萎缩侧索硬化","肌肉疾病","其它")

pie(x,col = rainbow(5), radius = 0.9,main="8月门诊病人构成")

 

 

图1.png

1.2阴影图

x=c(40,18,17,15,14)

names(x)=c("帕金森病","多系统萎缩","肌萎缩侧索硬化","肌肉疾病","其它")

pie(x, density = 10, angle = 15 + 10 * 1:6)

 

 

阴影图.png

 

2. 3D饼图

 

install.packages("plotrix")

library('plotrix')

a<-c(40,18,17,15,14)

b<-c("帕金森病","多系统萎缩","肌萎缩侧索硬化","肌肉疾病","其它")

pie3D(a,labels=b,height=0.1,explode=0.05,main="8月门诊病人构成")

 

 

3D_饼图.png

 

 

4.  韦恩图

 

install.packages("VennDiagram")

library(VennDiagram)

A = 5:190

B = c(121:170,300:320)

C = c(20:40,141:200)

Len_A<-length(A)

Len_B<-length(B)

Len_C<-length(C)

Len_AB<-length(intersect(A,B))

Len_BC<-length(intersect(B,C))

Len_AC<-length(intersect(A,C))

Len_ABC<-length(intersect(intersect(A,B),C))

a<-venn.diagram(list(A=A,B=B,C=C),filename=NULL,lwd=1,lty=2,col=c('red','green','yellow'),fill=c('red','green','yellow'),cat.col=c('red','green','yellow'),rotation.degree=2,reverse=TRUE)

grid.draw(a)

 

 

韦恩图.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

微信服务号