导读

在R语言中用expression参数可以给画图函数中的xlab或者ylab的标签添加上下标。

方法

expression("标签"["下标"]^"上标")

pdf('mark.pdf')

opar=par(no.readonly=TRUE)
# 生成图形参数列表
par(mai=c(1.5, 1.5, 1.5, 1.5))
# par设置：图形距边距离（英寸）

plot(1,ylab=expression("NH "["4"]^"+"), xlab=expression("kg/m"^"2"))

par(opar)
# 关闭par
dev.off()
# 关闭画板

使用par控制图片位置，否则上标越界了。
打开结果mark.pdf，如下：

图片.png