R语言数据可视化——基本绘图系统

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

基础绘图系统

高级功能：plot( ),barplot( ),boxplot(),datchart( ),hist( ),monthplot( ),pie( ),profile.plot( ),

radial.pie(),radial.plot( )

低级功能：points( ),lines( )

示例：

par(bg="lightyellow")  #设置背景色

y<-c(1,4,3,4)

line<-y/2

bp<-barplot(y) #bp 0.7 1.9 3.1 4.3

lines(line,col="red") #将图形叠加在已存在图形上

lines(bp,line,col="blue")

图形参数设置

par() 大约有80个参数设置可调整

1.  bg背景设置

par() 整个图形的背景颜色

plot() 以指定颜色绘制单个符号

2.  adj调整文本元素的方向0_1即left_right

text()  mtext() title()

3.  bty图形的边框类型

4.  cex文本符号大小设置

cex.axis，cex.lab，cex.main，cex.sub 坐标轴和标签的文本符号大小设置

5.  col数据集的颜色设置

col.axis，col.lab，col.main，col.sub 坐标轴和标签的颜色设置

6.  family字体设置

7.  fg前景色

8.  lty() 线型

9.   pch()

... ...

图形空白设置

绿色 数据区域；红色内边缘 mai；黄色外边缘 omi

注：关于整个图形的标签可以使用mtext()函数和outer=T置于外边缘。

更复杂的组装和布局

mforw mfcol将图形输出划分为多个行和列

代码

nf<-layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1),c(1,3), TRUE)

layout函数的用法：layout.show(nf)可显示当前布局横向3：1，纵向3：1

matrix函数中的非零数字仅代表顺序，0表示空缺不绘制图形

#将xy值控制在-3至+3之间

x<- pmin(3, pmax(-3,stats::rnorm(50)))

y<- pmin(3, pmax(-3,stats::rnorm(50)))

xhist<- hist(x,breaks=seq(-3,3,0.5), plot=FALSE)

yhist<- hist(y,breaks=seq(-3,3,0.5), plot=FALSE)

top<- max(c(xhist$counts,yhist$counts))  #频数最大值

par(mai=c(1,1,0.2,0.2)) #上左方向的内边缘0.2

plot(x, y, xlim=c(-3,3),ylim=c(-3,3), xlab="", ylab="")

par(mai=c(0,1,0.2,0.2))  #下方向的内边缘0

barplot(xhist$counts, axes=FALSE,ylim=c(0, top), space=0)

par(mai=c(1,0,0.2,0.2))  #左方向的内边缘为0

barplot(yhist$counts, axes=FALSE,xlim=c(0, top), space=0, horiz  =TRUE)

###########

nf<-layout(matrix(data=c(1,2,3,4,5),nrow=1,ncol=5),

       widths=c(2,1,1,1,1),heights=c(1,1))

par(mai=c(0.5,1,0.5,0),omi=c(0.25,0.25,0.25,0.25))

layout.show(nf)

x<-rnorm(50)

y<-rnorm(50)

plot(x,y,axes=F,col=1,xlim=c(-3,3),ylim=c(-3,3),xlab="",ylab="y–axis–\nlabel")

axis(1) #下

axis(2) #左

box(lty='solid',col='darkgrey')

par(mai=c(0.5,0,0.5,0))

for (i in 2:5)

{

x<-rnorm(50)

y<-rnorm(50)

plot(x,y,axes=F,col=i,xlim=c(-3,3),ylim=c(-3,3),xlab="")

if (i %% 2 == 0) {axis(3)} else {axis(1)} #偶数上坐标轴/奇数下坐标轴

box(lty='solid',col='darkgrey')

}

字体内嵌

待续…

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏11 回帖

关键词：R语言绘图 plot 页面布局layout

hylnwoau 发表于 2019-2-10 12:44
基础绘图系统高级功能：plot( ),barplot( ),boxplot(),datchart( ),hist( ),monthplot( ),pie( ),profile.p ...

不错不错

thanks for sharing

谢谢分享