英文:
how to further refine expss table format?
问题
I am trying to improve my table design using expss. My current design is shown below using the following code:
library(expss)# bogus example datax <- structure(list(visits = structure(c(17, 2, 23, 1, 21), label = "Total # Home Visits", class = c("labelled", "numeric")), months_enrolled = structure(c(21.42474, 51.105, 52.474, 53.75, 60.0392105), label = "Enrollment Duration (months)", class = c("labelled","numeric")), marital2 = structure(c("Married", NA, "Married", "Married", "Married"), label = "Marital Status", class = c("labelled", "character")), Relationship2 = structure(c("Mother", "Mother", "Mother", "Mother", "Mother"), label = "Relationship (recoded)", class = c("labelled", "character"))), row.names = c(NA, 5L), class = "data.frame")htmlTable(x %>%tab_cells(visits, months_enrolled) %>%tab_rows(marital2, Relationship2, total()) %>%tab_stat_fun(Mean = w_mean, "Valid N" = w_n, method = list) %>%tab_pivot() %>%set_caption("Table 6: Bogus Visits and Duration by Characteristics") %>%htmlTable(., css.cell = c("width: 220px", # first column widthrep("width: 50px", ncol(.) - 1))))
I'd like to improve the table design by placing the mean statistics for Home Visits and Enrollment Duration as columns, thus saving a row for each level of Marital Status (and other vars in tab_rows). How is this achieved? Also, is it possible to shade alternate rows?
英文:
I am trying to improve my table design using expss. My current design is shown below using the following code:
library(expss)# bogus example datax<-structure(list(visits= structure(c(17, 2, 23, 1, 21), label = "Total # Home Visits", class = c("labelled", "numeric")), months_enrolled = structure(c(21.42474, 51.105, 52.474, 53.75, 60.0392105), label = "Enrollment Duration (months)", class =c("labelled","numeric")), marital2 = structure(c("Married", NA, "Married", "Married", "Married"), label = "Marital Status", class = c("labelled", "character")), Relationship2 = structure(c("Mother", "Mother", "Mother", "Mother", "Mother"), label = "Relationship (recoded)", class = c("labelled", "character"))), row.names = c(NA, 5L), class = "data.frame")htmlTable(x %>%tab_cells(visits,months_enrolled) %>%tab_rows(marital2, Relationship2, total()) %>% tab_stat_fun(Mean = w_mean, "Valid N" = w_n, method = list) %>%tab_pivot() %>%set_caption("Table 6: Bogus Visits and Duration by Characteristics") %>%htmlTable(.,css.cell = c("width: 220px", # first column widthrep("width: 50px", ncol(.) - 1))))
I'd like to improve the table design by placing the mean statistics for Home Visits and Enrollment Duration as columns, thus saving a row for each level of Marital Status (and other vars in tab_rows). How is this achieved? Also, is it possible to shade alternate rows?
答案1
得分: 1
以下是代码中需要翻译的部分：
"It seems, the simplest way is to transpose table:"
"Table 6: Bogus Visits and Duration by Characteristics"
英文:
It seems, the simplest way is to transpose table:
htmlTable(x %>%tab_cells(visits, months_enrolled) %>%tab_cols(marital2, Relationship2, total()) %>%tab_rows(total(label = "|")) %>%tab_stat_fun(Mean = w_mean, "Valid N" = w_n) %>%tab_pivot() %>%tab_transpose() %>%set_caption("Table 6: Bogus Visits and Duration by Characteristics") %>%htmlTable(.,css.cell = c("width: 220px", # first column widthrep("width: 50px", ncol(.) - 1))))
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论