减少文本函数中字母之间的间距

Question

当我使用文字功能时，我试图找到一种减少图中字母间距的方法......

par(mar=rep(0,4))
plot.new()
text(0.5,0.8,"text", cex=8)

我希望每个字母之间几乎没有空格，或重叠选项（如下图中的底部......我在MS画中手工完成）。

Answer 1

以下是执行此操作的函数的开头：

   squishtext <- function(x,y, text, squish=1) {
        text <- strsplit(text, '')[[1]]
        w <- strwidth(text)
        ww <- cumsum(c(0,head(w,-1)) * squish)
        text( x + ww, y, text, adj=c(0,0) )
    }

和快速示例/检查：

    plot(1:10, type='n')
    text( 5, 3, "test", adj=c(0,0) )
    squishtext( 5, 4, "test", squish=1 )
    squishtext( 5, 5, "test", squish=0.8 )
    squishtext( 5, 6, "test", squish=0.5 )
    squishtext( 5, 7, "test", squish=1.2 )
    squishtext( 5, 8, "test", squish=2 )

可以将其扩展为采用其他参数（adj，cex等）。

Answer 2

一个选项：

par(mar=rep(0,4))
plot.new()

word = "text"
letters = strsplit(word,"")

xstart = .4
ystart = .8
space = .075

for(i in 1:length(letters[[1]])){

    text(xstart,ystart,letters[[1]][i], cex=8)
    xstart = xstart + space

}

虽然我个人而言，我会一次一个地手动完成这样的事情：

par(mar=rep(0,4))
plot.new()

text(.5,.8,"t", cex=8)
text(.57,.8,"e", cex=8)
text(.645,.8,"x", cex=8)
text(.7,.8,"t", cex=8)