Question

我有一个关于在R中分割字符串的问题。

我有一个字符串：

"Tommaso.is.very.stupid"

我希望：

"Tommaso is very stupid"

有直接的方法吗？

strsplit("Tommaso.is.very.stupid","\\.")

给我一个列表，其中一个向量由4个单独的单词组成，如何将它们与它们之间的空格一起折叠回来？

谢谢你，抱歉打扰这么小的问题

Answer 1

我们可以使用gsub将.替换为空格" "

gsub(".", " ", "Tommaso.is.very.stupid", fixed = TRUE)
#[1] "Tommaso is very stupid"

基准

library(microbenchmark)
library(stringi)
set.seed(24)
v1 <- stri_rand_strings(1e6, 100, pattern = "[A-F.]")

f1 <- function() gsub(".", " ", v1, fixed = TRUE)      
f2 <- function() paste(strsplit(v1, ".", fixed=TRUE)[[1]], collapse=' ')
microbenchmark(f1(), f2(), times = 20L, unit = "relative")
#Unit: relative
# expr      min       lq     mean  median      uq      max neval
#f1() 1.000000 1.000000 1.000000 1.00000 1.00000 1.000000    20
#f2() 2.575039 4.501027 3.074894 4.80972 2.87893 1.745782    20

Answer 2

以更一般的方式，

paste(strsplit("Tommaso.is.very.stupid", ".", fixed=TRUE)[[1]], collapse=' ')

这比使用gsub

快两倍

microbenchmark(paste(strsplit("Tommaso.is.very.stupid", ".", fixed=TRUE)[[1]], collapse=' '), gsub(".", " ", "Tommaso.is.very.stupid", fixed=FALSE))
Unit: microseconds


    expr
 paste(strsplit("Tommaso.is.very.stupid", ".", fixed = TRUE)[[1]],      collapse = " ")
                                gsub(".", " ", "Tommaso.is.very.stupid", fixed = FALSE)
   min      lq     mean  median      uq    max neval
 4.138  4.7300  5.81864  5.3205  5.7735 29.626   100
 9.352 10.1015 11.05360 10.4000 10.7795 35.177   100

R中的字符串操作，使用不同的分隔符拆分和折叠

2 个答案:

基准