保留名称并应用

我有一个命名向量,如:

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

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