Update tshirt_code.R

simple ggplot2 image