Получение вывода с кавычками и без кавычек

Question

Требуемый выход

c('A'=5,'B'=5,'C'=5)

Что получил

df1 <- factor(LETTERS[1:3])
paste(levels(df1), 5, sep = "=")
#> [1] "A=5" "B=5" "C=5"

noquote(capture.output(cat(paste(shQuote(levels(df1)), 5, sep = "="), sep = ",")))
#> [1] 'A'=5,'B'=5,'C'=5

Любая помощь, чтобы получить необходимый вывод, пожалуйста.

Answer 1

Мы могли бы использовать setNames для именования вектора и rep для создания числового вектора.

setNames(rep(5, length(df1)), df1)

#A B C 
#5 5 5 

Answer 2

Мы можем использовать replicate

setNames(replicate(length(df1), 5), df1)
# A B C      
# 5 5 5 

---

или более компактно

library(tibble)
deframe(tibble(df1, 5))
#   A B C 
#  5 5 5 

Answer 3

ltrs <- LETTERS[1:3]
nbrs <- c(5,5,5)
names(nbrs) = ltrs
nbrs %>% dput