使用ggplot2平滑可变线条边框边框

Question

我正在生成一个线图，其中线条粗细被映射到第三个连续变量。但是，在将变量映射到geom_line的大小参数时，结果图会产生一个＆＃34; chunky＆＃34;不连贯的线条图。有没有办法可以平滑地混合这些线条，以便线段之间没有明显的间隙？

我在下面制作了一个可重现的例子。

data(mtcars)
require(ggplot2)
mtcars$am<-factor(mtcars$am)
ggplot(data=mtcars,aes(x=mpg,y=hp))+geom_line(aes(color=am,size=disp))

制作以下图表：

例如，我想将am = 0的第一个线段的边界与第二个线段混合。

感谢您的帮助。

Answer 1

切换到geom_path可以做得更好一点，ggplot(data=plyr::arrange(mtcars,mpg), aes(x=mpg,y=hp))+ geom_path(aes(color=am,size=disp),lineend="round",linejoin="mitre") 尊重结束和连接线形状的指令：

library("ggplot2")
library("grid")
theme_set(theme_bw()+theme(axis.line=element_blank(),axis.text.x=element_blank(),
          axis.text.y=element_blank(),axis.ticks=element_blank(),
          axis.title.x=element_blank(),
          axis.title.y=element_blank(),legend.position="none",
          panel.background=element_blank(),
          panel.border=element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank(),plot.background=element_blank(),
          panel.margin=unit(0,"lines")))


library(gridExtra)
ggList <- list()
for (end in c("round","butt","square")) {
    for (join in c("round","mitre","bevel")) {
        ggList <- c(ggList,
                    list(ggplot(data=plyr::arrange(mtcars,mpg),
                                aes(x=mpg,y=hp))+
                             geom_path(aes(color=factor(am),size=disp),
                                       lineend=end,linejoin=join)+
                                 scale_size(guide="none")+
                                     scale_colour_discrete(guide="none")))
    }
}

png("linejoin.png",500,500)
do.call(grid.arrange,ggList)
dev.off()

来自?geom_path：

  

lineend ：行结束样式（圆形，对接，方形）

     

linejoin ：线条连接样式（圆形，斜角，斜角）

（虽然看起来有点丑陋......）

有点疯狂：

ggplot

看起来连接参数没有做任何事情，可能是因为{{1}}将路径的每个部分绘制为一个单独的段......