R中第一个space之后的substr中文字符串

Question

如何提取space后的汉字？

原始数据如下：

10:36   不願做奴隸的人們    然後看你有沒有在時間內申覆。
10:37   千里之外    真的很無奈
10:37   不願做奴隸的人們    如果五天內你沒注意信心，表示你默認。

我需要的数据是：

不願做奴隸的人們
千里之外
不願做奴隸的人們

我使用的代码是：

filedata <- scan(file = ,what = "",sep = "\n",encoding = "UTF-8")

#定义数据框和变量
data <- data.frame(user_name = c(),date = c(),date = c())
date <- vector(length=length(filedata)) 
time <- vector(length=length(filedata))
user_name <- vector(length=length(filedata))
text <- vector(length=length(filedata))

#截取用户名、时间和日期
pat1 = '[0-9]{4}/[0-9]{2}/[0-9]{2}'  #表示日期的正则表达式
pat2 = '[0-9]+:[0-9]+'               #表示时间的正则表达式
for(i in 1: length(filedata)){
  dt_pattern1 <- grepl(pat1,filedata[i]) #grepl函数识别每条记录中的日期部分
  dt_pattern2 <- grepl(pat2,filedata[i]) #grepl函数识别每条记录中的时间部分
  if(dt_pattern1 == TRUE){
    date[i] <- substr(filedata[i],1,10)
  } 
  if(dt_pattern2 == TRUE){
    time[i] <- substr(filedata[i],1,5)
    user_name[i] <- substr(filedata[i], 7, "\s")
  }
}
data <- rbind(data, data.frame(Name = user_name,date = date,time = time))

我需要创建一个 Name 变量，但它有一条警告消息：

NAs introduced by coercion

谁能帮忙调试一下？非常感谢！

Answer 1

假设您只想要用户名的第一个词，您可以在此处使用 sub()：

user_name <- "不願做奴隸的人們    如果五天內你沒注意信心，表示你默認。"
first <- sub("(\S+).*", "\1", user_name)
first

Answer 2

如果您的数据是字符串向量，您可以将字符串拆分为任意白色 space，并提取每个拆分字符串中的第二个元素。

library(stringr)

user_name <- c(
  "10:36   不願做奴隸的人們    然後看你有沒有在時間內申覆。",
  "10:37   千里之外    真的很無奈",
  "10:37   不願做奴隸的人們    如果五天內你沒注意信心，表示你默認。"
)

str_split(user_name, "\s+", simplify = T)[, 2]
[1] "不願做奴隸的人們" "千里之外"         "不願做奴隸的人們"

R中第一个space之后的substr中文字符串

substr Chinese string after first space in R

r

substr

cjk