這個想法是為字串串列表示中的所有字串添加引號。
嘗試了下一個：
input_text <- "[innovation manager, manager director, senior manager]"
scan(text=input_text, what="")
回傳：
'[innovation" "manager," "manager" "director," "senior" "manager]'
預期輸出可能如下所示：
'["innovation manager", "manager director", "senior manager"]'
我錯過了什么？
uj5u.com熱心網友回復：
一種方法 - 洗掉方括號gsub，在,( strsplit)處拆分，提取串列元素，插入雙引號 ( dQuote)，并將paste拆分的元素放在一起
sprintf('[%s]', paste(dQuote(strsplit(gsub("[][]", "", input_text),
",\\s*")[[1]], FALSE), collapse=", "))
-輸出
[1] "[\"innovation manager\", \"manager director\", \"senior manager\"]"
uj5u.com熱心網友回復：
一個可能的解決方案；
library(tidyverse)
input_text <- "[innovation manager, manager director, senior manager]"
input_text %>%
str_remove_all("\\[|\\]") %>%
str_split(", ") %>% unlist
#> [1] "innovation manager" "manager director" "senior manager"
但是，如果 OP 想要將結果作為單個字串，則可以使用以下內容：
input_text %>%
str_remove_all("\\[|\\]") %>%
str_split(", ") %>%
map(~ str_c('"',.x, '"')) %>% unlist %>%
str_flatten(collapse = ", ") %>%
str_c("[",.,"]")
#> [1] "[\"innovation manager\", \"manager director\", \"senior manager\"]"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/367105.html
上一篇：Python：字串測驗未評估
下一篇：單詞之間用逗號