Mammal sleep data - Quarto testing

msleep %>% 
     select(vore,name,contains('sleep'),contains('wt'))%>%
     na.omit() %>% 
     ggplot(aes(x=brainwt,y=sleep_total,color=vore,shape=vore,size=.1))+
     geom_point()+labs(x='Brainweight',y='Hours of Sleep',title='Mammal Sleep Data')