플롯 분리 문자 벡터

Question

가 좋아 나는 R.있어 모든 것을 여기에와 같이 꾸몄다받을 문자의 알 수없는 번호를 제외하고는 꽤 좋은 찾고있는 행맨 게임을 저녁을 낭비하기로 결정 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(5) 및 FUN(10) 플롯의 a?

Answer 1

첫 번째 방법! R 게임! 그런 다음 text에 제공되는 (x,y) 좌표의 왼쪽 상단을 참조하면 1로 설정하면 text를 들어

당신의 adj 인수를 사용할 수 있습니다), 당신은 완전히 그렇게 내가 재생할 수에서 패키지를해야한다 텍스트를 포함한 구형

adj : 레이블의 x (및 경우에 따라 y) 조정을 지정하는 [0, 1]의 값 하나 또는 두 개. 대부분의 장치에서 해당 간격 밖에있는 값도 으로 작동합니다.

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)