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

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第一种选择是在绘图调用中添加 a作为第一层。来自?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)