# NOT RUN {
library(ggplot2)
data(Poisson1_1D)
ggplot(countdata1) +
  geom_point(data = countdata1, aes(x = x, y = count), col = "blue") +
  ylim(0, max(countdata1$count)) +
  geom_point(data = pts1, aes(x = x), y = 0.2, shape = "|", cex = 4) +
  geom_point(
    data = countdata1, aes(x = x), y = 0, shape = "+",
    col = "blue", cex = 4
  ) +
  xlab(expression(bold(s))) +
  ylab("count")
# }
Run the code above in your browser using DataLab