计算r中两个数据帧(逐行)之间的变化次数

# 创建示例数据帧
df1 <- data.frame(Var1 = c(1, 2, 3),
                  Var2 = c("A", "B", "C"))

df2 <- data.frame(Var1 = c(1, 5, 3),
                  Var2 = c("A", "D", "C"))

# 计算变化次数的函数
calculate_changes <- function(df1, df2) {
  # 初始化变化次数
  change_count <- 0
  
  # 遍历每一行
  for (i in 1:nrow(df1)) {
    # 检查变量值是否相同
    if (df1[i, "Var1"] != df2[i, "Var1"]) {
      change_count <- change_count + 1
    }
    
    if (df1[i, "Var2"] != df2[i, "Var2"]) {
      change_count <- change_count + 1
    }
  }
  
  # 输出变化次数
  return(change_count)
}

# 调用函数计算变化次数
changes <- calculate_changes(df1, df2)
print(changes)