编辑：

Question

因此，随着时间的推移，我对某些物种的活动进行了data.frame。这是其中的一部分：

df <- structure(list(soort_wet = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 
        2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
        2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
        2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c("Callophrys rubi", 
            "Coenagrion hastulatum"), class = "factor"), periode = structure(c(1L, 
                            1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 6L, 6L, 7L, 7L, 8L, 8L, 9L, 
                            9L, 10L, 10L, 11L, 11L, 12L, 12L, 13L, 13L, 14L, 14L, 15L, 15L, 
                            16L, 16L, 17L, 17L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 21L, 22L, 
                            22L, 23L, 23L, 24L, 24L, 25L, 25L), .Label = c("1-mrt", "10-mrt", 
                  "20-mrt", "1-apr", "10-apr", "20-apr", "1-mei", "10-mei", "20-mei", 
                  "1-jun", "10-jun", "20-jun", "1-jul", "10-jul", "20-jul", "1-aug", 
                  "10-aug", "20-aug", "1-sep", "10-sep", "20-sep", "1-okt", "10-okt", 
                  "20-okt", "30-okt"), class = "factor"), activiteit = c(NA, NA, 
                    NA, NA, NA, NA, NA, NA, 0, NA, 1, 0, 1, 1, 3, 2, 3, 3, 3, 3, 
                    3, 3, 1, 2, 1, 2, 0, 1, 0, 1, NA, 1, NA, 0, NA, NA, NA, NA, NA, 
                   NA, 0, NA, 0, NA, NA, NA, NA, NA, NA, NA)), .Names = c("soort_wet", 
                   "periode", "activiteit"), class = "data.frame", row.names = c(9L, 
                           15L, 70L, 76L, 131L, 137L, 192L, 198L, 253L, 259L, 314L, 320L, 
                           375L, 381L, 436L, 442L, 497L, 503L, 558L, 564L, 619L, 625L, 680L, 
                           686L, 741L, 747L, 802L, 808L, 863L, 869L, 924L, 930L, 985L, 991L, 
                           1046L, 1052L, 1107L, 1113L, 1168L, 1174L, 1229L, 1235L, 1290L, 
                           1296L, 1351L, 1357L, 1412L, 1418L, 1473L, 1479L))

如您所见，我已将活动分为4个等级（0到3）。现在我想绘制一个图表，将活动显示为一条线。我正在使用ggplot2：

library(ggplot2)

# First attempt: size = 0 is still plotted as a line
ggplot(df, aes(x=periode,y=soort_wet, group=soort_wet)) +
  geom_line(aes(size=activiteit))

嗯，这几乎就是我想要的，除了：我想要acitiviteit == 0的行，因此大小== 0未绘制。 所以我的第一个问题是为什么要绘制尺寸== 0的线条，我该如何解决？ 请注意，我不想用NA替换0，因为这会导致我的线路过早结束。

我认为我可以通过将这些线条设为白色（或颜色= NA）来解决这个问题：

ggplot(df, aes(x=periode,y=soort_wet, group=soort_wet)) +
  geom_line(aes(size=activiteit,colour=ifelse(activiteit==0,NA,"black")))

但这让我陷入了更深的麻烦。有谁知道为什么这不起作用（奖金问题！）。

Answer 1

不可否认，这有点烦人。让我回顾一下你的尝试中的一些内容以及它为什么不能先发挥作用。

首先，简单地说明size=activiteit并不意味着值为0将导致大小为0. ggplot首先进行缩放，默认情况下为1到6之间。如果要映射要实际值，您必须使用scale_size_identity()或调整range中的scale_size_continuous。不幸的是，调整它会产生更好的图形，但由于某种原因我也不明白，该线仍然可见。

接下来，您的第二次尝试也不起作用，因为您现在正在映射值'black'（这种方法适用于基础R）。

现在，为了解决所有这些问题，我们可以在TRUE时创建一个activiteit == 0的新变量，并将该变量映射到alpha，这样我们就可以生成该行的那一部分透视的。

示例代码：

df$alp <- ifelse(df$activiteit == 0, T, F)

ggplot(df, aes(x=periode,y=soort_wet, group=soort_wet, alpha=alp)) +
  geom_line(aes(size=activiteit)) + theme_bw() +
  scale_alpha_manual(values = c("TRUE" = 0, "FALSE" = 1), guide = 'none') +
  scale_size_continuous(range = c(0, 15)) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

结果：

编辑：

我刚刚意识到有一种更简单的方法，你只需调整尺寸范围的限制就可以不包括0：

ggplot(df, aes(x=periode,y=soort_wet, group=soort_wet)) +
  geom_line(aes(size=activiteit)) + theme_bw() +
  scale_size_continuous(range = c(3, 15), limit = c(1, 3)) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

Answer 2

那对你有用吗？

你首先想要的子集

df_s <- df %>% filter(activiteit > 0)

然后绘制

ggplot(df_s, aes(x=periode,y=soort_wet, group=soort_wet)) +
  geom_line(aes(size=as.factor(activiteit)))

你的大小0不是情节。

尺寸= 0的线仍由geom_line

2 个答案:

编辑：