維恩圖在R中具有5個變量

Question

我正在嘗試創建一個顯示變量重疊的圖表。 對於小於4組的維恩圖看起來像一個不錯的選擇，但我不能，因為它限制variables.I的數量有這樣的事情用“文氏圖”包這一點。 這是我的數據的樣子。

          **Groups                  Count**

            None                    151
               A                    121
               B                    108
               D                    4
               E    D                172
               C    D               1
               C    E   D           3
               A    D               6
               A    E   D           129
               A    C   D           3
               A    C   D   E       7
               B    D               7
               B    E   D           121
               B    C   D           6
               B    C   E   D       15
               B    A               153
               B    A   D           32
               B    A   E   D       200
               B    A   C           5
               B    A   C   D       4
               B    A   C   E   D   44

如果方便，我們可以忽略“ None”類。 將其繪制在維恩圖或其他合適的圖上的任何幫助都將非常有用。

Answer 1

如果您可能會覺得有趣，可以使用我的nVennR軟件包來構建准比例圖。 根據您的數據，

library(nVennR)
myV <- createVennObj(nSets = 5, sNames = c('A', 'B', 'C', 'D', 'E'))
myV <- setVennRegion(myV, c("A"), 121)
myV <- setVennRegion(myV, c("B"), 108)
myV <- setVennRegion(myV, c("D"), 4)
myV <- setVennRegion(myV, c("E", "D"), 172)
myV <- setVennRegion(myV, c("C", "D"), 1)
myV <- setVennRegion(myV, c("C", "E", "D"), 3)
myV <- setVennRegion(myV, c("A", "D"), 6)
myV <- setVennRegion(myV, c("A", "E", "D"), 129)
myV <- setVennRegion(myV, c("A", "C", "D"), 3)
myV <- setVennRegion(myV, c("A", "C", "D", "E"), 7)
myV <- setVennRegion(myV, c("B", "D"), 7)
myV <- setVennRegion(myV, c("B", "E", "D"), 121)
myV <- setVennRegion(myV, c("B", "C", "D"), 6)
myV <- setVennRegion(myV, c("B", "C", "E", "D"), 15)
myV <- setVennRegion(myV, c("B", "A"), 153)
myV <- setVennRegion(myV, c("B", "A", "D"), 32)
myV <- setVennRegion(myV, c("B", "A", "E", "D"), 200)
myV <- setVennRegion(myV, c("B", "A", "C"), 5)
myV <- setVennRegion(myV, c("B", "A", "C", "D"), 4)
myV <- setVennRegion(myV, c("B", "A", "C", "E", "D"), 44)
myV <- plotVenn(nVennObj = myV)
myV <- plotVenn(nVennObj = myV)

最后一條命令是有意復制的，因此結果被壓縮。 您可以在小插圖中找到詳細信息和其他更快的輸入形式。 結果：