2

Let l be a list of two dataframes and n a list of character strings, wherein l and n both have two elements. Also, let the number of rows of each dataframe in l be equal to the length of the vector of character strings in n.

l <- list(data.frame(x = c(1,2,3), y = c(1,2,3)),
          data.frame(x = c(1,2,3,4), y = c(1,2,3,4)))
n <- list(c('a', 'b', 'c'), c('a', 'b', 'c', 'd'))

Suppose we want to replace the rownames of the two dataframes in l with the character strings in n. The desired result would be:

> l
[[1]]
  x y
a 1 1
b 2 2
c 3 3

[[2]]
  x y
a 1 1
b 2 2
c 3 3
d 4 4

I believe one could exploit mapply for this task, but I cannot figure how to do this.

aynber
  • 22,380
  • 8
  • 50
  • 63
Dion Groothof
  • 1,406
  • 5
  • 15

1 Answers1

3

You can use rownames<- and Map as follows

Map(`rownames<-`, l, n)
# or mapply(`rownames<-`, x = l, value = n, SIMPLIFY = FALSE)

Result

#[[1]]
#  x y
#a 1 1
#b 2 2
#c 3 3
#
#[[2]]
#  x y
#a 1 1
#b 2 2
#c 3 3
#d 4 4

rownames<- sets the rownames of x to value. In your case x is a single dataframe in l, and value is a vector from n. This function is applied "to the first elements of each ... argument, the second elements, the third elements, and so on.", from ?mapply.

And "Map is a simple wrapper to mapply which does not attempt to simplify the result", see ?Map

markus
  • 25,843
  • 5
  • 39
  • 58