1

我试图节省时间获取表格，如下面的示例所示，但在 R 中，我没有自己应对并从 R 粘贴到 word在此处输入图像描述

我想要转换为与上图类似的特定类型的数据就在这里：

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"))

使用我的具体数据 - 我想要年龄带，20-39; 40-59 and 60+就像2015; 2016; 2017上表和每个年龄段的正 tested and showing symptoms下方一样和要保留的百分比。writepass rateasthma, cough, chills etc'Ontario RN university program collaborative partner, and language instruction'

这在R中可能吗？我有 Kable，但它并没有按照我想要的方式进行。应该有类似的吧？

======更新问题====

如果 gt 库可以做到这一点，请告诉我？干杯!

4

1 回答 1

1

你可以使用tables包：

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

然后，您可以以您喜欢的格式导出结果，例如toHTML： 在此处输入图像描述

于 2020-09-29T20:32:54.917 回答