如何在R语言中将字符串除空格外的所有字符替换为新字符？

要实现将字符串中的非空格字符全部替换为x、保留空格的需求，有几种简洁的方法：

方法一：使用base R的gsub函数（无需额外包） #

直接利用正则表达式匹配所有非空格字符，全局替换为x：

str <- c("a string","of words","also some spaces")
strx <- gsub("\\S", "x", str)
# 输出结果：
# [1] "x xxxxxx"        "xx xxxxx"        "xxxx xxxx xxxxxx"

• 正则\\S表示匹配所有非空白字符（包括字母、数字等），gsub会替换所有匹配到的字符，空格因不匹配规则被保留。

方法二：使用stringr包的str_replace_all函数 #

如果习惯用stringr包的语法，逻辑和base R一致：

library(stringr)

str <- c("a string","of words","also some spaces")
strx <- str_replace_all(str, "\\S", "x")

延伸思路（基于你提到的str_length()） #

如果想从字符长度的角度入手，可拆分每个字符串的字符逐一处理：

library(stringr)

str <- c("a string","of words","also some spaces")
strx <- sapply(str, function(s) {
  # 拆分字符串为单个字符
  char_list <- str_split(s, "")[[1]]
  # 替换非空格字符为x
  replaced_chars <- ifelse(char_list == " ", " ", "x")
  # 拼接回完整字符串
  paste(replaced_chars, collapse = "")
})

这种方法逻辑直观，但代码相对繁琐，适合理解字符级处理的过程。

内容的提问来源于stack exchange，提问作者Courtney