jkatam
Reputation: 3447
is it possible to add a custom table into survminer::ggsurvplot()
I am working on the kaplan meier plot and would like to know if it is possible to attach a custom table to the plot. similar to the one highlighted below.
data # copied from the code put in as an answer and mods notified to delete it as a non-answer.
adae2 <- structure(list(usubjid = c("01-701-1015", "01-701-1130", "01-701-1363",
"01-703-1100", "01-704-1164", "01-708-1286", "01-708-1296", "01-708-1316",
"01-709-1088", "01-709-1259", "01-709-1306", "01-709-1312", "01-710-1060",
"01-710-1077", "01-710-1264", "01-713-1179", "01-713-1256", "01-713-1269",
"01-717-1344", "01-718-1150", "01-718-1355", "01-701-1023", "01-701-1047",
"01-701-1118", "01-701-1153", "01-701-1203", "01-701-1234", "01-701-1345",
"01-701-1387", "01-701-1392", "01-701-1415", "01-701-1440", "01-703-1042",
"01-703-1096", "01-703-1175", "01-703-1210", "01-703-1299", "01-704-1010",
"01-704-1127", "01-704-1233", "01-704-1260", "01-704-1351", "01-704-1388",
"01-704-1435", "01-704-1445", "01-705-1018", "01-705-1059", "01-705-1186",
"01-705-1282", "01-705-1349", "01-706-1041", "01-707-1206", "01-708-1087",
"01-708-1158", "01-708-1171", "01-708-1253", "01-708-1342", "01-708-1378",
"01-709-1001", "01-709-1301", "01-709-1339", "01-710-1027", "01-710-1078",
"01-710-1083", "01-710-1183", "01-710-1271", "01-710-1314", "01-710-1315",
"01-710-1368", "01-711-1036", "01-714-1035", "01-714-1375", "01-715-1155",
"01-715-1207", "01-715-1397", "01-716-1024", "01-716-1026", "01-716-1044",
"01-716-1108", "01-716-1160", "01-716-1177", "01-716-1308", "01-716-1441",
"01-717-1201", "01-718-1139", "01-718-1172"), aesoc = c("GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS"), astdy = c(2,
23, 48, 24, 139, 3, 83, 177, 27, 78, 77, 28, 21, 26, 109, 28,
42, 7, 22, 56, 59, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA), inb = c(TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA), trt01a = c("Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo",
"Placebo", "Placebo", "Placebo", "Placebo", "Placebo", "Placebo"
), trt01an = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0), ina = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE), aval = c(2, 23, 48, 24, 139, 3, 83, 177, 27,
78, 77, 28, 21, 26, 109, 28, 42, 7, 22, 56, 59, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1), cnsr = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA,
-86L), groups = structure(list(usubjid = c("01-701-1015", "01-701-1023",
"01-701-1047", "01-701-1118", "01-701-1130", "01-701-1153", "01-701-1203",
"01-701-1234", "01-701-1345", "01-701-1363", "01-701-1387", "01-701-1392",
"01-701-1415", "01-701-1440", "01-703-1042", "01-703-1096", "01-703-1100",
"01-703-1175", "01-703-1210", "01-703-1299", "01-704-1010", "01-704-1127",
"01-704-1164", "01-704-1233", "01-704-1260", "01-704-1351", "01-704-1388",
"01-704-1435", "01-704-1445", "01-705-1018", "01-705-1059", "01-705-1186",
"01-705-1282", "01-705-1349", "01-706-1041", "01-707-1206", "01-708-1087",
"01-708-1158", "01-708-1171", "01-708-1253", "01-708-1286", "01-708-1296",
"01-708-1316", "01-708-1342", "01-708-1378", "01-709-1001", "01-709-1088",
"01-709-1259", "01-709-1301", "01-709-1306", "01-709-1312", "01-709-1339",
"01-710-1027", "01-710-1060", "01-710-1077", "01-710-1078", "01-710-1083",
"01-710-1183", "01-710-1264", "01-710-1271", "01-710-1314", "01-710-1315",
"01-710-1368", "01-711-1036", "01-713-1179", "01-713-1256", "01-713-1269",
"01-714-1035", "01-714-1375", "01-715-1155", "01-715-1207", "01-715-1397",
"01-716-1024", "01-716-1026", "01-716-1044", "01-716-1108", "01-716-1160",
"01-716-1177", "01-716-1308", "01-716-1441", "01-717-1201", "01-717-1344",
"01-718-1139", "01-718-1150", "01-718-1172", "01-718-1355"),
aesoc = c("GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS", "GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS",
"GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS"),
.rows = structure(list(1L, 22L, 23L, 24L, 2L, 25L, 26L, 27L,
28L, 3L, 29L, 30L, 31L, 32L, 33L, 34L, 4L, 35L, 36L,
37L, 38L, 39L, 5L, 40L, 41L, 42L, 43L, 44L, 45L, 46L,
47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 6L,
7L, 8L, 57L, 58L, 59L, 9L, 10L, 60L, 11L, 12L, 61L, 62L,
13L, 14L, 63L, 64L, 65L, 15L, 66L, 67L, 68L, 69L, 70L,
16L, 17L, 18L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L,
79L, 80L, 81L, 82L, 83L, 84L, 19L, 85L, 20L, 86L, 21L), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -86L), .drop = TRUE))
km1 <- survival::survfit(survival::Surv(aval,cnsr)~trt01a+aesoc, data=adae2)
survminer::ggsurvplot(km1, data = adae2, risk.table = FALSE,
legend='none',
title=paste0('SOC: ', aesoc),
ggtheme=theme_classic(),
tables.theme=theme_classic()
table to append
newtable1 <- summary(survival::survfit(survival::Surv(aval,cnsr)~trt01a+aesoc, data=adae2))$table
newtable2 <- tibble::rownames_to_column(as.data.frame(newtable1), 'grp') %>% mutate(grp=str_extract_all(grp,'(?=\\=).*(?<=\\,)'))
I see that by default, if i select the risk.table = TRUE, then i get the below table but i want the one like above, which i customized but i want to know how to pass it
survminer::ggsurvplot(km1, data = adae2, risk.table = TRUE,
legend='none',
title=paste0('SOC: ', {{aesoc}}),
legend.labs = c("Placebo", "Xanomeline High Dose", 'Xanomeline Low Dose'),
ggtheme=theme_classic(),
tables.theme=theme_classic()
)
Upvotes: 1
Views: 341
Answers (1)
Allan Cameron
Reputation: 173793
Here's a fully reproducible example. We start by loading the packages and data we need. Creating the adae2 dataframe the raw csv took a bit of wrangling and guesswork. You will probably want to skip this stage since you have already wrangled the data into the format you want:
library(tidyverse)
library(lubridate)
library(survminer)
library(survival)
aesoc <- 'GENERAL DISORDERS AND ADMINISTRATION SITE CONDITIONS'
adae <- read.csv(paste0('https://raw.githubusercontent.com/',
'phuse/main/adae.csv'))
adae1 <- adae %>%
filter(AESOC == aesoc) %>%
rename(trt01a = TRTA, usubjid = USUBJID) %>%
arrange(trt01a, usubjid) %>%
group_by(usubjid) %>%
summarize(aval = min(ASTDY[ASTDY >= 0]),
trt01a = first(trt01a),
aesoc = aesoc) %>%
arrange(trt01a, usubjid)
adae2 <- adae1 %>%
bind_rows(adae %>%
filter(AESOC != aesoc) %>%
rename(trt01a = TRTA, usubjid = USUBJID) %>%
arrange(trt01a, usubjid) %>%
group_by(usubjid) %>%
summarize(aval = NA_real_,
trt01a = first(trt01a),
aesoc = aesoc) %>%
arrange(trt01a, usubjid)) %>%
mutate(cnsr = ifelse(is.na(aval), 0, 1))
Now we create the model and the survplot, then store it:
km1 <- survfit(Surv(aval, cnsr) ~ trt01a + aesoc, data = adae2)
p1 <- ggsurvplot(km1, data = adae2, risk.table = TRUE,
legend='none',
title=paste0('SOC: ', {{aesoc}}),
legend.labs = c("Placebo",
"Xanomeline High Dose",
'Xanomeline Low Dose'),
ggtheme = theme_classic())
This takes us as far as you had got. Now we need to create a ggplot table and use it to over-write the risk table. This is fairly involved:
tabdata <- summary(km1)$table %>%
as.data.frame() %>%
tibble::rownames_to_column('grp') %>%
mutate(grp = unlist(str_extract_all(grp,'(?<=\\=).*(?=\\,)'))) %>%
pivot_longer(-grp) %>%
mutate(value = as.character(round(value, 3))) %>%
add_row(grp = "Placebo", name = "", value = "Placebo", .before = 1) %>%
add_row(grp = "Xanomeline Low Dose", name = "",
value = "Xanomeline Low Dose", .before = 1) %>%
add_row(grp = "Xanomeline High Dose", name = "",
value = "Xanomeline High Dose", .before = 1) %>%
mutate(name = factor(name, unique(name)),
grp = factor(grp, unique(grp)))
p1$table <- ggplot(tabdata, aes(as.numeric(name), grp)) +
geom_text(aes(label = value), size = 4, hjust = 1) +
labs(x = NULL, y = NULL) +
scale_x_continuous(position = "top", limits = c(-2, 10),
breaks = 1:10, labels = levels(tabdata$name)) +
theme_minimal(base_size = 12) +
theme(panel.grid = element_blank(),
panel.border = element_rect(fill = NA),
axis.text.y = element_blank(),
axis.text.x.top = element_text(hjust = 1))
However, we should now only need to do:
p1
Upvotes: 1
Related Questions
- Plot pairwise_survdiff result table together with combined ggsurvplots
- How to add a table to a ggplot?
- how to add table in ggplot grid
- How can I add a table to my ggplot2 output?
- How to plot a table object in ggplot
- How can I add specific value on x-axis in ggsurvplot/survminer in R?
- Adding table within the plotting region of a ggplot in r
- How to add a custom table to the top-right corner of a ggplot2 plot in R?
- Adding a table to ggplot figure
- How can I add a table to a graph?