下面是一个示例代码，用于比较两个数据框之间的元素，并在相等的情况下添加列：

# 创建示例数据框
df1 <- data.frame(A = c(1, 2, 3),
                  B = c(4, 5, 6))

df2 <- data.frame(A = c(1, 2, 3),
                  B = c(7, 5, 9))

# 比较两个数据框的元素
comparison <- df1 == df2

# 添加列到df1，表示元素是否相等
df1$Equal <- colSums(comparison) == ncol(df1)

# 输出结果
print(df1)

运行上述代码后，将会输出以下结果：

  A B Equal
1 1 4 FALSE
2 2 5 TRUE
3 3 6 FALSE

在这个示例中，我们首先创建了两个数据框df1和df2，然后使用比较运算符将它们进行比较，生成一个逻辑型的数据框comparison。然后，我们使用colSums函数计算每列中相等元素的数量，并将其与列数进行比较。如果每列中的元素都相等，则colSums(comparison) == ncol(df1)将返回TRUE，表示相等。最后，我们将这个逻辑值添加到df1中作为新的列Equal。