str_c 在 R 中使用 "

Question

在我尝试构建最后一行时，有人可以帮助我吗：

[1] ("mercury" AND "earth" AND "Jupiter" AND "Uranus" AND "Pluto?")

使用以下代码

df <- structure(list(AND = c("mercury", "earth", "Jupiter", "Uranus", 
"Pluto?"), OR = c("venus", "Mars", "Saturn", "Neptune", "")), class = "data.frame", row.names = c(NA, 
-5L))

# fist
first <- str_c(c(' (" ' ,df$AND[1], ' "  ' ), sep = "")

# in between
between <- str_c(df$AND[2:(nrow(df) - 1)], sep = '  " AND "  ')

# last
last <- str_c(c(' " ',df$AND[nrow(df)], ' ")  ' ), sep = "")

# full

str_c(c(first,between,last), sep = "")

但是我的结果是这样的：


[1] " (\" "   "mercury" " \"  "   "earth"   "Jupiter" "Uranus"  " \" "    "Pluto?"  " \")  "

Answer 1

您可以使用：

library(stringr)
str_c('(', str_c(excel$AND, collapse  = ' AND '), ')')
#Similar using paste0
#paste0('(', paste0(excel$AND, collapse  = ' AND '), ')')
#[1] "(mercury AND earth AND Jupiter AND Uranus AND Pluto?)"

或者基础 R 版本将是：

sprintf('(%s)', paste0(excel$AND, collapse  = ' AND '))
#[1] "(mercury AND earth AND Jupiter AND Uranus AND Pluto?)"

如果我们需要在每个单词周围加上引号，我们可以将 sprintf 输出扭曲为：

tmp <- sprintf('("%s")', paste0(excel$AND, collapse  = '" AND "'))
cat(tmp)
#("mercury" AND "earth" AND "Jupiter" AND "Uranus" AND "Pluto?")

Answer 2

我们可以使用glue

 with(df, as.character(glue::glue("{paste(AND, collapse=' AND ')}")))
#[1] "mercury AND earth AND Jupiter AND Uranus AND Pluto?"

str_c 在 R 中使用 "

str_c using " in R

r

string

stringr

stringi