Вставьте специфицированный c текст и начало и конец каждой строки

Question

Я хотел бы вставить в каждую строку в начале и конце определенный c текст

Я пробовал это

 d <- c("Mon","Tues","Wednes","Thurs","Fri","Satur","Sun")
 week <- paste("DAY", d, "day", sep="")

Но он делает только первую часть

Как это можно сделать?

Answer 1

Или мы можем использовать sprintf

sprintf("DAY%sday", d)
#[1] "DAYMonday"    "DAYTuesday"   "DAYWednesday" "DAYThursday"  "DAYFriday"    "DAYSaturday"  "DAYSunday"  

---

Или с glue

glue::glue("DAY{d}day") 

Answer 2

Может быть, вы хотите это

week <- paste("DAY", paste0(d, "day"), sep="")

таким, что

> week
[1] "DAYMonday"    "DAYTuesday"   "DAYWednesday" "DAYThursday" 
[5] "DAYFriday"    "DAYSaturday"  "DAYSunday"