5 回答

• 9

  前几天我遇到了这个问题 . Legends上的R Cookbook部分解释说：

  如果同时使用颜色和形状，则需要给出尺度规格 . 否则会有两个独立的传说 .

  在您的情况下，您需要 shape 和 linetype 的规格 .

  Edit

  创建形状颜色和线条的相同数据非常重要，我通过直接定义列来组合您的交互阶段 . 我使用 scale_linetype_manual 来代替 scale_linetype_discrete 来创建图例，因为默认情况下它们将采用四个不同的值 .

  如果您想要详细布局所有可能的形状和线型，请检查this R Graphics site以查看所有数字标识符：

  df.merged$int <- paste(df.merged$Type, df.merged$Method, sep=".")
  
  ggplot(df.merged, aes(x, y, colour = int, linetype=int, shape=int)) +
    geom_line() +
    geom_point() +
    scale_colour_discrete("") +
    scale_linetype_manual("", values=c(1,2,1,2)) +
    scale_shape_manual("", values=c(17,17,16,16))
  

  

  回复于 2024-04-19T22:56:18+08:00
• 20

  只需要将两个指南命名为相同 . 例如：

  g+ scale_linetype_manual(name="Guide1",values= c('solid', 'solid', 'dotdash'))+
     scale_colour_manual(name="Guide1", values = c("blue", "green","red"))
  

  回复于 2024-04-19T22:56:18+08:00
• 6

  以下是一般情况下的解决方案：

  # Create the data frames
  x <- seq(0, 10, by = 0.2)
  y1 <- sin(x)
  y2 <- cos(x)
  y3 <- cos(x + pi / 4)
  y4 <- sin(x + pi / 4)
  y5 <- sin(x - pi / 4)
  df1 <- data.frame(x, y = y1, Type = as.factor("sin"), Method = as.factor("method1"))
  df2 <- data.frame(x, y = y2, Type = as.factor("cos"), Method = as.factor("method1"))
  df3 <- data.frame(x, y = y3, Type = as.factor("cos"), Method = as.factor("method2"))
  df4 <- data.frame(x, y = y4, Type = as.factor("sin"), Method = as.factor("method2"))
  df5 <- data.frame(x, y = y5, Type = as.factor("sin"), Method = as.factor("method3"))
  
  # Merge the data frames
  df.merged <- rbind(df1, df2, df3, df4, df5)
  
  # Create the interaction
  type.method.interaction <- interaction(df.merged$Type, df.merged$Method)
  
  # Compute the number of types and methods
  nb.types <- nlevels(df.merged$Type)
  nb.methods <- nlevels(df.merged$Method)
  
  # Set the legend title
  legend.title <- "My title"
  
  # Initialize the plot
  g <- ggplot(df.merged, aes(x,
                             y,
                             colour = type.method.interaction,
                             linetype = type.method.interaction,
                             shape = type.method.interaction)) + geom_line() + geom_point()
  # Here is the magic
  g <- g + scale_color_discrete(legend.title)
  g <- g + scale_linetype_manual(legend.title,
                                 values = rep(1:nb.types, nb.methods))
  g <- g + scale_shape_manual(legend.title,
                              values = 15 + rep(1:nb.methods, each = nb.types))
  # Display the plot
  print(g)
  

  结果如下：

  

  • 正弦曲线绘制为实线，余弦曲线绘制为虚线 .

  • "method1"数据使用实心圆圈表示形状 .

  • "method2"数据使用填充三角形作为形状 .

  • "method3"数据使用填充钻石作为形状 .

  • 图例与曲线匹配

  总结一下，技巧是：

  • 对所有数据表示（颜色，形状，线型等）使用类型/方法 interaction

  • 然后使用 scale_xxx_manual 手动设置曲线样式和图例样式 .

  • scale_xxx_manual 允许您提供比实际曲线数更长的值向量，因此可以根据Type和Method因子的大小轻松计算样式向量值

  回复于 2024-04-19T22:56:18+08:00
• 7

  使用 labs() 并为定义geoms外观的所有美学设置相同的值 .

  library('ggplot2')
  ggplot(iris) + 
    aes(x = Sepal.Length, y = Sepal.Width, 
        color = Species, linetype = Species, shape = Species) +
    geom_line() +
    geom_point() +
    labs(color  = "Guide name", linetype = "Guide name", shape = "Guide name")
  

  

  回复于 2024-04-19T22:56:18+08:00
• 8

  如果我理解你的问题，下面的代码会产生所需的图例，但我不确定我是否理解标签问题，所以请告诉我这是不是你想要的 .

  p = ggplot(df.merged, aes(x, y, colour=interaction(Type, Method), 
                            linetype=interaction(Type, Method), 
                            shape=interaction(Type, Method))) + 
    geom_line() + 
    geom_point()
  
  p + scale_shape_manual(values=rep(16:17, 2)) +
    scale_linetype_manual(values=rep(c(1,3),each=2))
  

  

  回复于 2024-04-19T22:56:18+08:00