在R中矢量化循环

Question

必须有一种简单的方法来对R中的以下循环进行矢量化，但我看不到它。

w <- numeric(10)
z <- rnorm(20)
v <- c(sample(1:10,10),sample(1:10,10)) #Random ordering of c(1:10,1:10)
for(i in 1:10)
    w[i] <- sum(z[v==i])

Answer 1

另一种方法

w = rowsum(z, v)

Answer 2

你可以使用聚合：
    aggregate（z，by = list（v），sum）