原创如何用R语言绘制折线图展现多维四维以上数据文档格式.docx
- 文档编号:21080855
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:11
- 大小:220.44KB
原创如何用R语言绘制折线图展现多维四维以上数据文档格式.docx
《原创如何用R语言绘制折线图展现多维四维以上数据文档格式.docx》由会员分享,可在线阅读,更多相关《原创如何用R语言绘制折线图展现多维四维以上数据文档格式.docx(11页珍藏版)》请在冰豆网上搜索。
1.5.对课程设置
1.6,⅛⅛!
咐选用
17.对课外辅导与作用
18对职业能力训练
2.1.对学风考风
2.2、对实验、实习、实践质量
2,3.对就业创业指导
3.1.对教室和自习场所
32.对实验宣杂件和使用
1.5、对课程设置
0.2970
0.2684
10.6891
2.0000
1.6、对教材选用
0.3012
0.2799
7.6265
1.0000
1.7、对课外辅导与作用
0.2969
10.6156
1.8、对职业能力训练
0.3085
0.2927
5.4062
2.1、对学风考风
0.3185
0.3036
4.9126
2.2、对实验、实习、实践质量
0.3104
0.2898
7.0993
2.3、对就业创业指导
0.3071
0.2871
6.9888
3.1、对教室和自习场所
0.3077
0.2878
6.9092
3.2、对实验室条件和使用
0.3031
0.2758
9.9088
3.2读取数据
alldata=read.csv("
d:
\\A.csv"
)#读入数据
3.3绘制普通散点图(2016年数据)
t=1:
13#13个指标,要转换为x轴上的13个点plot(t,alldata$X2016,type='
o'
pch=4)
Type和pch的含义,参考PLOT参数说明
X轴,希望能够显示具体的指标名称,如何实现?
3.4X轴坐标换成指标名称
?
其他都一样,就是x参数不一样了,图形有非常大的变化
从理论上看,这个语句能够直接实现题目最早的意图了,但是实际结果却不
尽人意
3.5解决新问题:
如何将两条线画在一个图上
关键语句:
par(new=T)
完整过程:
plot(t,alldata$X2016,type='
pch=4)par(new=T)
plot(t,alldata$X2015,type='
pch=4)结果:
问题:
y轴坐标重叠错乱了(注意观察y轴),并且刻度不一样,两条线一些点不一样,但是却被绘制成重叠在一起了。
看来不能简单讲两个线条或图形叠加。
3.6统一刻度
iCols=13
ydata=cbind(alldata$X2016,alldata$X2015)
yScale=c(max(ydata),min(ydata),rep(0,iCols-2))
--yScale和xScale的长度和实际要绘制图形的数据要一致,所以,这里需
要调整
xScale=c(1:
iCols)
--关键绘制一个空的图结构
plot(xScale,yScale,type='
n'
)
然后在开始绘制图形
par(new=T)plot(xScale,alldata$X2016,type='
plot(xScale,alldata$X2015,type='
****************遗憾的是,以上的努力没有收到预期效果
iCols=13ydata=cbind(alldata$X2016,alldata$X2015)xScale=c(1:
plot(xScale,alldata$X2015,col=3,type='
ylim=c(max(ydata)+0.05,min(ydata)-0.05))
par(new=T)plot(xScale,alldata$X2016,col=4,type='
注意这里的两个参数:
ylim、color
类似的还有xlim
注意ylim的大小反了,结果图形y坐标也是反的
x轴为什么不能间隔1?
3.7下一个要解决的问题:
按照权重大小绘制点大小
plot(xScale,alldata$X2015,col=3,
type='
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$权重,pch=16)
par(new=T)
plot(xScale,alldata$X2016,col=4,
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$权重,pch=16)
注意参数cex
3.8调整刻度间隔
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$权重,pch=16,xaxt="
n"
plot(xScale,alldata$X2016,col=4,type='
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$权重,pch=16,xaxt="
axis(1,1:
13)
注意参数xaxt
3.9调整标签和示意
a=c("
2015"
"
2016"
legend("
bottomright"
as.matrix(a),pch=1,text.col=c(3,4))注意函数legend
3.10标签和标题
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$权重,pch=16,xaxt="
xlab="
指标"
ylab="
满意度得分"
par(new=T)plot(xScale,alldata$X2016,col=4,
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$重,pch=16,xaxt="
title("
2015和2016满意度指标对比图"
)
as.matrix(a),pch=1,text.col=c(3,4))
注意参数xlab\ylab和函数title
3.11坐标值垂直显示
op<
-par(mar=c(12,5,3,3)+.1)
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$重,pch=16,xaxt="
"
ylim=c(min(ydata)-0.05,max(ydata)+0.05),cex=alldata$
重,pch=16,xaxt="
axis(side=1,1:
13,tcl=-0.2,labels=B,las=2)
注意参数par函数,axis的las参数,和plot的las参数一样
4因選P-Ofs⅜^⅛s
4∙1Type
BjB-彗⅛函〉色⅛B函〉>
51»
M
4∙2PCh
满意度得分
7.07.58.0
I
1.K对所学专业-
12对教师教学态度-
仁3、天墩师教学水平-
14对教学方袪与手段-
1.5>对课程设置-
Ia对教材选用•
1.7,对课外辅导与作用-
1.8,对职业能力训练-
NJI、对学风考风-
22对实验S实习、实践质量-
23、对就业创业指导-
3K买燉宣和自习场所-
32对实验室条件和使用-
4.3xlim
x坐标轴的范围
4.4ylim
y坐标轴的取值范围
ylim=c(最小值,最大值)
4.5color
col=某个数字
4.6cex
用来绘制点面积用cel=某个数
4.7las
随即帮助说明如下:
4.8xaxt
5绘制线条函数:
lines的使用范例
set.seed(1000)
x<
-seq(-1,2,length.out=100)y<
-dexp(x,0.5)plot(x,y,col="
red"
xlim=c(0,2),ylim=c(0,5),type='
l'
xaxs="
i"
yaxs="
ylab='
density'
xlab='
'
main="
TheExponentialDensityDistribution"
lines(x,dexp(x,
1),col="
green"
lines(x,dexp(x,legend("
topright"
2),col="
blue"
5),col="
orange"
legend=paste("
rate="
c(.5,1,2,5)),lwd=1,col=c("
"
"
))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 原创 何用 语言 绘制 折线 展现 多维 以上 数据
![提示](https://static.bdocx.com/images/bang_tan.gif)