如何使用 R 中的 apply 将字符串粘贴到字符串向量的每个元素上？

Question

我有一个字符串向量。

d <- c("Mon","Tues","Wednes","Thurs","Fri","Satur","Sun")

为此，我想以与此类似的方式将字符串“day”粘贴到向量的每个元素上。

week <- apply(d, "day", paste, sep='')

Answer 1

不需要apply()，只需使用paste()：

R> d <- c("Mon","Tues","Wednes","Thurs","Fri","Satur","Sun")
R> week <- paste(d, "day", sep="")
R> week
[1] "Monday"    "Tuesday"   "Wednesday" "Thursday"  
[4] "Friday"    "Saturday"  "Sunday"   
R> 

Answer 2

其他人已经指出，由于 paste 是矢量化的，因此在这种情况下不需要使用 apply 。

但是，回答您的问题： apply 用于数组或 data.frame。当您想要对列表（或向量）应用函数时，请使用 lapply 或 sapply （lapply 的变体，简化了结果）：

sapply(d, paste, "day", sep="")
        Mon        Tues      Wednes       Thurs         Fri       Satur 
   "Monday"   "Tuesday" "Wednesday"  "Thursday"    "Friday"  "Saturday" 
        Sun 
   "Sunday" 

Answer 3

除了 paste/paste0 之外，我们还可以通过多种方式向向量中的每个元素添加字符串。

1) 使用 sprintf

sprintf("%sday", d)
#[1] "Monday"    "Tuesday" "Wednesday" "Thursday"  "Friday"  "Saturday"  "Sunday" 

2) glue

glue::glue("{d}days")

这里 {d} 被评估为 R 代码。如果需要，可以将其包装在 as.character 中。

3) stringr 中的 str_c

stringr::str_c(d, "day")

其等效项为

4) stringi 中的 stri_c

stringi::stri_c(d, "day")

5) stringi > 还有 stri_paste

stringi::stri_paste(d, "day")