在R中按年份与压力场景匹配两张表格进行乘法运算求助

核心思路 #

先将两张表按年份做关联合并，再针对对应列执行乘法运算，就能保证年份和压力场景的对应性。

具体步骤（附代码） #

假设你的数据是Excel格式（如果是CSV，把read_excel换成read.csv即可）：

1. 加载必要的包 #

新手先安装并加载处理数据的基础包：

# 安装包（第一次运行需要）
install.packages(c("readxl", "dplyr"))
# 加载包
library(readxl)
library(dplyr)

2. 读取两张数据表 #

# 读取Finance Data（替换成你的文件路径）
finance_data <- read_excel("你的Finance Data文件路径.xlsx")
# 读取Stress Data（替换成你的文件路径）
stress_data <- read_excel("你的Stress Data文件路径.xlsx")

3. 按年份合并数据 #

确保两张表的年份列名称一致（比如都叫Year），如果不一致，先修改列名：

# 假设Finance Data的年份列叫"年份"，Stress Data的叫"Year"，先统一列名
finance_data <- finance_data %>% rename(Year = 年份)
# 按年份合并，保留所有财务数据和对应年份的压力数据
merged_data <- inner_join(finance_data, stress_data, by = "Year")

4. 执行乘法运算 #

比如计算Direct In乘以AC23的结果，新增一列Direct_In_AC23：

merged_data <- merged_data %>% 
  mutate(Direct_In_AC23 = Direct_In * AC23)

如果有多个财务指标和压力场景，直接复制mutate里的逻辑即可，比如：

merged_data <- merged_data %>% 
  mutate(
    Direct_In_AC23 = Direct_In * AC23,
    Other_Item_AC23 = Other_Item * AC23,
    Direct_In_AC24 = Direct_In * AC24
  )

5. 查看或导出结果 #

# 查看合并计算后的数据
View(merged_data)
# 导出到CSV（可选）
write.csv(merged_data, "计算结果文件.csv", row.names = FALSE)

注意事项 #

• 确保两张表的年份格式一致（比如都是数字2023/2024，不是文本格式），否则合并会失败
• 如果压力数据的百分比是带%符号的文本，先转换为数值：stress_data$AC23 <- as.numeric(sub("%", "", stress_data$AC23)) / 100

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