벤 다이어그램 패키지의 합계 값을 재정의

Question

나는 가지 다음과 같습니다 데이터 집합이 있습니다

ID X Y Z 
1 T1 10 0 10 
2 T2 0 0 20 
3 T3 10 10 40 
4 T4 0 30 10 
5 T5 0 10 0 
... 

내가 reshape2와 데이터를 녹여과의 교차점을 시각화하기 위해 벤 다이어그램 패키지를 던질 수를 데이터 세트. 그러나. 카운트 (합계가 아님) 만 시각화 할 수 있습니다.

VennDiagram은 T1을 "1"XZ 교차점으로 인식합니다. 패키지를 "20"으로 계산하길 원합니다. 그리고 T3의 경우 XYZ의 "1"카운트가 아니어야합니다. "60"의 합계를 원합니다.

벤 다이어그램 설명서 : 사전에 cran.r.project.org

감사합니다!

편집 :

의 모양은 출력 ... NROWS 함께 합계 합계 곳

grid.newpage() 
draw.triple.venn(area1 = nrow(subset(accounts, X > 1)), 
      area2 = nrow(subset(accounts, Y > 1)), 
      area3 = nrow(subset(accounts, Z > 1)), 
      n12 = nrow(subset(accounts, X > 1 & Y > 1)), 
      n23 = nrow(subset(accounts, Y > 1 & Z > 1)), 
      n13 = nrow(subset(accounts, X > 1 & Z > 1)), 
      n123 = nrow(subset(accounts, X > 1 & Y > 1 & Z > 1)), 
      category = c("X", "Y", "Z"), 
      lty = "blank", 
      fill = c("pink1","mediumorchid","skyblue")) 

Answer 1

가 library(VennDiagram) 패키지가 작동하지 않습니다 당신이 계신이 가까이 있어야한다.

당신은 테이블이있을 수 있습니다

A1 A2 Overlap 
1 1 2 

을 그리고 당신은이 벤 다이어그램이 중첩의 오른쪽 원의 왼쪽 원 1, 1 및 2을 반영합니다.

이 코드를 실행 :

grid.newpage() 
draw.pairwise.venn(area1 = 1, 
        area2 = 1, 
        cross.area = 2) 

을 얻을 것입니다 :

Error in draw.pairwise.venn(area1 = 1, area2 = 1, cross.area = 2) : Impossible: cross section area too large.

그래서 우리는 각 영역에 중복을 추가하여 벤 다이어그램 라이브러리를 속임수해야합니다. 그렇게하면 원하는 것을 얻을 수 있습니다 : 1; 2; 1.

grid.newpage() 
draw.pairwise.venn(area1 = 1 + 2, 
        area2 = 1 + 2, 
        cross.area = 2) 

Answer 2

를 (단지 수를 사로 잡고,이 전류 출력) nrow 대신 sum을 사용하고 싶습니다. 또한 하위 집합에 대한 논리를 살펴보고 n12, n23 및 n23에 조건을 추가하는 것이 좋습니다.

예를 들어 n23의 경우 : Y > 1 & Z > 1 & X < 1 - X < 1이 추가 된 것을 확인하십시오. 당신이 행동을 예상대로

draw.triple.venn(area1 = sum(subset(accounts, X > 1)), 
       area2 = sum(subset(accounts, Y > 1)), 
       area3 = sum(subset(accounts, Z > 1)), 
       n12 = sum(subset(accounts, X > 1 & Y > 1 & Z < 1)), 
       n23 = sum(subset(accounts, Y > 1 & Z > 1 & X < 1)), 
       n13 = sum(subset(accounts, X > 1 & Z > 1 & Y < 1)), 
       n123 = sum(subset(accounts, X > 1 & Y > 1 & Z > 1)), 
       category = c("X", "Y", "Z"), 
       lty = "blank", 
       fill = c("pink1","mediumorchid","skyblue"))