如果在特定图中没有带有该标签的数据点，如何在图中添加图例标签？

Question

我制作了一系列地块（散点图）的GIF，显示了每年的纬度和经度点，显示了物种分布和种群分布。然而，在某些年份，某些物种没有价值（即当年没有收集任何个体）。这在GIF中产生了一个问题，因为从图到情节，图例应该是不变的。

我希望能够在图例中手动包含或插入这些缺失的物种，相应的物种名称和颜色值（即使它们不在所示的图中）。

可重复的例子（虽然我不知道是否有必要）：

    #Creating mock longitude and latitude poitns
    a <- c("1","1")
    b <- c("2","2")
    c <- c("3","1")
    d <- c("2","1")
    e <- c("2","3")
    f <- c("3","3")

    x <- rbind(a,b,c,d,e,f)
    #Assigning species to each observation.
    sp <- c("sp1", "sp1", "sp1", "sp1", "sp1", "sp2")
    year <- c(2000, 2000, 2000, 1999, 1999, 1999)

    x2 <- cbind(x, sp, year)

    df <- as.data.frame(x2)
    #Subset the df by year, which I have to do in my original dataset. 
    df99 <- subset(df, year==1999)
    df00 <- subset(df, year==2000)

    g1999 <- ggplot(data=df99, aes(V1, V2, colour=sp)) + geom_point()
    g2000 <- ggplot(data=df00, aes(V1, V2, colour=sp)) + geom_point()

在这种情况下，我想在图例中显示Sp1和Sp2的标签和颜色。

非常感谢任何帮助！

Answer 1

第一种方法是在情节调用中添加geom_blank作为第一层。来自?geom_blank：“空白的怪物什么都没有，但可以是确保不同地块之间共同比例的有用方法。”在这里，我们让geom_blank图层使用整个数据集df。因此，即使只有一部分数据用于geom_point的实际绘图，也会创建一个包含所有物种的图例。

ggplot(data = df, aes(V1, V2, colour = sp)) +
  geom_blank() +
  geom_point(data = df99)

ggplot(data = df, aes(V1, V2, colour = sp)) +
  geom_blank() +
  geom_point(data = df00)

另一种可能性是使用facet_wrap，它将每年的情节与一个共同的尺度放在一起。

ggplot(data = df, aes(V1, V2, colour = sp)) +
  geom_point() +
  facet_wrap(~ year)