如何在R中创建嵌套表
我正在努力找出如何创建下表 使用以下数据集如何在R中创建嵌套表,r,expss,R,Expss,我正在努力找出如何创建下表 使用以下数据集 ```{r} df<-data.frame(ID=c(1,2,3,4,5,6), Treat_Cont = c("Treatment", "Treatment", "Treatment", "Control", "Control", "Control"), Q1 = c("Yes", "No", NA, "Yes", "No", NA), Q2 = c("Yes", "No", NA, "Yes", "
```{r}
df<-data.frame(ID=c(1,2,3,4,5,6),
Treat_Cont = c("Treatment", "Treatment", "Treatment", "Control", "Control", "Control"),
Q1 = c("Yes", "No", NA, "Yes", "No", NA),
Q2 = c("Yes", "No", NA, "Yes", "No", NA)
)
```
`{r}
df含expss的溶液。从我的观点来看,不太考虑代码:
library(expss)
df = data.frame(ID=c(1,2,3,4,5,6),
Treat_Cont = c("Treatment", "Treatment", "Treatment", "Control", "Control", "Control"),
Q1 = c("Yes", "No", NA, "Yes", "No", NA),
Q2 = c("Yes", "No", NA, "Yes", "No", NA)
)
df %>%
tab_total_row_position("none") %>% # suppress totals
tab_rows("|" = Treat_Cont) %>% # "|" suppress var. labels
tab_cols(total(label = "|")) %>% # "|" suppress var. labels
# if_na add values for NA
tab_cells("|" = if_na(Q1, "<NA>")) %>% # "|" suppress var. labels
tab_stat_cases(label = "Q1") %>% # calculate stats
tab_cells("|" = if_na(Q1, "<NA>")) %>% # "|" suppress var. labels
tab_stat_cases(label = "Q2") %>% # calculate stats
tab_pivot(stat_position = "inside_columns") %>% # labels reposition
tab_transpose() # transpose table
谢谢你的更正。代码已更新,您需要df%>%count(!!!names(.)
@akrun抱歉,我不熟悉此语法?运行代码,我不确定它会有什么帮助。你有什么特别的想法吗?刚刚检查了你的图像。您可能需要表格
,即库(表格);表格(Q1+Q2~Treat_Cont,df)
df %>%
calculate(
cro(Treat_Cont %nest% if_na(Q1, "<NA>"), list("Q1"), total_row_position = "none") %merge%
cro(Treat_Cont %nest% if_na(Q2, "<NA>"), list("Q2"), total_row_position = "none")
) %>%
tab_transpose()
with(df,
rbind(
"Q1" = table(Treat_Cont:addNA(Q1)),
"Q2" = table(Treat_Cont:addNA(Q2))
))