R、colorfulVennPlotの数字のサイズを変更するには？

Question

以下の例のように、colorfulVennPlotで作成したVennダイアグラムの数字のサイズを大きくする必要があります。どんな助けでも大歓迎です。

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

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