Mutation examples

library(dplyr)
library(datamations)

New data with added variable

small_salary <- dplyr::mutate(
  small_salary, 
  SalaryTwo = runif(nrow(small_salary), min = 60, max = 110),
  logNorm = rlnorm(nrow(small_salary), meanlog = 0, sdlog = 1)
  )

Log normal mutation

"small_salary %>%
  mutate(logged = log10(logNorm)) %>%
  group_by(Degree) %>%
  summarize(mean = mean(logged))" %>%
  datamation_sanddance()

Replay

Mathematical Notation

"small_salary %>%
  mutate(newVar = Salary^2) %>%
  group_by(Degree) %>%
  summarize(mean = mean(newVar))" %>%
  datamation_sanddance()

Replay

"small_salary %>%
  mutate(newVar = 1 / Salary) %>%
  group_by(Degree) %>%
  summarize(mean = mean(newVar))" %>%
  datamation_sanddance()

Replay

Multivariate

"small_salary %>%
  mutate(newVar = Salary + SalaryTwo) %>%
  group_by(Degree) %>%
  summarize(mean = mean(newVar))" %>%
  datamation_sanddance()

Replay

"small_salary %>%
  mutate(newVar = Salary / SalaryTwo) %>%
  group_by(Degree) %>%
  summarize(mean = mean(newVar))" %>%
  datamation_sanddance()

Replay

Mutations in a summarize

Currently the following statements error:

1. summarize(z = sum(x + y))
2. summarize(z = sum(x / y))
3. summarize(z = sum(x) / sum(y))

Two variable mutates

Two variable mutates also currently error

"small_salary %>%
  mutate(newVar = Salary + SalaryTwo, newVarTwo = Salary^2) %>%
  group_by(Degree) %>%
  summarize(mean = mean(newVar))" %>%
  datamation_sanddance()

## Error: More than one expression parsed