Установка разрывов оси Y в ggplot

Мне сложно установить перерывы в моем коде, я пробовал добавить breaks = seq (0, 100, by = 20), но просто не могу заставить его работать правильно. По сути, я хочу, чтобы ось Y двигалась от 0 до 100 с тиками каждые 20.

    YearlyCI <- read.table(header=T, text='
  Station Year       CI        se
     M-25 2013 56.57098 1.4481561
     M-45 2013 32.39036 0.6567439
      X-2 2013 37.87488 0.7451653
     M-25 2008     74.5       2.4
     M-45 2008     41.6       1.1
     M-25 2004     82.2       1.9
     M-45 2004     60.6       1.0
     ')


library(ggplot2)
ggplot(YearlyCI, aes(x=Year, y=CI, colour=Station,group=Station)) +
  geom_errorbar(aes(ymin=CI-se, ymax=CI+se), colour="black", width=.2) +
  geom_line(size=.8) +
  geom_point(size=4, shape=18) +
  coord_cartesian(ylim = c(0, 100)) +
  xlab("Year") +
  ylab("Mean Condition Index") +
  labs(fill="") +
  theme_bw() +
    theme(legend.justification=c(1,1), legend.position=c(1,1)) 

Ответ 1

Вам нужно добавить

+ scale_y_continuous(breaks = seq(0, 100, by = 20))

РЕДАКТИРОВАТЬ: Согласно комментарию ниже, это работает, только если ось уже находится в соответствующем диапазоне. Для обеспечения диапазона вы можете расширить приведенный выше код следующим образом:

+ scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, by = 20))