2plus2.R

library(ggplot2)

x <- seq(2,6,0.05)
toplot <- data.frame(x=x, y=dnorm(x, mean=4, sd=0.5))
gg <- ggplot(toplot, aes(x,y)) + 
  geom_polygon(fill="lightsteelblue", color="steelblue") +
  geom_segment(data=data.frame(x=4, xend=4, y=0, yend=0.82), 
               aes(x, xend=xend, y=y, yend=yend), 
               color="steelblue4", size=1) + 
  geom_text(data=data.frame(x=1.7, y=0.1,txt="2+2="), aes(x,y,label=txt), 
            size=62, vjust=0, color="steelblue4") +
  scale_x_continuous(limit=c(-0, 5.5), breaks=c(3,4,5), expand=c(0,0)) +
  scale_y_continuous(limit=c(0,0.82), expand=c(0,0)) +
  theme(panel.background=element_rect(fill=NA, color=NA),
        panel.grid.major=element_blank(),
        axis.text.y=element_blank(),
        axis.text.x=element_text(size=22),
        axis.title=element_blank(),
        axis.ticks.y=element_blank())
print(gg)
# ggsave(gg, filename = "2plus2.pdf", width=10.5, height=2.6)
# system("open 2plus2.pdf")