我来帮你搞定这个需求！要把DataFrame最后一列的每个字符拆分成单独行，同时让其他列内容重复对应次数，这里有两种实用的实现方法：

方法一：使用tidyverse工具包（dplyr + tidyr） #

这是现代R数据处理中最常用的方式，代码直观易读：

# 先加载所需包（如果未安装，先运行 install.packages(c("dplyr", "tidyr"))）
library(dplyr)
library(tidyr)

# 你的原始数据
a <- c("a","b", "c", "d")
b <- c(7, 5, 4, 3)
c <- c("ABc","D", "EF", "BCEF")
m <- data.frame(a, b, c)

# 核心处理步骤
m1 <- m %>%
  # 将最后一列拆分为单个字符的列表（simplify=FALSE 确保输出为列表格式）
  mutate(c = str_split(c, "", simplify = FALSE)) %>%
  # 将列表列展开为多行，其他列自动重复对应次数
  unnest(c) %>%
  # 统一字符为大写（匹配你想要的结果格式）
  mutate(c = toupper(c))

# 查看最终结果
print(m1)

步骤说明： #

• str_split(c, "", simplify = FALSE)：把每个字符串拆成单个字符组成的列表，比如"ABc"会变成list(c("A", "B", "c"))
• unnest(c)：把列表中的每个字符单独拆成一行，前两列的内容会自动重复对应次数
• toupper(c)：将字符统一为大写，解决原始数据中大小写混合的问题

方法二：使用Base R实现（无需额外包） #

如果你不想加载第三方包，用Base R也能轻松实现：

# 原始数据（注意设置stringsAsFactors=FALSE避免字符转因子）
a <- c("a","b", "c", "d")
b <- c(7, 5, 4, 3)
c <- c("ABc","D", "EF", "BCEF")
m <- data.frame(a, b, c, stringsAsFactors = FALSE)

# 计算每行字符串的字符数量
char_counts <- nchar(m$c)
# 生成原始行的重复索引，比如第一行有3个字符，就重复3次索引1
row_indices <- rep(seq_len(nrow(m)), char_counts)
# 拆分所有字符串为单个字符并展开成向量
split_chars <- unlist(strsplit(m$c, ""))

# 构建最终结果DataFrame
m1 <- data.frame(
  a1 = m$a[row_indices],
  b1 = m$b[row_indices],
  c1 = toupper(split_chars),
  stringsAsFactors = FALSE
)

# 查看结果
print(m1)

步骤说明： #

• rep(seq_len(nrow(m)), char_counts)：根据每个字符串的字符数，重复对应的行索引，确保前两列内容能正确重复
• unlist(strsplit(m$c, ""))：把所有字符串拆成单个字符并合并成一个向量
• 最后通过索引提取前两列的重复值，和拆分后的字符组合成新的DataFrame

两种方法都能生成你需要的最终数据集，你可以根据自己的习惯选择~

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