首先,将所有绘图保存为对象(更改限制).
g
scale_x_continuous(limits=c(0,0.5))+
scale_y_continuous(limits=c(0.5,1)) +
theme(aspect.ratio=0.6) +
geom_point(alpha=I(1/50)) +
stat_density2d()
使用函数ggplot_build()保存用于绘图的所有信息.轮廓存储在对象数据[[2]]中.
gg
str(gg$data)
head(gg$data[[2]])
level x y piece group PANEL
1 10 0.1363636 0.7390318 1 1-1 1
2 10 0.1355521 0.7424242 1 1-1 1
3 10 0.1347814 0.7474747 1 1-1 1
4 10 0.1343692 0.7525253 1 1-1 1
5 10 0.1340186 0.7575758 1 1-1 1
6 10 0.1336037 0.7626263 1 1-1 1
总共有12条轮廓线,但只保留外线,您应该只对group ==“1-1”进行子集并替换原始信息.
gg$data[[2]]
然后使用ggplot_gtable()和grid.draw()来获取你的情节.
p1
grid.draw(p1)