r - 名称与模式匹配的列的 pmin

Question

我有这样一张表:

structure(list(Suggested.Symbol = c("CCT4", "DHRS2", "PMS2", 
"FARSB", "RPL31", "ASNS"), gwas_p.onset = c(0.9378, 0.5983, 7.674e-10, 
0.09781, 0.5495, 0.7841), gwas_p.dc14 = c(0.3975, 0.3707, 6.117e-17, 
0.2975, 0.4443, 0.7661), gwas_p.tfc6 = c(0.2078, 0.896, 7.388e-19, 
0.5896, 0.3043, 0.6696), gwas_p.tms30 = c(0.5724, 0.3409, 4.594e-13, 
0.2403, 0.1357, 0.3422)), row.names = c(NA, 6L), class = "data.frame")

我可以像这样按名称在某些列中找到最小值:

df <- df %>%
mutate(p.min = pmin(p_onset, p_dc14))

但是，我如何找到名称与特定模式匹配的所有列的 pmin，例如以“gwas_p”开头的列名??

Answer 1

在按给定名称模式(使用startsWith)选择必要的列后，您可以将do.call 与pmin 一起使用

> transform(df, p.min = do.call(pmin, df[startsWith(names(df), "gwas_p")]))
  Suggested.Symbol gwas_p.onset gwas_p.dc14 gwas_p.tfc6 gwas_p.tms30     p.min
1             CCT4    9.378e-01   3.975e-01   2.078e-01    5.724e-01 2.078e-01
2            DHRS2    5.983e-01   3.707e-01   8.960e-01    3.409e-01 3.409e-01
3             PMS2    7.674e-10   6.117e-17   7.388e-19    4.594e-13 7.388e-19
4            FARSB    9.781e-02   2.975e-01   5.896e-01    2.403e-01 9.781e-02
5            RPL31    5.495e-01   4.443e-01   3.043e-01    1.357e-01 1.357e-01
6             ASNS    7.841e-01   7.661e-01   6.696e-01    3.422e-01 3.422e-01