R绘图系统12.docx

下载文档 降价啦

11
0
约3.59千字
约 13页
2017-05-24 发布于湖北
举报
版权申诉
保障服务

R绘图系统12.docx

1、本文档共13页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

R绘图系统12课件

12.1TitanicDF - as.data.frame(Titanic)TitanicList - lapply(TitanicDF[1:4], rep, TitanicDF$Freq)TitanicSets - data.frame(passenger=TitanicList$Class != Crew,adult=TitanicList$Age == Adult,male=TitanicList$Sex == Male,survivor=TitanicList$Survived == Yes)head(TitanicSets)library(gplots)library(venneuler)venn(TitanicSets[1:2])par(mar=rep(2, 4))plot(venneuler(TitanicSets[1:2]), col=hcl(0, 0, c(60, 80), .5),alpha=NA, border=black)venn(TitanicSets[1:3])par(mar=rep(2, 4))plot(venneuler(TitanicSets[1:3]), col=hcl(0, 0, seq(40, 80, 20), .5),alpha=NA, border=black)pdf(Figures/special-venn-3-%d.pdf, onefile=FALSE,width=6, height=6)venn(TitanicSets)dev.off()png(Figures/special-venn-3-%d.png, width=240, height=240, pointsize=8)venn(TitanicSets)dev.off()par(mar=rep(2, 4))plot(venneuler(TitanicSets[1:4]), col=hcl(0, 0, seq(20, 80, 20), .5),alpha=NA, border=black)12.2library(TeachingDemos)library(symbols)faces(USJudgeRatings[1:5, ], nrow=1, ncol=5)faces2(USJudgeRatings[1:5, ], nrows=1, ncols=5, scale=all)symbol(USJudgeRatings[1:25, ], type=face)12.3library(agricolae)data(soil, envir=environment())place2region - as.data.frame(rbind(c(Cnt1, Lima),c(Cnt2, Lima),c(Cnt3, Lima),c(Chz, Ancash),c(Chmar, Huanuco),c(Hco1, Huanuco),c(Hco2, Huanuco),c(Hco3, Huanuco),c(Hyo1, Junin),c(Hyo2, Junin),c(Namora, Cajamarca),c(SR1, Junin),c(SR2, Junin)))soils - merge(soil, place2region,by.x=place, by.y=V1)[c(sand, slime, clay)]names(soils) - c(sand, silt, clay)library(vcd)library(plotrix)library(compositions)library(soiltexture)ternaryplot(soils, col=black, grid_color=black, labels_color=black)triax.plot(soils, cex.ticks=.5)par(mar=rep(1, 4))plot(rcomp(soils))lines(rcomp(rbind(c(.4, 0, .6),c(0, .4, .6))))lines(rcomp(rbind(c(.65, 0, .35),c(0, .65, .35))))TTsoils - soilsnames(TTsoils) - c(SAND, SILT, CLAY)TT.plot(tri.data=TTsoils)12.4hourSpeed - aggregate(hourlySpeed[Speed], list(hour=hourlySpeed$hour),mean)head(hourSpeed)library(plotrix)library(openair)trellis.par.set(theme = canonical.theme(postscript