Ответ 1
Вот хакерский способ сделать это:
d = data.frame(x = 1:20, y = rnorm(20, 5, 5))
ggplot(data = d, aes(x = x, y = y)) +
scale_x_continuous(breaks = c(1:20, seq(2.54, 20, 2.54)),
labels = c(1:20, paste0("\n", 1:as.integer(20/2.54), "\""))) +
geom_point()