欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

R语言绘图样式设置操作(符号,线条,颜色,文本属性)

程序员文章站 2022-07-10 15:16:44
设置图像样式有两种方法,一种是全局修改,一种只针对一幅图片有效。全局修改a<-c(1:10) #全局修改old_par<-par(no.readonly=true) #记录默认样式到变量o...

设置图像样式有两种方法,一种是全局修改,一种只针对一幅图片有效。

全局修改

a<-c(1:10)
 
#全局修改
old_par<-par(no.readonly=true) #记录默认样式到变量old_par中
par(lty=2,pch=17)    #设置线型lty=2虚线,pch=17实心三角形,键值对的方式进行设置
 
#第一幅图,已经和默认样式不一样了
b<-rnorm(10)
plot(a,b,type='b')
 
#第二幅图,和第一幅图样式一样
b<-rnorm(10)
plot(a,b,type='b')
 
par(old_par)     #应用默认样式
 
#第三幅图,默认样式
b<-rnorm(10)
plot(a,b,type='b')

R语言绘图样式设置操作(符号,线条,颜色,文本属性)

针对一幅图片有效

a<-c(1:10)
b<-rnorm(10)
plot(a,b,type='b',lty=2,pch=17)

如下列表为可以设置的键值对

参数 作用 描述 列表
pch 点的符号 指定绘制点时使用的符号 R语言绘图样式设置操作(符号,线条,颜色,文本属性)
cex 符号的大小 指定符号的大小。cex是一个数值,表示绘图符号相对于默认 大小的缩放倍数。默认大小为1,1.5表示放大为默认值的1.5倍, 0.5表示缩小为默认值的50%,等等
lty 线条类型 R语言绘图样式设置操作(符号,线条,颜色,文本属性)
lwd 线条宽度 指定线条宽度。lwd是以默认值的相对大小来表示的(默认值为1)。 例如,lwd=2将生成一条两倍于默认宽度的线条
col 默认的绘图颜色。某些函数(如lines和pie)可以接受一个 含有颜色值的向量并自动循环使用。 例如,如果设定col=c("red", "blue")并需要绘制三条线,则 第一条线将为红色,第二条线为蓝色,第三条线又将为红色
col.axis 坐标轴刻度文字的颜色
col.lab 坐标轴标签(名称)的颜色
col.main 标题颜色
col.sub 副标题颜色
fg 图形的前景色
bg 图形的背景色
cex 表示相对于默认大小缩放倍数的数值。 默认大小为1,1.5表示放大为默认值的1.5倍,0.5表示缩小 为默认值的50%,等等
cex.axis 坐标轴刻度文字的缩放倍数。类似于cex
cex.lab 坐标轴标签(名称)的缩放倍数。类似于cex
cex.main 标题的缩放倍数。类似于cex
cex.sub 副标题的缩放倍数。类似于cex
font 整数。用于指定绘图使用的字体样式。1=常规,2=粗体,3=斜体, 4=粗斜体,5=符号字体(以adobe符号编码表示)
font.axis 坐标轴刻度文字的字体样式
font.lab 坐标轴标签(名称)的字体样式
font.main 标题的字体样式
font.sub 副标题的字体样式
ps 字体磅值(1磅约为1/72英寸)。文本的最终大小为 ps*cex
family 绘制文本时使用的字体族。标准的取值为serif(衬线)、sans(无衬线)和mono(等宽)
pin 以英寸表示的图形尺寸(宽和高)
mai 以数值向量表示的边界大小,顺序为“下、左、上、右”,单位为英寸
mar 以数值向量表示的边界大小,顺序为“下、左、上、右”,单位为英分*。 默认值为c(5, 4, 4, 2) + 0.1

标题title

坐标轴axis

参考线abline

图例legend

文本标注text(绘图区域内部添加文字),mtext(图形四个边界添加文字)

补充:r语言利用ggplot画图时调整坐标轴字体大小

利用ggplot画好图,并把它插入到论文中后,你会发现默认的字体大小12pt太小了,与latexlatex中图的caption大小不匹配,为此,你需要在利用ggplot画图的时候一开始就要调整到你需要的大小。

我经过摸索,发现将字体调整为14pt比较合适。

r的具体代码如下所示:

library(ggplot2)
acs = read.csv("newjscs.csv",header=t)
pdf(file="fig13.pdf",family="gb1",pointsize=16)
p <- ggplot(acs,aes(x=factor(grade),y=salary)) + geom_boxplot()
p <- p + xlab("专业技术序列等级") + ylab("固定薪酬(元)") 
p + theme(axis.title.x =element_text(size=14), axis.title.y=element_text(size=14))
dev.off()

上面pdf(...)和dev.off()是为了将画出来的图形直接存到pdf矢量图形中的,使画出来的图形是一个pdf文件,你在用latexlatex的时候,可以直接加入pdf格式的图形。

以上为个人经验,希望能给大家一个参考,也希望大家多多支持。如有错误或未考虑完全的地方,望不吝赐教。