pivot_table(
data = mtcars, col_names = "am", row_names = c("cyl", "vs"),
function_as_character = "mean(mpg)")
pivot_table(
data = mtcars, col_names = "am", row_names = c("cyl", "vs"),
function_as_character = "sum(mpg < 17)")
pivot_table(
data = mtcars, col_names = "am", row_names = c("cyl", "vs"),
function_as_character =
"round(sum(mpg < 17) / sum(!is.na(mpg)) * 100, 0)")
Run the code above in your browser using DataLab