使用mutate创建一个新列,mutate是数据帧(dplyr)中每一行的一组指定列内容的函数。

你可以 pmap 在 X 柱

library(tidyverse)
df %>% 
  mutate(median = pmap_dbl(select(., starts_with("X"))
                           , ~median(c(...))))

或使用 apply

df %>% 
  mutate(median = apply(select(., starts_with("X")), 1, median))

另一种不包括使用dplyr的方法

library(data.table)
# columns starts with X
df[,names(df) %like% "X"]

# output
    X001 X002
 1  124  486
 2  435  375
 3  324  156
 4  123  375


# get the median for each row using apply function
apply(df[,names(df) %like% "X"], 1, median)
#output - median of each row
305 405 240 249 

# store the results in a new column
df$median = apply(df[,names(df) %like% "X"],1,median)

# output
annotations X001 X002 median
1        some  124  486    305
2 information  435  375    405
3          in  324  156    240
4     columns  123  375    249