How to create tables in R with my specific pattern?
I am trying to save time getting a table as in the example below but in R without myself coping and pasting from R into word:
My specific type of data I have that I want to transform into something similar with the above picture is right here:
test_data <- structure(list(age_band = structure(c(3L, 3L, 3L, 2L, 1L, 2L,
2L, 1L, 1L, 3L), .Label = c("20-39", "40-59", "60+"), class = "factor"),
tested = c("positive", "positive", "showing symptoms",
"positive", "positive", "positive", "showing symptoms", "positive",
"positive", "showing symptoms"), comorbidities = structure(c(5L,
9L, 5L, 5L, 9L, 1L, 5L, 1L, 5L, 3L), .Label = c("asthma",
"diabetes_type_one", "diabetes_type_two", "heart_disease",
"hypertension", "kidney_disease", "liver_disease", "lung_condition",
"obesity"), class = "factor"), count = c(1L, 1L, 37L, 5L,
10L, 4L, 234L, 6L, 5L, 12L), percentage = c(50, 50, 45.7,
38.5, 35.7, 30.8, 30, 21.4, 17.9, 14.8)), row.names = c(NA,
-10L), groups = structure(list(age_band = structure(c(1L, 1L,
1L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("20-39", "40-59",
"60+"), class = "factor"), tested = c("positive", "positive",
"positive", "positive", "positive", "showing symptoms", "positive",
"positive", "showing symptoms", "showing symptoms"), comorbidities = structure(c(1L,
5L, 9L, 1L, 5L, 5L, 5L, 9L, 3L, 5L), .Label = c("asthma", "diabetes_type_one",
"diabetes_type_two", "heart_disease", "hypertension", "kidney_disease",
"liver_disease", "lung_condition", "obesity"), class = "factor"),
.rows = structure(list(8L, 9L, 5L, 6L, 4L, 7L, 1L, 2L, 10L,
3L), ptype = integer(0), class = c("vctrs_list_of", "vctrs_vctr",
"list"))), row.names = c(NA, 10L), class = c("tbl_df", "tbl",
"data.frame"), .drop = TRUE), class = c("grouped_df", "tbl_df",
"tbl", "data.frame"))
With my specific data - I want Age Band 20-39; 40-59 and 60+ just like 2015; 2016; 2017 in the table above and right under each age group I want tested and showing symptoms categories just like write and pass rate for each comorbidities in alphabetical order - asthma, cough, chills etc (which should appear on the side as rows - just like 'Ontario RN university program collaborative partner, and language instruction'. I want counts and percentages to be kept.
Is this possible in R? I have Kable but it does not do that way I want. There must be something similar?
====== Updated question ====
If this is possible with gt library please let me know?
You could use tables package:
library(tables)
tables::tabular((comorbidities = factor(comorbidities)+1)*((n=1)+Percent("col"))~(age_band=factor(age_band))*(tested=factor(tested)), data=test_data)
tested tested tested
comorbidities positive showing symptoms positive showing symptoms positive showing symptoms
asthma n 1.00 0 1 0 0 0
Percent 33.33 NaN 50 0 0 0
diabetes_type_two n 0.00 0 0 0 0 1
Percent 0.00 NaN 0 0 0 50
hypertension n 1.00 0 1 1 1 1
Percent 33.33 NaN 50 100 50 50
obesity n 1.00 0 0 0 1 0
Percent 33.33 NaN 0 0 50 0
All n 3.00 0 2 1 2 2
Percent 100.00 NaN 100 100 100 100
You can then export the result in the format you prefer, for example, toHTML:
