# NOT RUN {
library(ggplot2)
ggplot()+xlim(-0.5, 10.5)+
geom_rect_cm(aes(x=1: 10, y=rep(4, 10)), fill="red", height=rep(1: 2, each=5),
vjust=rep(c(0, 0.5), 5))+
geom_point(aes(x=1: 10, y=rep(4, 10)), color="green")
# }
Run the code above in your browser using DataLab