In EvaMaeRey/tidypivot: Tidy table calculations with visual api

knitr::opts_chunk$set(echo = TRUE, message = F, warning = F, fig.height = 6, comment = "")
options(knitr.duplicate.label = "allow")
library(tidypivot)

---

library(tidypivot)

tidytitanic::tidy_titanic
tp_init(data = "tidytitanic::tidy_titanic")
   tp_add(rows = "sex") 
   tp_add(cols = "survived") 
   tp_add(rows = "c(sex, age)")

/* custom.css */
.left-code {
  color: #777;
  width: 54%;
  height: 92%;
  float: left;
}
.right-plot {
  width: 45%;
  float: right;
  padding-left: 1%;
}

---

.left-code[

library(tidypivot)

tidytitanic::tidy_titanic

]

.right-plot[

]

---

.left-code[

library(tidypivot)

# tidytitanic::tidy_titanic
tp_init(data = "tidytitanic::tidy_titanic")

]

.right-plot[

]

---

.left-code[

library(tidypivot)

# tidytitanic::tidy_titanic
tp_init(data = "tidytitanic::tidy_titanic", q = T)
   tp_add(rows = "sex") 

]

.right-plot[

]

---

.left-code[

library(tidypivot)

# tidytitanic::tidy_titanic
tp_init(data = "tidytitanic::tidy_titanic", q = T)
   tp_add(rows = "sex", q = T) 
   tp_add(cols = "survived") 

]

.right-plot[

]

---

.left-code[

library(tidypivot)

# tidytitanic::tidy_titanic
tp_init(data = "tidytitanic::tidy_titanic", q = T)
   tp_add(rows = "sex", q = T) 
   tp_add(cols = "survived", q = T) 
   tp_add(rows = "c(sex, age)")

]

.right-plot[

]

---

class: center, middle, inverse

Pipe dreams...

---

r flipbookr::chunk_reveal("goals", display_type = "code")

---

set_data(tidytitanic::tidy_titanic) |>
  set_cols(survived) |>
  set_rows(c(sex, age)) |>
  set_rows(sex)

EvaMaeRey/tidypivot documentation built on Feb. 27, 2025, 4:04 a.m.