是否有按比率合并两个数据帧的R函数

# 假设我们有两个数据帧df1和df2
df1 <- data.frame(id = 1:5, value1 = rnorm(5))
df2 <- data.frame(id = 1:5, value2 = rnorm(5))

# 定义一个函数来按比率合并两个数据帧
merge_by_ratio <- function(df1, df2, ratio) {
  # 确保两个数据帧有相同的行数
  if (nrow(df1) != nrow(df2)) {
    stop("Data frames must have the same number of rows.")
  }
  
  # 按比率合并数据
  merged_df <- data.frame(
    id = df1$id,
    value1 = df1$value1 * ratio,
    value2 = df2$value2 * (1 - ratio)
  )
  
  return(merged_df)
}

# 使用定义的函数按比率合并数据帧
merged_df <- merge_by_ratio(df1, df2, 0.6)

# 打印合并后的数据帧
print(merged_df)