使用ggplot2在Venn中自定义重叠区域的颜色

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

A <- c("apple", "banana", "orange")
B <- c("banana", "grape", "pineapple")
C <- c("apple", "grape", "watermelon")

venn_data <- data.frame(
  labels = c("A", "B", "C"),
  values = c(length(A), length(B), length(C))
)

ggplot(venn_data, aes(x = "", y = values, fill = labels)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar(theta = "y") +
  theme_void() +
  scale_fill_manual(values = c("red", "blue", "green"))

ggplot(venn_data, aes(x = "", y = values, fill = labels)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar(theta = "y") +
  theme_void() +
  scale_fill_manual(values = c("red", "blue", "green")) +
  geom_text(aes(label = values), position = position_stack(vjust = 0.5)) +
  labs(title = "Customized Venn Diagram", fill = "Sets")