R Add Frequency Distribution "Ticks" to ggplot

Question

I know this may not be the best example, but I would like to add the distribution of the x-variable (lstat) above the x-axis as shown in the example plot. I provide data for an MWE and the code for a simple line graph.

However, so far I have no clues on how to achieve this. Are there any hints on this?

library(ggplot2)
library(mlbench)

data(BostonHousing)

ggplot(data = BostonHousing) +
  geom_line(aes(x = lstat, y = medv))

Example Plot for the Frequency ticks above the x-axis:

Answer 1

You can also use the geom_segment function if you want to specify the height of the tick.

library(tidyverse)
library(mlbench)

data(BostonHousing)

ggplot(data = BostonHousing) +
  geom_line(aes(x = lstat, y = medv)) +
  geom_segment(aes(x = lstat, xend = lstat, yend = 3, y = 0))