2012-07-24 74 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