假设我想绘制一个图,其中点和线都出现在每个组中的其对应线条的前面。特别地,我希望用红色填充点绘制组1,其中点由一条线连接,但我希望仅用蓝线绘制组2,并将其绘制在组1之上。例如,在基本图形中:
我认为这个问题的“最佳”解决方案是编写一个低级别的
set.seed(101)
dd <- data.frame(x=rep(1:10,2),
y=rep(1:10,2),
f=factor(rep(1:2,each=10)))
dd$y[11:20] <- dd$y[11:20] + rnorm(10)
d1 <- subset(dd,f=="1")
d2 <- subset(dd,f=="2")
par(cex=1.5)
plot(y~x,data=d1,bg="red",pch=21,type="o")
lines(y~x,data=d2,col="blue",lwd=2)
legend("bottomright",c("group 1","group 2"),
col=c("black","blue"),
pch=c(21,NA),
pt.bg=c("red",NA),
lty=1,
lwd=c(1,2))
(我的实际数据稍微复杂一些。)我试图在ggplot2
中干净地完成这个任务,但感觉有点疯狂。
如果我先绘制点再绘制线,组1的点会被同一组中的线覆盖:
library(ggplot2); theme_set(theme_bw())
g0 <- ggplot(dd,aes(x,y,fill=f,colour=f,shape=f))+
scale_fill_manual(values=c("red",NA))+
scale_colour_manual(values=c("black","blue")) +
scale_shape_manual(values=c(21,NA))
g0 + geom_point()+ geom_line()
ggsave("order2.png",width=3,height=3)
如果我在画点之前画线,第二组的线会被第一组的点覆盖: g0 + geom_line()+ geom_point()
ggsave("order3.png",width=3,height=3)
所需顺序为(组1行),(组1点),(组2行)。我可以通过再次手动叠加几何图形来实现这一点,一次处理一个组,但这样做太丑了。 g0 + geom_line() + geom_point()+
geom_point(data=d1)+
geom_line(data=d2,show.legend=FALSE)
ggsave("order4.png",width=3,height=3)
我认为这个问题的“最佳”解决方案是编写一个低级别的
geom_linepoint
,以达到所需效果;我已经研究了一些相关内容,但它并非完全简单...有人可以建议更干净、更简单的解决方案吗?
geom_linepoint()
(这是我想要已久的东西,但意识到geom_path
(用于扩展/修改的适当基础几何对象)比我能够快速处理的要复杂一些(例如,期望在<1小时内完成)... - Ben Bolkertype = 'b'
,当时还有一个名为 ggExtra 的附加包,编写了一个维基页面来描述这个过程等等。所以我觉得很奇怪,为什么每个人突然都认为扩展 ggplot2 是一件事,并且在内部更加稳健。多年来,我见过许多我贡献的东西被打破,这使我对引入自定义解决方案更加谨慎和警惕。 - baptiste