Хотите:
> x3 <- data.frame(A = letters, S2 = x1[,2] + x2[,2], S3 = x1[,3] + x2[,3])
> head(x3)
A S2 S3
1 a 2 2
2 b 4 4
3 c 6 6
4 d 8 8
5 e 10 10
6 f 12 12
Если это так, и вы хотите более общее решение, возможно, рассмотрите mapply
:
> head(mapply(`+`, x1[,2:3], x2[2:3]))
X1.26 X1.26.1
[1,] 2 2
[2,] 4 4
[3,] 6 6
[4,] 8 8
[5,] 10 10
[6,] 12 12
Использование этого для создания нового фрейма данныхс неизменным первым столбцом имеем:
> x3 <- data.frame(letters, mapply(`+`, x1[,2:3], x2[2:3]))
> head(x3)
letters X1.26 X1.26.1
1 a 2 2
2 b 4 4
3 c 6 6
4 d 8 8
5 e 10 10
6 f 12 12