ggplot 融化的数据共享共同的美学

Question

我需要从熔化的 data.table 中绘制一个图表，该图表混合了三个 geom：geom_line、geom_col 和 geom_point。 geom_line 和 geom_point 共享 color 美学：

set.seed(1)
time <- 1:10
mag  <- 10:20
q_mag <- c("up", "up", "down")
l_a  <- sample(1:12, 10)
l_b  <- sample(8:20, 10)
p_a  <- sample(1:12, 10)
p_b  <- sample(8:20, 10)

dt <- data.table(time, mag, q_mag, l_a, l_b, p_a, p_b)
dt <- melt(dt, measure.vars = c("mag", "l_a", "l_b", "p_a", "p_b"))


ggplot(data = dt, aes (x = time)) +
  geom_col( data = dt[variable %in% "mag"]
          , aes( y    = value
               , fill = q_mag)) +
  
  scale_fill_grey(start = .4) +
  
  geom_line( data = dt[variable %in% c("l_a", "l_b")]
            ,aes( y = value
                , color = variable)
            ,size =1) +
  
  geom_point( data = dt[variable %in% c("p_a", "p_b")]
             ,aes( y = value
                  ,color = variable
                  ,size = variable
                  ,shape = variable)) +

  scale_shape_manual( name = element_blank() 
                    , labels = c("Point A", "Point B")
                    , values = c("circle", "cross")
  )+    
  
  scale_size_manual( name = element_blank() 
                   , labels = c("Point A", "Point B")
                   , values = c(4,2)
  )+    
  
  scale_color_manual( name = element_blank()
                    , labels = c("Line A", "Line B", "Point A", "Point B")
                    , values = c("red", "green", "red", "blue")
  )

此代码按预期绘制图形：

不过，我想以另一种方式呈现图例：

Point A为大红圈，
Point B作为一个蓝色的小十字，
Line A为红色直线（无点），
Line B 为绿色直线（无点）。

如何完成所需的图例？

Answer 1

这可以通过允许多个色标的 ggnewscale 包轻松实现：

library(ggplot2)
library(data.table)
library(reshape2)
library(ggnewscale)

set.seed(1)
time <- 1:10
mag <- 10:20
q_mag <- c("up", "up", "down")
l_a <- sample(1:12, 10)
l_b <- sample(8:20, 10)
p_a <- sample(1:12, 10)
p_b <- sample(8:20, 10)

dt <- data.table(time, mag, q_mag, l_a, l_b, p_a, p_b)
dt <- melt(dt, measure.vars = c("mag", "l_a", "l_b", "p_a", "p_b"))

dt <- as.data.table(dt)

ggplot(data = dt, aes(x = time, y = value)) +
  geom_col(
    data = dt[variable %in% "mag"],
    aes(
      fill = q_mag
    )
  ) +
  geom_point(
    data = dt[variable %in% c("p_a", "p_b")],
    aes(
      color = variable,
      size = variable,
      shape = variable
    )
  ) +
  scale_fill_grey(start = .4) +
  scale_shape_manual(
    name = element_blank(),
    labels = c("Point A", "Point B"),
    values = c("circle", "cross")
  ) +
  scale_size_manual(
    name = element_blank(),
    labels = c("Point A", "Point B"),
    values = c(4, 2)
  ) +
  scale_color_manual(
    name = element_blank(),
    labels = c("Point A", "Point B"),
    values = c("red", "blue")
  ) + 
  new_scale_color() +
  geom_line(
    data = dt[variable %in% c("l_a", "l_b")],
    aes(
      color = variable
    ), size = 1
  ) +
  scale_color_manual(
    name = element_blank(),
    labels = c("Line A", "Line B"),
    values = c("red", "green")
  )

ggplot 融化的数据共享共同的美学

ggplot melted data sharing common aesthetics

r

ggplot2

ggnewscale