我在代码中设置中断时遇到了困难,我尝试添加break = 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))
答案 0 :(得分:28)
您需要添加
+ scale_y_continuous(breaks = seq(0, 100, by = 20))