2

コードを使用して、以下のベン図をプロットしました。

# Venn Diagram
grid.newpage();
venn.plot4 <- draw.quad.venn(
    area1 = 849, area2 = 7181, area3 = 1776, area4 = 6254,
    n12 = 0, n13 = 849, n14 = 0, n23 = 927, n24 = 6254, n34 = 0,
    n123 = 0, n124 = 0, n134 = 0, n234 = 0,
    n1234 = 0,
    category = c("A", "B", "C", "D"),
    fill = c("orange", "red", "green", "blue"),
    lty = "dashed",
    cex = 2,
    cat.cex = 2,
    cat.col = c("orange", "red", "green", "blue")
    );
grid.draw(venn.plot4);

ベン図

重複していない領域が多数あります(0)。重なり合う領域に応じて幾何学的形状を調整する方法を教えてください。

編集 @ zx8754 による提案を検討した後、venneulerパッケージを使用してプロットしようとしました。前のプロットよりも良く見えます。ただし、重複する領域 A と C は実際の値を反映していません (A は完全に C の一部である必要があります)。プロットに数値をプロットするオプションも表示されませんでした。どんな提案でも大歓迎です。 

# including the null values 
vd <- venneuler(c(A=849, B=7181, C=1776, D=6254, 
                  "A&B"=0, "A&C"=849, "A&D"=0, "B&C"=927, "B&D"=6254, "C&D"=0))
plot(vd)

ベンプロット

d3vennR以下のコードでパッケージも試しました

venn_tooltip(
    d3vennR(
        data = list(
            list(sets= list('A'), size= 849),
            list(sets= list('B'), size= 7181),
            list(sets= list('C'), size= 1776),
            list(sets= list('D'), size= 6254),
            list(sets= list('A','B'), size= 0),
            list(sets= list('A','C'), size= 849),
            list(sets= list('A','D'), size= 0),
            list(sets= list('B','C'), size= 927),
            list(sets= list('B','D'), size= 6254),
            list(sets= list('C','D'), size= 0)
        )
        ,layoutFunction = '
function(d) { return venn.venn(d, { initialLayout: venn.classicMDSLayout });}
  '
    ))

Bとの領域の間に重複がありますがC、出力からは重複がないことがわかりました。これを修正する方法についてアドバイスしてください。

4

2 に答える 2

0

これは私のパッケージnVennRにぴったりのようです。これはデータの例ですが、データを入力するにはもっと便利な方法があります。

library(nVennR)
myV <- createVennObj(nSets = 4, sNames = c('A', 'B', 'C', 'D'))
myV <- setVennRegion(myV, c('A', 'C'), 849)
myV <- setVennRegion(myV, c('B', 'C'), 927)
myV <- setVennRegion(myV, c('B', 'D'), 6254)
myPlot <- plotVenn(nVennObj = myV, setColors=c("orange", "red", "green", "blue"), opacity=0.2)

結果：

オイラー線図

于 2019-02-07T18:57:30.560 に答える