计算 R 中特定列集的观察值的中值

Calculationg median of observations in particular set of columns in R

我有一个包含以下列数据的 sf 对象:

HR60        HR70        HR80        HR90        HC60        HC70        HC80        HC90
0.000000    0.000000    8.855827    0.000000    0.0000000   0.0000000   0.3333333   0.0000000   
0.000000    0.000000    17.208742   15.885624   0.0000000   0.0000000   1.0000000   1.0000000   
1.863863    1.915158    3.450775    6.462453    0.3333333   0.3333333   1.0000000   2.0000000   
...

如何计算所有观察值的 HR60 到 HR90 列的中位数并将其放在不同的列中,比方说 HR 中位数?我尝试使用 apply(),但这种方法仅适用于整个数据集,我只需要考虑这 4 列。

我们可以select那些列

df1$HR_median <- apply(subset(df1, select = HR60:HR90), 1, median)