如果你的输入真的像这样

input <- "x[0..3] = {65, 34, 22}
x[4..7] = {23, 17, 93, 7}"

然后，您可以使用str_replace_all来帮助进行转换。

library(stringr)
output <- str_replace_all(input, pattern=r"((\w+\[)(\d+)\.\.(\d+)\])", replacement=function(x) {
  m <- str_match(x, r"((\w+\[)(\d+)\.\.(\d+)\])")
  paste0(m[,2], as.numeric(m[,3])+1, ":", as.numeric(m[,4])+1, "]")
})
output <- str_replace_all(output, pattern=r"((\{)([^\}]+)(\}))", replacement="c(\\2)")
cat(output)
# x[1:4] = c(65, 34, 22)
# x[5:8] = c(23, 17, 93, 7)

它使用一个转换函数来增加匹配中索引的值。