Sleep analysis

d<-read.csv("sleep.csv")

Relationship between body weight and sleep

Log transform body weight

library(ggplot2)
d$logwt<-log(d$BodyWt)

Try a linear model.

fig1<-ggplot(d,aes(x=logwt,y=Sleep)) +geom_point() + geom_smooth(method="lm")
fig1