颜色 aes 断开 geom_line()

Question

我正在尝试绘制绘图，并在 p > 0.5 时显示不同的颜色，但是当我使用颜色 aes 时，线条似乎断开了。

library(tidyverse)

data <- tibble(n = 1:365)

prob <- function (x) {
  pr <- 1
  for (t in 2:x) {
    pr <- pr * ((365 - t + 1) / 365) 
  }
  return(1 - pr)
}


data %>%
  mutate(prob = map_dbl(n, prob)) %>%
  filter(n < 100) %>%
  ggplot(aes(x = n, y = prob, color = prob > 0.5)) + geom_line() + 
  scale_x_continuous(breaks = seq(0,100,10))

有人知道为什么吗？移除颜色aes() 提供了一个独特的线条。

Answer 1

这是因为prob 是一个离散变量，条件prob > 0.5 将您的数据分成两部分，它们之间存在差距：前半部分有max(prob) = .476，后半部分有min(prob) = .507。因此，折线图上的（垂直）差距就是这个数字之间的差距。

你可以看到它，如果你过滤修改后的 data 以获得接近 0.5 的值：

data %>%
  mutate(prob = map_dbl(n, prob)) %>%
  filter(n < 100) %>%
  filter(between(prob, .4, .6))

如果我们修改您的示例：

data2 <- data %>%
  mutate(prob = map_dbl(n, prob)) %>%
  filter(n < 100)

#bringing extremes closer together
data2$prob[22] <- .49999999999999
data2$prob[23] <- .50000000000001

data2 %>%
  ggplot(aes(x = n, y = prob, color = prob >= 0.5)) + geom_line() + 
  scale_x_continuous(breaks = seq(0,100,10))

差距明显变小：

但是，它仍然存在（主要是在水平层面上） - 因为 x 变量也是离散的

解决此问题的一种简单方法是在aes() 中添加虚拟美学group = 1，它会覆盖x 变量的默认分组。

data %>%
  mutate(prob = map_dbl(n, prob)) %>%
  filter(n < 100) %>%
#add 'group = 1' below
  ggplot(aes(x = n, y = prob, color = prob >= 0.5, group = 1)) + geom_line() + 
  scale_x_continuous(breaks = seq(0,100,10))