分别是折线图,韦恩图,散点图,频率分布直方图,最后一个知识点是如何将这5个图组合到一起
image.png
首先是定义作图主题的内容
library(ggplot2)
My_Theme <- theme...- read_excel("data/20220627/Fig1.xlsx", sheet = "1a")
df.peer_highlight <- df.peer[c(9,21),]
p1 <- ggplot...(ggforce)
p2 <- ggplot(df.venn, aes(x0 = x, y0 = y, r = r, fill = labels)) +
geom_circle(alpha = .4...df.effmaf <- read_excel("data/20220627/Fig1.xlsx", sheet = "1c")
p3 <- ggplot(data = df.effmaf, aes...image.png
第四个散点图
df.efftss <- read_excel("data/20220627/Fig1.xlsx", sheet = "1d")
p4 <- ggplot(data