R如何对dataframe单列单元格内字符排序而非按列排序

实现逻辑 #

需逐行处理每个单元格的字符串：先判断字符串是否包含逗号分隔的多个片段，拆分后对每个片段单独做内部字符排序，再按原分隔符拼接回完整字符串即可。order()函数用于调整向量/数据框的行顺序，无法处理字符串内部字符排序逻辑，因此达不到预期效果。

实现代码 #

# 构造示例数据
col = c("zyx","cad","nm,po,qr","ba,dc,uu")
df = data.frame(col)

# 自定义单字符串内部字符排序函数
sort_str_inner <- function(input_str) {
  # 按逗号拆分多段内容
  str_segments <- strsplit(input_str, split = ",")[[1]]
  # 逐段处理：拆分字符→排序→拼接
  sorted_segments <- vapply(str_segments, function(seg) {
    paste0(sort(strsplit(seg, split = "")[[1]]), collapse = "")
  }, FUN.VALUE = character(1))
  # 用逗号拼接回完整字符串
  paste0(sorted_segments, collapse = ",")
}

# 对目标列批量应用处理函数
df$col_out <- vapply(df$col, sort_str_inner, FUN.VALUE = character(1), USE.NAMES = FALSE)

输出验证 #

运行后查看结果：

> print(df)
        col col_out
1       zyx     xyz
2       cad     acd
3 nm,po,qr mn,op,qr
4 ba,dc,uu ab,cd,uu

和预期输出完全一致。

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