英文:
How to use tableone to change table percentage by row?
问题
I am use library(tableone) to make my descriptive statistics for multiple variables
This is my code:
我使用 `library(tableone)` 来生成多个变量的描述性统计数据。这是我的代码：library(tableone)myVars <- c("class", "age", "Sex", "bmi", "bmi_category","drink_freq", "smoke_yn", "edu_dummy")catVars <- c("class", "Sex", "bmi_category","drink_freq", "smoke_yn", "edu_dummy")tab1_inf <- CreateTableOne(vars = myVars, strata = "NEWDI",data = TKA_table1, factorVars = catVars)a1 <- print(tab1_inf, exact = "NEWDI", showAllLevels = TRUE)
This it default for percentage, and I want change it format like this(example):
这是默认的百分比格式，我想要更改成像这样（示例）：
I checked its description and found no options to set.
我查看了它的描述，没有找到设置选项。
https://rdrr.io/cran/tableone/man/print.TableOne.html
如何做到这一点？
英文:
I am use library(tableone) to make my descriptive statistics for multiple variables
This is my code:
library(tableone)myVars <- c("class", "age", "Sex", "bmi", "bmi_category","drink_freq", "smoke_yn", "edu_dummy")catVars <- c("class", "Sex", "bmi_category","drink_freq", "smoke_yn", "edu_dummy")tab1_inf <- CreateTableOne(vars = myVars, strata = "NEWDI",data = TKA_table1, factorVars = catVars)a1 <- print(tab1_inf, exact = "NEWDI", showAllLevels = TRUE)
This it default for percentage, and I want change it format like this(example):
I checked its description and found no options to set.
https://rdrr.io/cran/tableone/man/print.TableOne.html
How can I do it?
答案1
得分: 1
通过一些巧妙的操作，您可以操纵TableOne对象中的百分比。这使用了一个名为pbc的示例数据集，来自于survival包。
library(tableone)library(survival)data(pbc)## 将分类变量转换为因子varsToFactor <- c("status","trt","ascites","hepato","spiders","edema","stage")pbc[varsToFactor] <- lapply(pbc[varsToFactor], factor)## 创建变量列表vars <- c("time","status","age","sex","ascites","hepato","spiders","edema","bili","chol","albumin","copper","alk.phos","ast","trig","platelet","protime","stage")## 创建按trt分层的Table 1tableOne <- CreateTableOne(vars = vars, strata = c("trt"), data = pbc)tableOne
在之前的代码中，您可以尝试将以下代码适应您自己的数据格式：
for (i in 1:length(table1)) {sum = tableOne$CatTable[[1]][[i]]$freq + tableOne$CatTable[[2]][[i]]$freqtableOne$CatTable[[1]][[i]]$percent = tableOne$CatTable[[1]][[i]]$freq / sumtableOne$CatTable[[2]][[i]]$percent = tableOne$CatTable[[2]][[i]]$freq / sum}}tableOne
在之后的TableOne对象中，您将看到百分比已被调整。
英文:
With some clever getting-your-hands dirty, you can manipulate the percentages in the TableOne object. This uses an example dataset called pbc from survival package.
library(tableone)library(survival)data(pbc)## Make categorical variables factorsvarsToFactor <- c("status","trt","ascites","hepato","spiders","edema","stage")pbc[varsToFactor] <- lapply(pbc[varsToFactor], factor)## Create a variable listvars <- c("time","status","age","sex","ascites","hepato","spiders","edema","bili","chol","albumin","copper","alk.phos","ast","trig","platelet","protime","stage")## Create Table 1 stratified by trttableOne <- CreateTableOne(vars = vars, strata = c("trt"), data = pbc)tableOne
Before
Stratified by trt1 2 p testn 158 154time (mean (SD)) 2015.62 (1094.12) 1996.86 (1155.93) 0.883status (%) 0.8940 83 (52.5) 85 (55.2)1 10 ( 6.3) 9 ( 5.8)2 65 (41.1) 60 (39.0)age (mean (SD)) 51.42 (11.01) 48.58 (9.96) 0.018sex = f (%) 137 (86.7) 139 (90.3) 0.421ascites = 1 (%) 14 ( 8.9) 10 ( 6.5) 0.567hepato = 1 (%) 73 (46.2) 87 (56.5) 0.088spiders = 1 (%) 45 (28.5) 45 (29.2) 0.985...
You should try to adapt the following code for your own data format:
for (i in 1:length(table1)) {sum = tableOne$CatTable[[1]][[i]]$freq + tableOne$CatTable[[2]][[i]]$freqtableOne$CatTable[[1]][[i]]$percent = tableOne$CatTable[[1]][[i]]$freq / sumtableOne$CatTable[[2]][[i]]$percent = tableOne$CatTable[[2]][[i]]$freq / sum}}tableOne
After
Stratified by trt1 2 p testn 158 154time (mean (SD)) 2015.62 (1094.12) 1996.86 (1155.93) 0.883status (%) 0.8940 83 (0.5) 85 (0.5)1 10 (0.5) 9 (0.5)2 65 (0.5) 60 (0.5)age (mean (SD)) 51.42 (11.01) 48.58 (9.96) 0.018sex = f (%) 137 (0.5) 139 (0.5) 0.421ascites = 1 (%) 14 (0.6) 10 (0.4) 0.567hepato = 1 (%) 73 (0.5) 87 (0.5) 0.088spiders = 1 (%) 45 (0.5) 45 (0.5) 0.985
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论