Error bar ends missing

Question

The following example code:

require(ggplot2)

stats <- data.frame(Day=0:5, Mean=c(3.2, 2.7, 0.8, 0.2, 0, 0), Q10=0.0, Q90=c(7.48, 4.0, 2.2, 1.2, 0, 0))

plot          


        

Answer 1

Note the warning:

Warning message:
Removed 1 rows containing missing values (geom_path).

Use coord_cartesian to specify limits without discarding data:

plot <- ggplot(stats, aes(x=Day, y=Mean)) +
  geom_point(size=4) +
  geom_line(size=1.5) +
  geom_errorbar(aes(ymin=Q10, ymax=Q90), width=0.2) +
  ggtitle("Example") +
  ylab("Pain Score") +
  scale_x_continuous("Day", breaks=0:15, labels=c("DOS", 1:15)) +
  scale_y_continuous("Pain Score",  breaks=0:10) +
  coord_cartesian(xlim = c(-0.3, 15.3), ylim = c(-0.3,10.3))

print(plot)