首页 文章

ggplot2：如何为添加到散点图的线添加图例？

提问于
浏览 次
1

我有一些x和y数据，我想在ggplot2散点图上进行比较 . 我想添加一个统一线（y = x），两个（y = 2x），一半（y = x / 2）和更平滑的线来帮助理解数据，但我找不到如何将这些线添加到情节的传说 . 任何的想法？

set.seed(123)
x <- runif(20, 1, 10)
y <- 0.8 * x + runif(20, -1, 1)
cat <- factor(c(rep("high", 10), rep("low", 10)))
d <- data.frame(x, y, cat)

ggplot(data=d) +
     geom_point(aes(x, y, colour=cat)) +
     geom_abline(aes(intercept=0, slope=1), col = "red") +
     geom_abline(aes(intercept=0, slope=0.5), col="blue", linetype="dotted") +
     geom_abline(aes(intercept=0, slope=2), col="blue", linetype="dashed")+
     geom_smooth(aes(x, y))

y vs x scatter plot in ggplot2

我希望标签的“统一线”，“双重”，“半”和“更平滑”出现在图例中的“高”和“低”标签下方 .

按照User3640617的回答，我尝试了以下代码，但结果仍不令人满意，因为数据点现在有一个线型和图例中链接到它们的平滑线型 .

ggplot(data=d) +
     geom_point(aes(x, y, colour=cat)) +
     geom_abline(aes(intercept=0, slope=1, colour="y = x")) +
     geom_abline(aes(intercept=0, slope=.5, colour="y = x/2")) +
     geom_abline(aes(intercept=0, slope=2, colour="y = 2x")) +
     geom_smooth(aes(x,y, colour="smooth")) +
     scale_color_manual(
        values=c("red", "darkgreen", "black", "blue", "red", "blue")) +
     scale_linetype_manual(
        values=c("blank", "blank", "solid", "dashed", "solid", "dotted")) +
     scale_shape_manual(values=c(1, 1, NA, NA, NA, NA))

此外，我似乎无法手动更改tinetypes：

scatter plot with ablines and smoother

我知道，我可以简单地选择其他颜色并且会有更少的混淆但是应该可以有一个只有点和线的点的图例而不是点和线的点 and 线，或者不是吗？

ggplot2似乎被 aes 之后添加 color 或 linetype 所困扰 . 将行添加到图例时，类别的顺序似乎会发生变化 .

r plot ggplot2 legend

3 回答

  • 1

    您可以将字符值映射到未使用的美学，以欺骗ggplot为您制作图例：

    ggplot(data=d) +
  geom_point(aes(x, y, colour=cat)) +
  geom_abline(aes(intercept=0, slope=1, lty='unity line'), col = "red")

    enter image description here

    使用 + scale_linetype(name = NULL) 删除 linetype 图例 Headers .

    回复于
  • 0

    我想没有办法让第二个数据集包含你的行 .

    获取线条的第二个图例的一种方法是按线型映射线条并硬编码颜色（然后手动调整图例中的颜色） .

    这可以这样做：

    library(ggplot2)

# 1 recreate the data
set.seed(123)
x <- runif(20, 1, 10)
y <- 0.8 * x + runif(20, -1, 1)
cat <- factor(c(rep("high", 10), rep("low", 10)))
d <- data.frame(x, y, cat)

# create the lines-data
d_lines <- data.frame(int = rep(0, 3),
                      sl = c(1, 0.5, 2),
                      col = c("red", "blue", "blue"),
                      lty = c("solid", "dotted", "dashed"))

# extract the linetypes from the data.frame (with names to map the values correclty)
ltys <- as.character(d_lines$lty)
names(ltys) <- as.character(d_lines$lty)
# extract the colors in the order that ggplot will put the names of the lines (dashed, dotted, solid)
cols <- as.character(d_lines$col)
cols <- cols[order(as.character(d_lines$lty))]

# plot the data
ggplot() +
  geom_point(data = d, aes(x, y, colour=cat)) +
  geom_smooth(data = d, aes(x, y)) +
  # add the two different line-colors
  geom_abline(data = d_lines[d_lines$col == "red", ], 
              aes(intercept = int, slope = sl, lty = lty), color = "red") +
  geom_abline(data = d_lines[d_lines$col == "blue", ], 
              aes(intercept = int, slope = sl, lty = lty), color = "blue") +
  # change the color of the legend
  scale_linetype_manual(name = "Linetype", values = ltys,
                        guide = guide_legend(override.aes = list(colour = cols)))
#> `geom_smooth()` using method = 'loess'

    回复于
  • 5

    也许不是一个非常简洁的解决方案，但您可以创建一个额外的数据框，其中包含您的统一线的信息，如下所示：

    dfabline <- data.frame(intercept=0, slope=1, group="unity line")

ggplot(data=d) +
  geom_point(aes(x, y, colour=cat)) +
  geom_abline(data=dfabline, aes(intercept=intercept, slope=slope,  colour=group))

    您可以使用 scale_colour_manual 指定线条的颜色和点数 .

    回复于

相关问题