Keep names with apply

Question

I have a named vector like:

mochila

r01 r02 r03 r04 
0   0   0   0

And a dataframe

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

If I change a value manually, it keep the name

mochila[1] <- 1
mochila

r01 r02 r03 r04 
  1   0   0   0

But, for example, if I apply like this

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

mochila <- apply(data,1,myfun)

Result:

mochila

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

I lost all named position, Is there some way to keep names?

@Frank OMG, some minutes to find my problem, it's so simple, so much thanks :) — Dragg, Sep 18 '17 at 17:47
Also, no need for apply. Just do mochila[] <- rep(1, length(mochila)) — csgroen, Sep 18 '17 at 17:47
@csgroen It's an example of a function, in my real problem I need to apply :) — Dragg, Sep 18 '17 at 17:48

score 2 · Accepted Answer · answered Sep 18 '17 at 17:50

2

mochila[] <- expr should work.

From ?Extract:

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

answered Sep 18 '17 at 17:50

Frank

66,179
8
96
180

Keep names with apply

1 Answers1