R将换行符添加到每第n次出现的空白处
R add newlines to every nth occurrence of blank
Mytext 是由空格分隔的长字符串 space。
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"
我尝试使用正则表达式每 10 个空格添加一个新行
如何使用 gsub 或 str_replace 等文本替换功能？
这个解决方案首先使用 strsplit() 你的字符串在每个 space 处进入一个向量，split() 它在每第 10 个项目之后使用 paste0() 使用 sapply():
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"
dat <- unlist(strsplit(Mytextsample, " ")) # unlist is here to convert to a vector
dat <- split(dat, ceiling(seq_along(dat)/10))
out <- sapply(dat, function(x) paste0(x, collapse = " "))
out
Mytext 是由空格分隔的长字符串 space。
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"
我尝试使用正则表达式每 10 个空格添加一个新行
如何使用 gsub 或 str_replace 等文本替换功能？
这个解决方案首先使用 strsplit() 你的字符串在每个 space 处进入一个向量，split() 它在每第 10 个项目之后使用 paste0() 使用 sapply():
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"
dat <- unlist(strsplit(Mytextsample, " ")) # unlist is here to convert to a vector
dat <- split(dat, ceiling(seq_along(dat)/10))
out <- sapply(dat, function(x) paste0(x, collapse = " "))
out