R语言绘画艺术.doc

下载文档 降价啦

10
0
约1.8万字
约 13页
2016-12-18 发布于重庆
举报
版权申诉
保障服务

R语言绘画艺术.doc

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

? ? ? ? ? ? ? ? ? ? ? ? ? plot(pressure) text(150, 600, Pressure (mm Hg)\nversus\nTemperature (Celsius)) ? ? ? ? ? ? ? ? ? ? ? ? ? # # ?Comment: # # ?Examples of the use of standard high-level plotting functions. # # ?In each case, extra output is also added using low-level # ?plotting functions. # par(mfrow=c(3, 2)) # Scatterplot x - c(0.5, 2, 4, 8, 12, 16) y1 - c(1, 1.3, 1.9, 3.4, 3.9, 4.8) y2 - c(4, .8, .5, .45, .4, .3) par(las=1, mar=c(4, 4, 2, 4)) plot.new() plot.window(range(x), c(0, 6)) lines(x, y1) lines(x, y2) points(x, y1, pch=16, cex=2) points(x, y2, pch=21, bg=white, cex=2) par(col=grey50, fg=grey50, col.axis=grey50) axis(1, at=seq(0, 16, 4)) axis(2, at=seq(0, 6, 2)) axis(4, at=seq(0, 6, 2)) box(bty=u) mtext(Travel Time (s), side=1, line=2, cex=0.8) mtext(Responses per Travel, side=2, line=2, las=0, cex=0.8) mtext(Responses per Second, side=4, line=2, las=0, cex=0.8) text(4, 5, Bird 131) par(mar=c(5.1, 4.1, 4.1, 2.1), col=black, fg=black, col.axis=black) # Histogram # Random data 。 Y - rnorm(50) # Make sure no Y exceed [-3.5, 3.5] Y[Y -3.5 | Y 3.5] - NA x - seq(-3.5, 3.5, .1) dn - dnorm(x) par(mar=c(4.5, 4.1, 3.1, 0)) hist(Y, breaks=seq(-3.5, 3.5), ylim=c(0, 0.5), col=grey80, freq=FALSE) lines(x, dnorm(x), lwd=2) par(mar=c(5.1, 4.1, 4.1, 2.1)) # Barplot # Modified from example(barplot) par(mar=c(2, 3.1, 2, 2.1)) midpts - barplot(VADeaths, col=grey(0.5 + 1:5/12), names=rep(, 4)) mtext(sub( , \n, colnames(VADeaths)), at=midpts, side=1, line=0.5, cex=0.5) text( rep(midpts, each=5), apply(VADeaths, 2, cumsum) - VADeaths/2,VADeaths, col=rep(c(white, black), times=2:3, cex=0.8) ) par(mar=c(5.1, 4.1, 4.1, 2.1)) ------------------------------------------------------------------------------------- df-data.frame( math=c(95,88,79,90), eng=c(85,98,89,80), sci=c(99,85,71,82), math1=c(65,88,69,60), eng1=c(65,68,69,60)) rownames(df)-c(WANG,ZHANG,ZHU,LI) df1-as.matrix(df) mid-barplot(df1,col=grey(0.5+1: