如何在R语言DataFrame中随机化字符列的字符串内容

嘿，我明白你的困扰啦——想要打乱每个字符串里的单个字母，但R默认把整个字符串当一个整体处理，拆分后列数不一致又没法合并。别担心，这里有两种简单的解决方案，不管你习惯用基础R还是tidyverse工具都能搞定！

核心思路 #

我们需要对values列的每个字符串单独处理：把字符串拆成单个字符→随机打乱字符顺序→重新拼接成新字符串，这样就能保证每行的identifier和处理后的字符串一一对应，不会出现列数不匹配的问题。

方法1：基础R实现 #

不用额外加载包，用sapply配合字符串处理函数就能完成：

# 对values列的每个字符串执行打乱操作
df$values <- sapply(df$values, function(x) {
  # 把字符串拆成单个字符的向量
  char_vector <- strsplit(x, "")[[1]]
  # 随机打乱字符顺序，再拼接成新字符串
  paste(sample(char_vector), collapse = "")
})

方法2：tidyverse风格实现 #

如果你习惯用dplyr和purrr，代码会更直观易读：

# 先加载需要的包
library(dplyr)
library(purrr)

df <- df %>%
  mutate(values = map_chr(values, ~ {
    # 拆分字符串→取出字符向量→打乱→拼接
    str_split(.x, "") %>%
      pluck(1) %>%
      sample() %>%
      paste(collapse = "")
  }))

验证效果 #

运行上面的代码后，你会得到类似这样的结果（因为是随机打乱，每次输出的具体字母顺序会不一样，但每个字符串的字母都被重新排列了）：

identifier           values
1    number1           MVARJGL
2    number2 OTMCOFMKOSOVKTXS
3    number3           STHHG

这样就完美解决了你遇到的问题——既保留了identifier和values的对应关系，又实现了每个字符串内部字母的随机化~

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