增加ggplot上的軸線和繪圖線之間的距離

Question

如何增加下面的axis.line.y和下面的藍色geom_hline之間的距離？ 我想要兩者之間的差距，我不希望他們如情節所示親吻。

library(tidyverse)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  geom_hline(yintercept = 25, color = "blue") + 
  theme_minimal() + 
  theme(axis.line.y = element_line(color = "black"), 
        axis.ticks.y.left = element_line(color = "black"), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())

Answer 1

我不確定這是不是你想要的但是試試看。

library(tidyverse)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  geom_segment(aes(x = min(cty), y = 25, 
                   xend = max(cty), yend = 25), 
               data = mpg) +
  theme_minimal() + 
  theme(axis.line.y = element_line(color = "black"), 
        axis.ticks.y.left = element_line(color = "black"), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())