import raw data

library(vroom)
library(here)
library(tidyverse)
library(fs)
options(dplyr.summarise.inform = FALSE)

devtools::load_all()

split-apply-combine

mmash %>% 
  group_by(day) %>% 
  summarise(across(
    c(age, weight),
    list(mean = mean, sd = sd,
         max = max, min = min),
    na.rm = T
  ))

Pivot longer

mmash %>% 
  select(-samples) %>% 
  pivot_longer(c(-user_id, -day, -gender))
View(mmash)
mmash %>%
  group_by(day) %>% 
  summarise(across(
    c(age, weight),
    list(mean = mean, sd = sd),
    na.rm = T
  )) %>% 
  pivot_longer(ends_with(c("mean","sd")))


Mortendall/LearnR3 documentation built on Sept. 15, 2020, 10:39 a.m.