R 在一致位置打印分割字符向量

好吧，我决定浪费一个晚上在R做一个刽子手游戏。所有的东西看起来都很好，除了一个未知数量的字母，这些字母被绘制出来，如图所示：

a
b
f
d
g

下面是一个使用

text

和

mtext

的示例/尝试：

FUN <- function(n) {
    plot.new()   
    mtext("wrong", side = 3, cex=1.5, adj = 0, padj = 1, col = "red") 
    wrong <- letters[1:n]
    text(0, .8, paste(wrong, collapse = "\n"), offset=.3, cex=1.5)
}

FUN(5)
FUN(10)

FUN2 <- function(n) {
    plot.new()   
    mtext("wrong", side = 3, cex=1.5, adj = 0, padj = 1, col = "red") 
    wrong <- letters[1:n]
    mtext(paste(wrong, collapse = "\n"), side = 3, cex=1.5,
        adj = 0, padj = 2.5)
}

FUN2(5)
FUN2(10)

---

FUN第一步！R游戏！你应该把它做成一个包，这样我就可以玩了；）

对于
text
可以使用
adj
参数，如果将其设置为1。然后，提供给
文本的
（x，y）
坐标是指包含文本的矩形的左上角

[0,1]中的一个或两个值，用于指定x（和
（可选）调整标签。在大多数设备上
超出该间隔的值也将起作用

（你要做幽默的木棍人物吗？听起来很有趣：D）
第一步！R游戏！你应该把它做成一个包，这样我就可以玩了；）

对于
text
可以使用
adj
参数，如果将其设置为1。然后，提供给
文本的
（x，y）
坐标是指包含文本的矩形的左上角

[0,1]中的一个或两个值，用于指定x（和
（可选）调整标签。在大多数设备上
超出该间隔的值也将起作用

（你打算做幽默的木棍人物画吗？听起来很有趣：D）
非常感谢。以下是软件包：
library（devtools）；安装github（“hangman”、“trinker”）
虽然我在Rstudio中尝试过，但如果窗口大小不合适，它会变得不稳定。非常感谢。以下是软件包：
library（devtools）；安装github（“hangman”、“trinker”）
尽管我在Rstudio中尝试过，但如果窗口大小不合适，它就会变得不稳定。
FUN <- function(n) {
    plot.new()   
    mtext("better?", side = 3, cex=1.5, adj = 0, padj = 1, col = "red") 
    wrong <- letters[1:n]
    text(0, .8, paste(wrong, collapse = "\n"), offset=.3, cex=1.5, adj=c(0,1))
}

FUN2 <- function(n) {
    plot.new()   
    mtext("better?", side = 3, cex=1.5, adj = 0, padj = 1, col = "red") 
    wrong <- letters[1:n]
    mtext(paste(wrong, collapse = "\n"), side = 3, cex=1.5,
        adj = 0, padj = 1) # adj=1 means text on right side instead of left.
}