使用Purrr包R將多余的字符粘貼到列表的每個元素

Question

我有一個列表要迭代，並在每個單詞的末尾添加字符。 但是，根據列表中的元素，我想更改要添加的單詞。 我也在尋找答案的直覺。 最后，我正在使用purrr軟件包中的函數式編程來尋找答案。

#Here is the output without using purrr

my.list = list(first = c("AAPL", "MSFT"),
               second = c("AMZN", "NFLX"))

paste(my.list[["first"]][1], ".O")
paste(my.list[["first"]][2], ".O")
paste(my.list[["second"]][1], ".P")
paste(my.list[["second"]][2], ".P")

所需的輸出將是一個這樣的列表。

$first
"AAPL.O" "MSFT.O"

$second
"AMZN.P" "NFLX.P"

我列表中的第一個向量在向量中每個單詞的末尾都收到“ .O”。 我列表中的第二個向量在每個單詞的末尾都收到“ .P”。

謝謝。

Answer 1

您可以使用purrr::map2遍歷2個相同大小的列表/向量。 paste0工作原理類似於paste但是連接起來沒有空格。 paste/paste0是矢量化的，因此類似test <- letters[1:5]; paste0(test, "test") paste/paste0 test <- letters[1:5]; paste0(test, "test") test <- letters[1:5]; paste0(test, "test")工作。

suffix <- c(".O", ".P")
purrr::map2(my.list, suffix, ~paste0(.x, .y))