使用ggplot2平滑可变的线条尺寸边框

通过切换到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将路径的每个部分绘制为一个单独的段...