```r
p1 <- ggplot(punks) + 
  geom_bar(aes(x = Type, colour = TypeSkin, fill = TypeSkin)) 

p2 <- p1 + theme_classic() + theme(
  ## modify plot background
  plot.background = element_rect(fill = "lightskyblue1",colour = "pink",size = 0.5, linetype = "longdash")
  )
```