межстрочный интервал в аннотации R / tikz

Question

Я делаю фигуру в R, используя Tikz.Я добавляю текст, охватывающий две строки на полях, используя mtext.Как я могу уменьшить расстояние между двумя строками текста, сгенерированного mtext?

Вот пример сценария R:

library("tikzDevice")
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()

Рисунок, который я получаю после компиляции файла .tex, сгенерированного этим сценарием:

Чтобы уточнить, я хотел бы проконтролировать вертикальное расстояние между «Это какой-то» и «пример текста».

Answer 1

Очередной раунд Googling показал решение : уменьшение par()$lheight перед вызовом mtext.Следующий скрипт сделал трюк:

library("tikzDevice")
outfn<-"LineSpaceingExample.tex"
mydim<-4
tikz(outfn,standAlone=TRUE,width=mydim,height=mydim)
mytext1<- "This is the default\nline spacing"
mytext2<- "This is modified\nline spacing"
x<-c(0, 1)
y<-x
plot(x, y, type = "n")
mtext(text=mytext1, side=3,line=0.1, at=0.2)
par(lheight=0.8)
mtext(text=mytext2, side=3,line=0.1, at=0.8)
dev.off()