Линии сверху и снизу участка графика ggplot

Question

Я хочу добавить линию вверху и внизу моих графиков (нижняя строка ниже метки x и оси), созданных с помощью ggplot2.Пока что я добавил прямоугольник вокруг графика, но я не хочу, чтобы линии были по бокам.

x <- 1:10
y <- rnorm(10,mean = x)
df <- data.frame(x,y)
library(ggplot2)
ggplot(data = df, mapping = aes(x,y)) + geom_point() +
  theme(plot.background = element_rect(size = 1, color = 'blue'))

Надеюсь, у вас, ребята, есть решение.

Answer 1

Не идеальное, но рабочее решение.Вы должны построить огромный «-» (size = 1000) за пределами участка.Это решение не идеально, поскольку вам необходимо вручную отрегулировать положение «-» на y-axis.

df <- data.frame(x = 1:10, y = 1:10)
library(ggplot2)
ggplot(df, aes(x, y)) + 
    geom_point() +
    # Y position adjusted manually
    geom_text(aes(5, 2.9, label = "-"), color = "blue", size = 1000)  +
    # Y position adjusted manually
    geom_text(aes(5, 21.2, label = "-"), color = "blue", size = 1000)  +
    # Plot outside plot area
    coord_cartesian(ylim = c(0, 10), clip = "off")

Answer 2

Будет ли что-то похожее на это работать?

x <- 1:10
y <- rnorm(10,mean = x)
df <- data.frame(x,y)
ggplot(data = df, mapping = aes(x,y)) + geom_point() +
    annotate(geom = 'segment', 
             y = Inf, 
             yend = Inf, 
             x = -Inf, 
             xend = Inf, 
             size = 2) +
    theme(axis.line.x = element_line(size = 1))