R 用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  

---

我失去了所有已命名的职位，有没有办法保留姓名？

mochila[]
mochila[]@Frank OMG，几分钟后找到我的问题，很简单，非常感谢：）而且，不需要申请。只需执行mochila[]@csgroen这是一个函数示例，在我真正的问题中，我需要应用：）
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