Ниже приведен пример кода сюжета, который делает почти то, что я хочу. Единственное, что я хочу добавить, это отметки на оси x (такого же размера, как и основные тики) в соответствии с указанными ниже minor_breaks.
df <- data.frame(x = c(1900,1950,2000), y = c(50,75,60))
p <- ggplot(df, aes(x=x, y=y))
p + geom_line() +
scale_x_continuous(minor_breaks = seq(1900,2000,by=10), breaks = seq(1900,2000,by=50), limits = c(1900,2000), expand = c(0,0)) +
scale_y_continuous(breaks = c(20,40,60,80), limits = c(0,100)) +
theme(legend.position="none", panel.background = element_blank(),
axis.line = element_line(color='black'), panel.grid.minor = element_blank())
Спасибо заранее, --JT