r - 将数据框中的每个元素除以第二个数据框中的特定元素

Question

我有两个数据框:

x = data.frame(replicate(10,sample(1:6,1000,rep=TRUE)))
y = t(data.frame(apply(x, 2, sum)))

如何将每列 x 中的每个元素除以列中同名的 y 中的元素。另外，写 y 的更好方法是什么？

我试过嵌套应用:

apply(y, 2, function(y){
    sapply(x, function(x) (x/y))
})

有没有更好的办法？

Answer 1

一个更好的写y的方法是

y <- colSums(x)

为了“将每列的每个元素形式 x 除以 y 中的元素”，您可以尝试

mapply("/", x, y)