如何在ggplot，R-studio中在x轴上调整年份之间的距离并调整geom_line（）的线？

Question

我想使用ggplot的geom_line（）创建折线图，其中年份之间的所有距离都相等，与年份变量的实际值无关，并且如果之间只有两年但不是之间，则连接geom_point（）的点如果时间距离大于该距离。

例：

my.data<-data.frame(
  year=c(2001,2003,2005,NA,NA,NA,NA,NA,NA,2019),
  value=c(runif(10)))

至于情节，我尝试了两种不同的方法，但都不理想：

1. 以breaks = year和minor_breaks = F的形式绘制连续变量的年份，其中，前三个观测值之间的距离显然比2005年至2019年之间的距离小得多，不幸的是，所有点都连接在一起：

library(ggplot2)
library(dplyr)

my.data %>%
  ggplot(aes(x=year,y=value)) + 
  geom_line() + 
  geom_point() + 
  scale_x_continuous(breaks=c(2001,2003,2005,2019), minor_breaks=F) +
  theme_minimal()

2. 删除NA并绘制年份作为因子，可以在年份之间产生相等的间隔，但是显然可以删除数据点之间的线：

my.data %>%
  filter(!is.na(year)) %>%
  ggplot(aes(x=factor(year),y=value)) + 
  geom_line() + 
  geom_point() + 
  theme_minimal()

这些问题有解决方案吗？ 我在俯视什么？

第一次尝试：

第二次尝试：

我需要什么（但理想情况下无需Paint的帮助）：

Answer 1

my.data %>%
  ggplot(aes(x=year)) + 
  geom_line(aes(y = ifelse(year <= 2005,value,NA))) + 
  geom_point(aes(y = value)) + 
  scale_x_continuous(breaks=c(2001,2003,2005,2019), minor_breaks=F) +
  theme_minimal()

也许像这样的东西会工作

Answer 2

我遇到了一些令人费解的问题，但不是超级干净的解决方案，但它可能会完成工作。 我正在检查是否应该使用lead（）将下一年连接到下一年。 并通过将它们变白来“删除”适当的连接。 虚拟列将所有年份放在一行而不是两年中。

my.data = data.frame(year=c(2001,2003,2005,2008,2009,2012,2015,2016,NA,2019),
                     value=c(runif(10))) %>%
  filter(!is.na(year)) %>%
  mutate(grouped = if_else(lead(year) - year <= 2, "yes", "no")) %>%
  fill(grouped, .direction = "down") %>%
  mutate(dummy = "all")

my.data %>%
  ggplot(aes(x = factor(year),y = value)) +
  geom_line(aes(y = value, group = dummy, color = grouped), show.legend = FALSE) +
  geom_point() +
  scale_color_manual(values = c("yes" = "black", "no" = "white")) +
  theme_classic()