如何在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()