如何在R的Tikz绘图中调整mtext多行文本的行间距？

这里有几个实用的方法可以帮你控制mtext中两行文本的垂直间距，你可以根据需求选择最合适的方案：

把两行文本分开，分别调用mtext，通过调整line参数来控制垂直距离——line数值越小，文本越靠近绘图区域，两个line值的差值直接决定了两行的相对间距。

示例代码：

library("tikzDevice")
outfn<-"LineSpaceingExample.tex"
mydim <- 4
tikz(outfn,standAlone=TRUE,width=mydim,height=mydim)
x<-c(0, 1)
y<-x
plot(x, y, type = "n")
# 第一行文本，设置初始位置
mtext(text="This is some", side=3, line=0.1)
# 第二行文本，用更小的line值拉近与第一行的距离
mtext(text="example text", side=3, line=-0.2)
dev.off()

你可以随时调整两个line的数值，数值差越小，两行文本的间距就越窄。

因为tikzDevice会把R中的文本转换为LaTeX代码，所以你可以直接在文本里用LaTeX的间距命令精准控制行间距，比如\\[<长度>]或者\\vspace{<长度>}。

示例代码：

library("tikzDevice")
outfn<-"LineSpaceingExample.tex"
mydim <- 4
tikz(outfn,standAlone=TRUE,width=mydim,height=mydim)
# 用\\[0.2em]设置两行的垂直间距，em是相对字体大小的单位，更适配不同字号
mytext<- "This is some\\\\[0.2em]example text"
x<-c(0, 1)
y<-x
plot(x, y, type = "n")
mtext(text=mytext, side=3,line=0.1)
dev.off()

你可以把0.2em改成更小的数值（比如0.1em）来缩小间距，也可以用2pt这类绝对单位固定间距。

如果你希望整个图形的所有文本行距都统一变小，可以在tikzDevice的文档声明中引入setspace包，设置全局行距比例。

示例代码：

library("tikzDevice")
# 自定义tikz的LaTeX文档声明，加入setspace包并设置行距为0.8（默认是1.0）
options(tikzDocumentDeclaration = "\\documentclass[10pt]{article}\n\\usepackage{setspace}\n\\setstretch{0.8}")
outfn<-"LineSpaceingExample.tex"
mydim <- 4
tikz(outfn,standAlone=TRUE,width=mydim,height=mydim)
mytext<- "This is some\nexample text"
x<-c(0, 1)
y<-x
plot(x, y, type = "n")
mtext(text=mytext, side=3,line=0.1)
dev.off()
# 用完后记得重置回默认设置，避免影响后续绘图
options(tikzDocumentDeclaration = NULL)

注意：这个方法会影响整个LaTeX文档里的所有文本（包括坐标轴标签、刻度文本等），如果只是要调整这两行的间距，前两种方法会更精准。

内容的提问来源于stack exchange，提问作者Chai