导入Excel后，如何在R中实现类似文本分列的公式拆分需求

嘿，这个问题挺有意思的——你遇到的核心问题是read.xlsx默认读取的是Excel单元格的计算结果（也就是3），而不是公式本身的文本内容。要得到拆分后的三个1，我们需要先拿到公式的原始文本，再做拆分处理。这里给你一套具体的R代码方案：

1. 读取Excel中的公式文本 #

首先我们需要用能直接获取公式的包，openxlsx就很合适。如果还没安装，先装一下：

install.packages("openxlsx")

然后加载包，读取工作簿并提取A1单元格的公式：

library(openxlsx)

# 替换成你的Excel文件实际路径
wb <- loadWorkbook("your_excel_file.xlsx")

# 获取A1单元格的公式内容
formula_content <- getFormulas(wb, rows = 1, cols = 1)
# 此时formula_content的值是"=1+1+1"

2. 拆分公式并转换为目标数据框 #

接下来处理拿到的公式文本，把它拆分成三个1，再整理成1行3列的数据框：

# 去掉公式开头的等号，按"+"拆分字符串
split_parts <- strsplit(sub("^=", "", formula_content), "\\+")[[1]]

# 把拆分后的字符串转成数值类型
numeric_parts <- as.numeric(split_parts)

# 转成1行3列的数据框格式
result_df <- as.data.frame(t(numeric_parts))

运行完这些代码，result_df就是你想要的1行3列、所有单元格值为1的数据框啦。

小提醒：如果你的数据框已经是只有一个值3的状态，其实没法直接反推出是三个1相加（毕竟3的组合太多了），所以最可靠的方式还是读取原始的公式内容哦。

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