小编Edi*_*man的帖子

# Create plots
library(survival)
library(survminer)
data(lung)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurv <- ggsurvplot(fit, risk.table = TRUE,
                     tables.theme = clean_theme())

如何增加风险表层的字体大小？

谢谢！

我有一个数据库，其中有一个索引和该索引的大量列。\n我想添加一列，该列显示的值位于该索引的任何其他列中。

例如：

library(nycflights13)\nflights %>% \n  select(tailnum,flight) %>%\n  filter(!is.na(tailnum)) %>% \n  arrange(tailnum) %>% \n  group_by(tailnum) %>% \n  mutate(id = row_number()) %>%\n  pivot_wider(names_from = "id", values_from = "flight")\n

# A tibble: 4,043 x 576\n# Groups:   tailnum [4,043]\n   tailnum   `1`   `2`   `3`   `4`   `5`   `6`   `7`   `8`   `9`  `10`  `11`  `12`  `13`  `14`  `15`  `16`\n   <chr>   <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>\n 1 D942DN   2247  1685  1959   781    NA    NA …

我有一个看起来像这样的数据集：

ID  Bool1  Bool2  Bool3
A     0      0      1
A     1      0      0
A     0      1      0
A     0      0      1
B     1      0      0
B     0      1      0

我想把它转换成

ID  Bool1  Bool2  Bool3
A     1      1      1
B     1      1      0

意味着只有一个不同的 ID，每个不同的 ID都会收到它给出的所有“1”值。

有任何想法吗？