2012-07-24 76 views
1

好吧,我决定浪费晚上做刽子手游戏R.得到的一切看起来相当不错,除了字母数目不详这里看到,得到画在:阴谋分裂特征向量

a 
b 
f 
d 
g 

这里的使用textmtext一个例子/企图:

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) 

我怎样才能使它所以a在同一位置都FUN(5)FUN(10)阴谋?

回答

1

首先要走! R游戏!你应该完全打个包出来的,所以我可以玩;)

对于text可以使用adj说法,如果你把它设置为1,然后提供给text(x,y)坐标指的左上角包含文本的矩形。

adj:[0,1]中的一个或两个值,用于指定x(以及可选的y)调整标签。在大多数设备上 以外的值也会起作用。

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)) 
} 

注意adj=c(0,1),0为x轴对准,1为Y调整(该文件并没有真正搞清楚,但由于它是在[0,1]值我认为它是位置的调整为分数该维度中的标签长度​​)。

同样对于mtext,您需要使用padj=1,根据文档(因为您的文本方向是从左到右)进行顶部对齐。 adj参数是左右对齐。

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. 
} 

(你打算怎么办幽默坚持人的数字 - 这听起来很有趣:d)

+0

谢谢你了。这里是包:'库(devtools); install_github(“hangman”,“trinker”)' – 2012-07-24 05:01:48

+0

尽管我在Rstudio中试过,如果窗口大小不合适,它会变得不稳定。 – 2012-07-24 05:06:45