Title

library(readr)
sleep <- read_csv("sleep.csv")

## Parsed with column specification:
## cols(
##   Species = col_character(),
##   BodyWt = col_double(),
##   BrainWt = col_double(),
##   Sleep = col_double(),
##   MaxAge = col_double(),
##   Gestation = col_double(),
##   Diet = col_character()
## )

Subtitle

library(ggplot2)

g0 <-ggplot(sleep,aes(x=Diet,y=Sleep))
g0 + geom_boxplot()

Sub sub title