6.7 Scatterplots

load( "./data/parenthood.Rdata" )
parenthood%>%head

##   dan.sleep baby.sleep dan.grump day
## 1      7.59      10.18        56   1
## 2      7.91      11.66        60   2
## 3      5.14       7.92        82   3
## 4      7.71       9.61        55   4
## 5      6.68       9.75        67   5
## 6      5.99       5.04        72   6

parenthood%>%
  ggplot(aes(x=dan.sleep,y=dan.grump))+
  geom_point()

parenthood%>%
  ggplot(aes(x=dan.sleep,y=dan.grump))+
  geom_point(shape=21,stroke=0.5,fill="pink")+
  geom_smooth(method = "lm",se=F)+
  tvthemes::theme_avatar()

## `geom_smooth()` using formula = 'y ~ x'

  # ggthemes::theme_fivethirtyeight()

cor(x=parenthood)

##              dan.sleep  baby.sleep   dan.grump         day
## dan.sleep   1.00000000  0.62794934 -0.90338404 -0.09840768
## baby.sleep  0.62794934  1.00000000 -0.56596373 -0.01043394
## dan.grump  -0.90338404 -0.56596373  1.00000000  0.07647926
## day        -0.09840768 -0.01043394  0.07647926  1.00000000

pairs(parenthood)

pairs( formula = ~ dan.sleep + baby.sleep + dan.grump,
       data = parenthood)