有没有办法用列表元素的相应名称附加到每个向量元素？

Question

这是我的向量列表。

j = list(x = c('apple', 'avocado'), y = c('banana', 'beetroot'))

这是j的内容。

$x
[1] "apple"   "avocado"

$y
[1] "banana"   "beetroot"

这是所需的输出。

$x
[1] "x_apple"   "x_avocado"

$y
[1] "y_banana"   "y_beetroot"

Answer 1

在base R中，你可以使用Map -

Map(function(x, y) paste(x, y, sep = '_'), names(j), j)

#$x
#[1] "x_apple"   "x_avocado"

#$y
#[1] "y_banana"   "y_beetroot"

Answer 2

你可以使用purrr::imap():

library(purrr)
imap(j, ~ paste0(.y, "_", .x))

输出

$x
[1] "x_apple"   "x_avocado"

$y
[1] "y_banana"   "y_beetroot"

imap() 中的“i”表示索引，方便您将向量的元素及其名称传递给函数。