knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(jeksterslabRdatarepo)
library(knitr)
library(DT)
library(GGally)
library(plotly)
library(psych)

Load Data

data(
  thirst,
  package = "jeksterslabRdatarepo"
)

Data Table

datatable(thirst)

Plots

Scatter Plot Matrix

Note that jittering is added to avoid overplotting.

p <- ggpairs(
  data = thirst,
  lower = list(
    continuous = wrap(
      "points",
      position = position_jitter(
        height = 3,
        width = 3
      )
    )
  )
)
ggplotly(p)

Descriptive Statistics

kable(
  x = summary(
    thirst
  )
)
kable(
  x = describe(
    thirst
  )
)


jeksterslabds/jeksterslabRdatarepo documentation built on Jan. 5, 2021, 3:27 a.m.