如何刻度線的大小和GGPLOT2

Question

分別指向

的代碼如下：

set.seed(123) 
d1=data.frame(x=runif(10),y=runif(10),z=runif(10,1,10)) 
d2=data.frame(x=runif(10),y=runif(10),z=runif(10,100,1000)) 
ggplot()+geom_point(aes(x,y,size=z),data=d1)+ 
geom_line(aes(x,y,size=z),data=d2) 

，結果是這樣的：

點的大小太小所以我想通過scale_size改變它的大小。但是，似乎線條和點都受到了影響。所以我想知道是否有一種方法可以用單獨的圖例分別縮放線條和點？

Answer 1

我能想到的兩種方式是1）結合兩個傳奇grobs或2）黑客另一個傳奇審美。 @Mike Wise在上面的評論中都提到了這兩點。

方法1：結合使用grobs在同一地塊中的2個獨立的傳說。

我用這個answer的代碼來抓取圖例。巴蒂斯特的arrangeGrob vignette是一個有用的參考。

爲 printing

library(grid); library(gridExtra) 

#Function to extract legend grob 
g_legend <- function(a.gplot){ 
    tmp <- ggplot_gtable(ggplot_build(a.gplot)) 
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box") 
    legend <- tmp$grobs[[leg]] 
    legend 
} 

#Create plots 
p1 <- ggplot()+ geom_point(aes(x,y,size=z),data=d1) + scale_size(name = "point") 
p2 <- ggplot()+ geom_line(aes(x,y,size=z),data=d2) + scale_size(name = "line") 
p3 <- ggplot()+ geom_line(aes(x,y,size=z),data=d2) + 
     geom_point(aes(x,y, size=z * 100),data=d1) # Combined plot 
legend1 <- g_legend(p1) 
legend2 <- g_legend(p2) 
legend.width <- sum(legend2$width) 

gplot <- grid.arrange(p3 +theme(legend.position = "none"), legend1, legend2, 
      ncol = 2, nrow = 2, 
      layout_matrix = rbind(c(1,2), 
            c(1,3)), 
      widths = unit.c(unit(1, "npc") - legend.width, legend.width)) 
grid.draw(gplot) 

注：使用arrangeGrob()代替grid.arrange()。我不得不使用png; grid.draw; dev.off來保存（arrangeGrob）情節。

方法2：黑客另一個審美的傳奇。

MilanoR在這方面有一個很棒的帖子，專注於顏色而不是尺寸。 更多舉例：1）discrete colour和2）colour gradient。

#Create discrete levels for point sizes (because points will be mapped to fill) 
d1$z.bin <- findInterval(d1$z, c(0,2,4,6,8,10), all.inside= TRUE) #Create bins 

#Scale the points to the same size as the lines (points * 100). 
#Map points to a dummy aesthetic (fill) 
#Hack the fill properties. 
ggplot()+ geom_line(aes(x,y,size=z),data=d2) + 
    geom_point(aes(x,y, size=z * 100, fill = as.character(z.bin)),data=d1) + 
    scale_size("line", range = c(1,5)) + 
    scale_fill_manual("points", values = rep(1, 10) , 
        guide = guide_legend(override.aes = 
           list(colour = "black", 
           size = sort(unique(d1$z.bin)))))