获取带引号和不带引号的输出

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

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

Answer 2

我们可以使用 setNames 命名向量并使用 rep 创建数字向量。

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

#A B C 
#5 5 5 

Answer 3

我们可以使用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