12

VennDiagram を使用して、次のコード例でベン図を作成します。

library(VennDiagram)
venn.diagram(list(shams_90d = 1:3, shams_90d_4h = 2:4, sham3__shams_90d = 3:5,
             sham3_90d__shams = 5:7, sham3_90d__shams_4h = 6:9),
             fill = c("red", "green", "blue", "yellow", "purple"),
             alpha = c(0.5, 0.5,0.5, 0.5, 0.5), cex = 1,cat.fontface = 2,
             lty =1, filename = "trial2.emf");

これにより、次の図が得られます。

ここに画像の説明を入力

フィギュアの左右の名前が切り取られており、下の名前も少しカットされています。幅を変えてみたのですが、ベン図自体が広くなり、名前が途切れてしまいます。

ダイアグラムの左右に空白を追加するか、ベン図に向かって名前を押し込むことにより、VennDiagram に完全な名前が含まれるようにするにはどうすればよいですか?

4

1 に答える 1

13

でラベル テキストを揃えることができますcat.just。パッケージリファレンスマニュアルは情報を提供します。パラメータの渡し方について。

あなたの例では、正当化の値に試行錯誤を使用しました。

# Plot
v <- venn.diagram(list(shams_90d = 1:3, shams_90d_4h = 2:4, sham3__shams_90d = 3:5,
                   sham3_90d__shams = 5:7, sham3_90d__shams_4h = 6:9),
              fill = c("red", "green", "blue", "yellow", "purple"),
              alpha = c(0.5, 0.5,0.5, 0.5, 0.5), cex = 1,cat.fontface = 2,
              lty =1, filename=NULL, cat.cex=0.8, 
              cat.just=list(c(0.6,1) , c(0,0) , c(0,0) , c(1,1) , c(1,0)))

grid.newpage()
grid.draw(v)

ここに画像の説明を入力

別のオプション (ちょっとした手っ取り早いハックの場合) は、cat.just引数を削除して小さいgrid::viewport. pdf(..., width=...)グラフィックウィンドウ/出力デバイス (つまり)の幅を微調整する必要がある場合があります。

# Plot
v <- venn.diagram(list(shams_90d = 1:3, shams_90d_4h = 2:4, sham3__shams_90d = 3:5,
                   sham3_90d__shams = 5:7, sham3_90d__shams_4h = 6:9),
              fill = c("red", "green", "blue", "yellow", "purple"),
              alpha = c(0.5, 0.5,0.5, 0.5, 0.5), cex = 1,cat.fontface = 2,
              lty =1, filename=NULL, cat.cex=0.8)

grid.newpage()
pushViewport(viewport(width=unit(0.8, "npc"), height = unit(0.8, "npc")))
grid.draw(v)

ここに画像の説明を入力

于 2014-04-03T01:31:08.817 に答える