R：冷凝代码

Question

为了简短起见，我有一个脚本的以下行部分：

plot(E.4[,1], D.2[1,]+D.2[2,]+D.2[3,]+D.2[4,]+D.2[5,]+D.2[6,]+D.2[7,])

我希望学习如何更短的写第二部分。 我的问题是D.2 data frame有37817行我希望包含在其中。

如果你能给我一个暗示或其他方式，重写这个，将会受到赞赏。

谢谢！