将函数应用于具有相同名称模式的多个变量

Question

我有一个包含许多变量的data.frame，我想将函数-log10(*htotal_pattern*)应用于具有相同名称模式htotal_的某些变量。即Win_htotal_surf_eez，Sum_htotal_surf_LME等

我知道R中有一个apply函数，但想知道是否可以使用变量名中的模式来完成它？您可以使用带有list.files的模式读取文件名。

Answer 1

只需使用grepl匹配您要操作的列名称，即在[运算符内返回逻辑向量以对数据帧进行子集化。因为log10是矢量化的，所以你可以这样做....

df[ , grepl( "htotal_" , names( df ) ) ] <-  -log10( df[ , grepl( "htotal_" , names( df ) ) ] )

矢量化示例

#  Set up the data
df <- data.frame( matrix( sample( c(1,10,1000) , 16 , repl = TRUE ) , 4 , 4 ) )
names( df ) <- c("htotal_1" , "htotal_2" , "not1" , "not2" )
#  htotal_1 htotal_2 not1 not2
#1       10       10   10 1000
#2       10       10    1   10
#3     1000        1    1 1000
#4       10     1000   10 1000

df[ , grepl( "htotal_" , names( df ) ) ] <-  -log10( df[ , grepl( "htotal_" , names( df ) ) ] )

#  htotal_1 htotal_2 not1 not2
#1       -1       -1   10 1000
#2       -1       -1    1   10
#3       -3        0    1 1000
#4       -1       -3   10 1000