如何使某些区域的某些区域的颜色为颜色，其余的空白？

Question

例如，制作a∩b红色和其他所有白色。我已经附上了当前代码和Venn图的图像。

install.packages("ggplot2")
install.packages("ggVennDiagram")
library(ggplot2)
library(ggVennDiagram)

## Creating a Venn Diagram

# use data frame as input

test = list(A = 1:1,B = 1:1)

# create a Venn diagram and display all sets

ggVennDiagram(test,label = c("none")) + 
scale_fill_gradient(low = "blue",high = "black") + 
theme(legend.position = "none",plot.background = element_rect(fill = "steelblue"),
panel.border = element_rect(fill = NA),plot.margin = margin(10, 10, 10, 10))

Answer 1

ggvenndiagram并非明确设计用于绘制设置成员资格的图表，但可以这样做。如果使用以下设置：

library(ggVennDiagram)
library(ggplot2)

test = list(A = 1:1, B = 1:1)

p <- ggVennDiagram(test,label = c("none")) +
     scale_color_manual(values = c("black", "black")) +
     theme(legend.position = "none",
        panel.border = element_rect(fill = NA, size = 2),
        plot.margin = margin(10, 10, 10, 10))

p$layers[[1]]$mapping <- aes(fill = name)

那么您可以轻松地指定会员资格 /非会员领域：首先，指定要指示区域是否在集合中的颜色：

yes <- "lightblue"
no  <- "white"

现在您可以绘制集合如下所示：

# A
p + scale_fill_manual(values = c(A = yes, B = no, A..B = yes))

# B
p + scale_fill_manual(values = c(A = no, B = yes, A..B = yes))

# A U B
p + scale_fill_manual(values = c(A = yes, B = yes, A..B = yes))

# A n B
p + scale_fill_manual(values = c(A = no, B = no, A..B = yes))

img src =“ https://i.sstatic.net/dduui.png

# A' U B'
p + scale_fill_manual(values = c(A = no, B = no, A..B = no)) +
  theme(panel.background = element_rect(fill = yes))

< img src =“ https://i.sstatic.net/52bht.png” alt

# B'
p + scale_fill_manual(values = c(A = yes, B = no, A..B = no)) +
  theme(panel.background = element_rect(fill = yes))

=“ https://i.sstatic.net/saock.png”

# A'
p + scale_fill_manual(values = c(A = no, B = yes, A..B = no)) +
  theme(panel.background = element_rect(fill = yes))

=“”>

希望您在这里有足够的时间为您想要适当的任何元素上色。

^由