ggplot 多次测量的分层汇总表
问题描述 投票：0回答：1
我有每个测量值（SYSBP、DIABP 等）多个时间点（0H、4H、8H 等）的生命体征数据。数据以长格式组织如下
data <- structure(list(SUBJID = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), VSTESTCD = c("HR",
"TEMP", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP",
"RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP",
"SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP",
"DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR",
"TEMP", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP",
"RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP",
"SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP",
"DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP"), APERIODC = c("Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2"), VSSTRESN = c(66, 36.5, 119,
78, 16, 67, 120, 77, 17, 69, 121, 79, 16, 70, 36.5, 122, 82,
17, 69, 36.5, 123, 83, 17, 69, 36.5, 121, 79, 17, 68, 36.6, 120,
77, 17, 68, 121, 77, 17, 70, 123, 77, 17, 72, 36.5, 122, 79,
17, 71, 36.5, 124, 81, 16, 69, 36.6, 122, 80, 18, 69, 36.6, 121,
80, 18, 67, 120, 79, 18, 69, 119, 78, 17, 68, 36.5, 121, 80,
18, 65, 36.6, 121, 80, 18, 70, 36.6, 121, 79, 18, 72, 36.6, 121,
80, 16, 69, 121, 80, 17, 66, 119, 78, 18, 68, 36.6, 120, 79,
18, 68, 36.6, 120, 79, 18, 67, 36.5, 119, 77, 17), VSTPT = c("0H",
"0H", "0H", "0H", "0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H",
"8H", "12H", "12H", "12H", "12H", "12H", "24H", "24H", "24H",
"24H", "24H", "36H", "36H", "36H", "36H", "36H", "0H", "0H",
"0H", "0H", "0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H",
"12H", "12H", "12H", "12H", "12H", "24H", "24H", "24H", "24H",
"24H", "36H", "36H", "36H", "36H", "36H", "0H", "0H", "0H", "0H",
"0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H", "12H",
"12H", "12H", "12H", "12H", "24H", "24H", "24H", "24H", "24H",
"36H", "36H", "36H", "36H", "36H", "0H", "0H", "0H", "0H", "0H",
"4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H", "12H", "12H",
"12H", "12H", "12H", "24H", "24H", "24H", "24H", "24H", "36H",
"36H", "36H", "36H", "36H")), row.names = c(NA, -112L), class = c("tbl_df",
"tbl", "data.frame"))
我的目标是在 gtsummary 中为下面的每个 VSTESCD 和每个 VSTPT 构建一个表。
我尝试使用嵌套功能，但没有收到想要的结果
data |>
select(SUBJID, VSTESTCD, APERIODC, VSSTRESN, VSTPT) |>
nest(data = -c(VSTPT, VSTESTCD)) |>
rowwise() |>
mutate(
tbl =
data |>
tbl_summary(
by = APERIODC,
digits = all_continuous() ~ 2,
include = -SUBJID,
type = VSSTRESN ~ "continuous",
statistic = VSSTRESN ~ "{mean} ({sd})",
label = list(VSSTRESN = VSTPT)
) |>
modify_header(list(
label ~ "**Test**",
all_stat_cols() ~ "**{level}**, N = {n}"
)) |>
list()
) |>
pull(tbl) |>
tbl_stack() |>
modify_spanning_header(all_stat_cols() ~ "**Stage**") |>
modify_table_body( ~.x |> dplyr::relocate(stat_1, .before = stat_2))
有人可以建议如何调整代码吗？
1个回答
0
投票
投票
我会这样做！
library(gtsummary)
data <- structure(list(SUBJID = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), VSTESTCD = c("HR",
"TEMP", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP",
"RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP",
"SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP",
"DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR",
"TEMP", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP",
"RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP",
"SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP",
"HR", "SYSBP", "DIABP", "RESP", "HR", "SYSBP", "DIABP", "RESP",
"HR", "TEMP", "SYSBP", "DIABP", "RESP", "HR", "TEMP", "SYSBP",
"DIABP", "RESP", "HR", "TEMP", "SYSBP", "DIABP", "RESP"), APERIODC = c("Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 1",
"Period 1", "Period 1", "Period 1", "Period 1", "Period 1", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2", "Period 2", "Period 2", "Period 2",
"Period 2", "Period 2", "Period 2"), VSSTRESN = c(66, 36.5, 119,
78, 16, 67, 120, 77, 17, 69, 121, 79, 16, 70, 36.5, 122, 82,
17, 69, 36.5, 123, 83, 17, 69, 36.5, 121, 79, 17, 68, 36.6, 120,
77, 17, 68, 121, 77, 17, 70, 123, 77, 17, 72, 36.5, 122, 79,
17, 71, 36.5, 124, 81, 16, 69, 36.6, 122, 80, 18, 69, 36.6, 121,
80, 18, 67, 120, 79, 18, 69, 119, 78, 17, 68, 36.5, 121, 80,
18, 65, 36.6, 121, 80, 18, 70, 36.6, 121, 79, 18, 72, 36.6, 121,
80, 16, 69, 121, 80, 17, 66, 119, 78, 18, 68, 36.6, 120, 79,
18, 68, 36.6, 120, 79, 18, 67, 36.5, 119, 77, 17), VSTPT = c("0H",
"0H", "0H", "0H", "0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H",
"8H", "12H", "12H", "12H", "12H", "12H", "24H", "24H", "24H",
"24H", "24H", "36H", "36H", "36H", "36H", "36H", "0H", "0H",
"0H", "0H", "0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H",
"12H", "12H", "12H", "12H", "12H", "24H", "24H", "24H", "24H",
"24H", "36H", "36H", "36H", "36H", "36H", "0H", "0H", "0H", "0H",
"0H", "4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H", "12H",
"12H", "12H", "12H", "12H", "24H", "24H", "24H", "24H", "24H",
"36H", "36H", "36H", "36H", "36H", "0H", "0H", "0H", "0H", "0H",
"4H", "4H", "4H", "4H", "8H", "8H", "8H", "8H", "12H", "12H",
"12H", "12H", "12H", "24H", "24H", "24H", "24H", "24H", "36H",
"36H", "36H", "36H", "36H")), row.names = c(NA, -112L), class = c("tbl_df",
"tbl", "data.frame"))
df_tbls <-
data |>
dplyr::filter(VSTESTCD %in% c("SYSBP", "DIABP")) |> # subsetting to get a smaller table
dplyr::mutate(VSTPT = factor(VSTPT, level = c("0H", "4H", "8H", "12H", "24H", "36H"))) |>
tidyr::nest(data = -VSTESTCD) |>
dplyr::mutate(
tbl =
purrr::map(
data,
~ .x |>
tbl_strata2(
strata = c(VSTPT),
\(df_subset, strata) {
df_subset |>
tbl_summary(
by = APERIODC,
digits = all_continuous() ~ 2,
include = -SUBJID,
type = VSSTRESN ~ "continuous",
statistic = VSSTRESN ~ "{mean} ({sd})",
label = list(VSSTRESN = strata)
) |>
modify_header(
label = "**Test**",
all_stat_cols() ~ "**{level}**"
)
},
.combine_with = "tbl_stack",
.combine_args = list(group_header = NULL)
)
)
)
tbl_final <-
tbl_stack(
df_tbls$tbl,
group_header = df_tbls$VSTESTCD
) |>
modify_header(groupname_col = "**Test**", label = "**Time**") |>
modify_spanning_header(all_stat_cols() ~ "**Stage**") |>
as_flex_table()
tbl_final
最新问题
- R 计算跨数据帧固定起点的递减滚动百分比
- JakartaEE 10 OpenIdAuthenticationMechanism 因 Auth0 失败
- Nuxt 3 - 在父组件中修改时，道具无法响应或正确更新
- Pytube 在获取 Youtube 视频详细信息时抛出错误
- NetBeans C/C++ 插件：如何调整 make 环境？
- Shadow DOM 自动化
- python中的tcp套接字客户端如何与uwsgi对话？
- 如何使用phpstan配置第三方方法的返回类型？
- TypeScript 中的时态 API 支持
- Pandas 在处理 10,000 行后速度变慢
- ´´´UWPLaunchActivatedEventArgs.Kind == ActivationKind.Protocol´´´ 永远不会实现
- (Flutter) HTTP 请求对于最新的 Android 设备没有响应
- 有没有办法计算节点上每个pod使用的总磁盘空间？
- 无法设置按钮图片列表
- Visual Studio（64 位）V17.11.5 (.NET V4.8.09032) 100% 缩放错误？
- RunReportRequest 中的新维度减少了 Google Analytics (GA4) Python 数据 API 中的结果
- 从 SQL 表创建 XML 表，其中 SQL 列标题是第一行？
- 是否可以在chart.js中隐藏分段？
- 是否可以在chart.js中隐藏分段？
- AWS ASG 暖池与 EKS 过度配置
© www.soinside.com 2019 - 2024. All rights reserved.