Analysis in R: Venn diagrams made easy! “VennDiagram” package

Venn diagrams are useful for interpreting data, and there are many ways to create Venn diagrams in R. The “VennDiagram” package is useful because it allows you to treat data as a list, but if you have more than 4 comparisons, the data will not be ordered from left to right when plotted. However, if the number of data to be compared is 4 or more, the data will not be ordered from left to right when plotted, so you will need to be creative. In the ‘Execute command’ we have adjusted the data so that it is lined up from left to right.

＜おすすめのRに関する書籍です＞

The R Tips 第3版 データ解析環境Rの基本技・グラフィックス活用集

Rの基本操作からグラフィックスまで、実務で効くテクニックを集めた定番。逆引き的にも使える。

www.amazon.co.jp

Install Package

install.packages("VennDiagram")

Execute command

#Loading the library
library("VennDiagram")

###Creating Data Examples#####
A <- sample(1:1000, 100, replace = FALSE)
B <- sample(200:800, 100, replace = FALSE)
C <- sample(300:500, 100, replace = FALSE)
D <- sample(400:600, 100, replace = FALSE)
Data <- c(A, B, C, D)

#Assume 4 data
Point <- sample(c("Point1", "Point2", "Point3", "Point4"),
                   length(Data), replace = TRUE)

#Creation of data
ProtData <- data.frame(Data, Point)
########

###Plot a Venn Diagram#####
#Create labels, sort in descending order
Point <- sort(as.character(unique(ProtData[, 2]))) #Specify measurement column
#Adjustment so that measurement points are aligned from left to right
ifelse(length(Point) > 3, Point <- c(Point[1], Point[length(Point)],
                                           c(Point[2:(length(Point) - 1)])), invisible())

#Create a list to use for Venn diagram plotting
VennList <- vector("list", length(Point)) 
names(VennList)  <- Point

for(n in seq(Point)){
  VennList[[n]] <- subset(ProtData[, 1], ProtData[,2] %in% Point[n])
}

###Setting up a Venn diagram plot#####
#Set Venn diagram fill color
FillCol <- c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3")

#Plot
grid.newpage()
grid.draw(venn.diagram(
  x = VennList,
  fill = FillCol[1:length(Point)],
  filename = NULL))

Output Examples

I hope this makes your analysis a little easier !!

＜おすすめのRに関する書籍です＞

データに触れながら学ぶ統計学 R言語のUIツール「Exploratory」で身につくデータサイエンスの手法 | 西田勘一郎

RベースのUIツール「Exploratory」を使い、コードを書かずに統計とデータサイエンスの手法を体験できる。