我有一个grob
对象(在我的情况下是euler
图)和一个ggplot
对象,我想将一个放置在另一个之上,例如:
library(eulerr)
library(ggplot2)
df <- data.frame(a=sample(100),b=sample(50:149),c=sample(20:119))
venn <- euler(list(
A=df$a,B=df$b[1:50],C=df$c
),shape='ellipse')
p_v <- plot(venn,quantities = T,fills=c('red','green','blue'))
p_g <- ggplot(df,aes(x=a,y=b)) + geom_point()
# Now I want somehow to draw p_v on top of p_g
p_g + p_v
例如,我尝试使用ggplotify
,但找不到摆脱作为第二个绘图的画布绘制的白色矩形的方法...