保持名称与申请

Keep names with apply

我有一个命名向量,例如:

mochila

r01 r02 r03 r04 
0   0   0   0   

还有一个数据框

data
        req_ID effort satisfaction
    1     r01      1           62
    2     r02      4           55
    3     r03      2           29
    4     r04      3           41

如果我手动更改值,它会保留名称

mochila[1] <- 1
mochila

r01 r02 r03 r04 
  1   0   0   0  

但是,例如,如果我这样申请

myfun<- function(x){
  return(1)
}

mochila <- apply(data,1,myfun)

结果:

mochila

 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

我失去了所有命名的位置,有什么办法可以保留名字吗?

mochila[] <- expr 应该可以。

来自?Extract

An empty index selects all values: this is most often used to replace all the entries but keep the attributes.