怎样学习 R 绘图(11)
4.2，雷达图\u0026gt; library(fmsb)\u0026gt; radarchart(example2_5, axistype=0, seg=4, maxmin=F, vlabels=names(example2_5), pcol=1:7, plwd=1.5)\u0026gt; legend(x="topright", legend=c("最低收入户", "低收入户","中等偏下户", "中等收入户", "中等偏上户", "高收入户", "最高收入户"), lty=1:7, col=1:7, text.width=1, cex=0.7)
4.3， 星图\u0026gt; mat25 \u0026lt;- as.matrix(example2_5)\u0026gt; rownames(mat25)\u0026lt;-example2_5\u0026gt; par(cex=0.7, family=\u0026#39;SimSun\u0026#39;)\u0026gt; stars(mat25, key.loc=c(7,2,5),cex=0.8)
4.4，脸谱图\u0026gt; library(aplpack)\u0026gt; faces(mat25.nrow.plot=4,ncol.plot=2,face.type=0)包加载失败，努力调试中。。。。
五，时间之上看趋势的图表example2_9\u0026lt;-read.csv(\u0026#39;/Users/MLS/desktop/rs/stt/example/ch2/22_9.csv\u0026#39;)\u0026gt; par(mai=c(0.7,0.7,0.1,0.1), cex=0.8, family="SimSun")\u0026gt; plot(example2_9, lwd=1.5, ylim=c(2000,30000), xlab="年份", ylab="居民消费水平",type="n")\u0026gt; grid(col="gray60")\u0026gt; points(example2_9, type="o", lwd=1.5, xlab="年份", ylab="居民消费水平")\u0026gt; lines(example2_9, type="b", lty=2, lwd=1.5, xlab="年份", col="blue")\u0026gt; legend(x="topleft",legend=c("农村居民消费水平","城镇居民消费水平"), lty=1:2, col=c(1,4), cex=0.8)
六：其他，在更新几个高级绘图技巧吧：二元正态分布密度图mu1\u0026lt;-0mu2\u0026lt;-0ss1\u0026lt;-10 ss2\u0026lt;-10 rho\u0026lt;-0.7MyDen\u0026lt;-function(x,y) { t1\u0026lt;-1/(2*pi*sqrt(ss1*ss2*(1-rho^2))) t2\u0026lt;--1/(2*(1-rho^2)) t3\u0026lt;-(x-mu1)^2/ss1 t4\u0026lt;-(y-mu2)^2/ss2 t5\u0026lt;--2*rho*((x-mu1)*(y-mu2))/(sqrt(ss1)*sqrt(ss2)) return(t1*exp(t2*(t3+t4-t5)))}x\u0026lt;-seq(-10,10,length=50) y\u0026lt;-x z\u0026lt;-outer(x,y,FUN=MyDen) par(mfrow=c(2,2),mar=c(6,4,4,1))persp(x,y,z,main="二元正态分布密度曲面图",theta=30,phi=20,expand=0.5,shade = 0.5,xlab="X",ylab="Y",zlab="f(x,y)")contour(x,y,z,main="二元正态分布密度等高线图")
###########其他曲面图Myf\u0026lt;-function(x,y) { r\u0026lt;-sqrt(x^2+y^2) r\u0026lt;-10*sin(r)/r return(r)}x\u0026lt;-seq(-10,10,length=30)y\u0026lt;-xz\u0026lt;-outer(x,y,Myf)z\u0026lt;-1 persp(x,y,z,main="曲面图",theta=30,phi=30,expand=0.5) contour(x,y,z,nlevels=10,main="等高线图")
推荐阅读
![[印度]印度游客来中国体验公路，一上车就懵圈了：你们称这些为高速](http://img88.010lm.com/img.php?https://image.uc.cn/s/wemedia/s/2020/648fdfbfce01b091756dcc8e95113a34.jpg)
- 聪明人养花，这3种“花”怎样也要养一盆，每年能省不少医药费
- 互联网怎样解决“家政服务上门速度慢”的问题
- 怎样看待从1月8号起，QQ钱包开始提现收费
- 银行it人怎样转型
- 汽车|冬天怎样让车内温度快速升高？座椅加热的最佳使用方式二，外循环的作用总结
- 怎样进入通信行业
- 怎样评价扶他柠檬茶的小说《云养汉》的结尾
- 怎样成为一名合格的Python程序员?
- 怎样评价华为、诺基亚、中兴中标中国移动高端路由交换设备扩容集采
- 怎样评价类似前橙会、百老汇、南极圈这样类型的离职帮抱团，对企业的积极意义和消极意义