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

Question

我正在制作一个线图,其中线条粗细被映射到第三个连续变量.但是,当将变量映射到size参数时geom_line,得到的图会产生一个断开的外观线的"粗略"图.有没有办法可以平滑地混合这些线条,以便线段之间没有明显的间隙？

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

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")

来自？geom_path:

lineend:线端样式(圆形,对接,方形)

linejoin:线连接样式(圆形,斜角,斜角)

(虽然看起来有点难看......)

有点疯狂:

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()

看起来join参数没有做任何事情,可能是因为ggplot将路径的每个部分绘制为一个单独的段...