promedio - sumar columnas específicas entre filas

sumar columnas en r

Question

Necesito sumar cada dos columnas, por ejemplo

x1 x2 x3 x4
12 2 3 7
1 4 6 5

Necesito

X1 X2
14 10
5 11

Intenté aplicar la función y probé esta función mat es una matriz

mat1=matrix()
for(i in 1:nrow(mat)){
for(j in 1:ncol(mat)){
mat1[i,j]=mat[j,i]+mat[j,i+1]
}}

Answer 1

Por ejemplo:

 mat[,c(T,F)]+mat[,c(F,T)]
x1 x3
1 14 10
2 5 11

Answer 2

Una generalización de este problema (para un data.frame ) podría ser algo así como:

sapply(split.default(mydf, 0:(length(mydf)-1) %/% 2), rowSums)
# 0 1
# [1,] 14 10
# [2,] 5 11

Reemplace el "2" en %/% 2 con la cantidad de conjuntos de columnas que le gustaría "agregar".

Answer 3

id <- 1:ncol(mat)
mat[ , id[id%%2!=0] ] + mat[ , id[id%%2==0] ]
x1 x3
[1,] 14 10
[2,] 5 11