使用R在两个数据帧中的每个元素上应用函数

# 创建两个数据框
df1 <- data.frame(a = c(1, 2, 3), b = c(4, 5, 6))
df2 <- data.frame(c = c(7, 8, 9), d = c(10, 11, 12))

# 定义一个函数，将两个数相加
add <- function(x, y) {
  return(x + y)
}

# 使用apply函数在两个数据框的每个元素上应用add函数
result <- apply(df1, 2, function(x) {
  apply(df2, 2, function(y) {
    add(x, y)
  })
})

# 输出结果
print(result)

# 创建两个数据框
df1 <- data.frame(a = c(1, 2, 3), b = c(4, 5, 6))
df2 <- data.frame(c = c(7, 8, 9), d = c(10, 11, 12))

# 定义一个函数，将两个数相加
add <- function(x, y) {
  return(x + y)
}

# 创建一个空的数据框，用于存储结果
result <- data.frame(matrix(ncol = ncol(df1), nrow = nrow(df1)))

# 使用for循环在两个数据框的每个元素上应用add函数
for (i in 1:nrow(df1)) {
  for (j in 1:ncol(df1)) {
    result[i, j] <- add(df1[i, j], df2[i, j])
  }
}

# 输出结果
print(result)