R语言字符串多空格替换为逗号及元素计数问题求解

两个问题的对应原因和解决方式如下：

• 连续空格替换出多余逗号：原有正则仅匹配单个空格，连续N个空格会被替换为N个逗号，只需改为匹配1个及以上连续空白字符统一替换为单个逗号即可；额外加trimws()提前清除行首尾多余空格，避免首尾生成无效逗号。
• 元素计数错误：strsplit()处理字符向量时返回列表结构，直接调用length()只会得到列表总长度，需逐行提取拆分后的子向量长度，才能得到每行的真实元素数。

核心处理代码 #

# 1. 统一分隔符为逗号
x$V1 <- gsub("\\s+", ",", trimws(x$V1))

# 2. 统计每行元素总数
x$V2 <- sapply(strsplit(x$V1, ","), length)

完整测试验证 #

可通过以下代码复现从原始数据到目标结果的全流程：

# 构造和示例一致的原始数据
x <- data.frame(
  V1 = c("A4 B1 C2    E3   T5", "B3     R4     W2 E3"),
  stringsAsFactors = FALSE
)

# 执行处理
x$V1 <- gsub("\\s+", ",", trimws(x$V1))
x$V2 <- sapply(strsplit(x$V1, ","), length)

# 打印结果
print(x)

运行后输出完全匹配预期效果：

V1 V2
1 A4,B1,C2,E3,T5  5
2    B3,R4,W2,E3  4

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