第二期 作业提交 R37-木子

木爻子木 2017-10-22 16:54:30 阅读: 1291

setwd("D:/R语言学习资料/R group task 5")

getwd()

x=c(1,2,3,4,5,6,7,8,2,5,11,12)

png("pie-1.png")

pie(x,col=rainbow(12),rasius=1)

dev.off()

y=c(0.12,0.3,0.26,0.16,0.04,0.12)

png("pie-2.png")

names(y) = c("A","B","C","D,"E","F")

pie(y,col=c("red","green","blue","violetred","cyan","white"))

dev.off()

y=c(0.12,0.3,0.26,0.16,0.04,0.12)

png("pie-3.png")

names(y) = c("A","B","C","D","E","F")

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

dev.off()

y=c(0.12,0.3,0.26,0.16,0.04,0.12)

png("pie-4.png")

names(y) = c("A","B","C","D","E","F")

pie(y,clockwise=T,main="饼图(顺时针排列)")

dev.off()

install.packages("plotix")

library("plotrix")

pieval <- c(28,152,56,136)

pielables <- c("unknown","small","middle","big")

percent <- round(pieval/sum(pieval)*100,1)

percent <- paste(percent,"%",sep="")

pielables <- paste(pielables,percent,sep="n")

lp <- pie3D(pieval,radius=0.8,height=0.2,labels=pielables,explode=0.1,main="3D pie DEMO")


 
邀请讨论

附件

{{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-2025 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号