2017-02-06 1 views
1

아래 예제처럼 colorfulVennPlot으로 만든 Venn 다이어그램에서 숫자의 크기를 늘려야합니다. 어떤 도움이라도 대단히 감사합니다.R, colorfulVennPlot에서 숫자의 크기를 변경하는 방법?

library(colorfulVennPlot) 
y <- c(37,29,6,232,121,77,25) 
names(y) <- c("001","010","011","100","101","110","111") 
labels <- c("A","B","C") 
plot.new() 
plotVenn3d(y, labels, Colors=rainbow(7), Title = "This is an example of a 3D Venn plot") 

답변

1

레이블 및 제목은 shrink 매개 변수로 조정할 수 있습니다. 하지만 plotVenn3d의 현재 버전에서 Venn 다이어그램의 숫자를 변경할 수있는 방법은 없습니다. 더 쉬운 해결 방법이있을 수 있지만, 하나의 옵션은 숫자의 크기를 조정하기 위해 새로운 매개 변수가 추가 된 plotVenn3d 함수의 수정 된 버전을 만드는 것입니다.

기능 코드를 얻으려면 plotVenn3d을 콘솔에 입력하기 만하면됩니다. 새 R 스크립트 파일에 코드를 복사하고 함수에 새로운 이름 (예 : myVenn)을 지정합니다. 이제 함수의 마지막 줄로 이동이에서 변경이에

for (i in 1:7) grid.text(values[i], centerLocations[i, 1], 
    centerLocations[i, 2]) 

: 우리는 내부의 숫자의 글꼴 크기를 설정하는 새로운 인수 num.size을 추가하는 방법

for (i in 1:7) grid.text(values[i], centerLocations[i, 1], 
    centerLocations[i, 2], gp=gpar(fontsize=num.size)) 

공지 사항 벤 다이어그램. (함수 선언에 num.size 인수를 추가하기 위해)이에

myVenn = function (x, labels = c("A", "B", "C"), 
        Colors = c("red", "yellow", "orange", "lightblue", "purple", 
           "green", "grey"), 
        Title = NULL, shrink = 1, rot = 0) 

: 이제 우리는 함수 인수를 선언 위로 가기 이동이에서 변경

myVenn = function (x, labels = c("A", "B", "C"), 
        Colors = c("red", "yellow", "orange", "lightblue", "purple", 
           "green", "grey"), 
        Title = NULL, shrink = 1, rot = 0, num.size=20) 

실행 새로운 함수가 글로벌 환경에 함수를로드하는 코드. 이제 myVenn을 사용하여 원하는 데이터를 얻을 때까지 데이터를 플롯하고 num.size 값으로 재생할 수 있습니다.

myVenn(y, labels, Colors=rainbow(7), Title = "This is an example of a 3D Venn plot", 
     num.size=50) 

enter image description here

예 :

관련 문제