问题在R中的多个列中有效地求和

我有以下精简数据集：

a<-as.data.frame(c(2000:2005))
a$Col1<-c(1:6)
a$Col2<-seq(2,12,2)

colnames(a)<-c("year","Col1","Col2")

for (i in 1:2){
  a[[paste("Var_", i, sep="")]]<-i*a[[paste("Col", i, sep="")]]
}

我想总结列Var1和Var2，我使用：

a$sum<-a$Var_1 + a$Var_2

实际上我的数据集要大得多 - 我想从Var_1到Var_n之和（n可以高达20）。必须有一种更有效的方法来做到这一点：

 a$sum<-a$Var_1 + ... + a$Var_n

9464

2018-03-12 09:32

起源

尝试申请：$ sum < - apply（a [， - 1]，1，sum） - Miha Trošt

谢谢，适用于以下情况，其中i是Var_1的列索引，j是Var_n的列索引 a$sum <- apply(a[,c(i:j)], 1, sum) - user2568648

并进一步自动化该过程（使用 stackoverflow.com/questions/9277363/...）： a$sum <- apply(a[,c(match("Var_1",names(a)):match("Var_n",names(a)))], 1, sum) - user2568648

a$Col3 <- rowSums(a[,2:3]) - rmuc8

答案:

您可以使用 colSums(a[,c("Var1", "Var2")]) 要么 rowSums(a[,c("Var_1", "Var_2")])。在你的情况下你想要后者。

11

2018-03-12 09:37

热门问题

不使用eval / new函数的JavaScript模板库当涉及内部类时，Java继承如何工作 .NET Windows服务的奇怪问题在.ipa或.app下查找App ID 快速入门XSLT参考[关闭] 如何找出Android应用程序中未使用的资源 Ruby中并发的同步方法[重复] 将std :: chrono :: system_clock :: time_point转换为struct timeval并返回 Google Drive API V3（javascript）更新文件内容 Bootstrap 3.0 - 将元素推到底部受密码保护的.NET ClickOnce部署？如何用postgresql安装wordpress coq Set或Type如何成为命题硒滚动元素进入（中心）视图在Spring Transaction JUnit测试中自动装配Hibernate会话的正确方法 Git的Dockerfile策略如何在FOS_PICKFOLDER中使用IFileDialog，同时仍在对话框中显示文件名在Firefox扩展中复制Google Chrome浏览器操作弹出效果 CakePHP找到MAX 芹菜 - 完成任务的召唤功能从使用fmemopen创建的流中读取宽字符 .NET是否为每个程序集创建一个字符串实习池？ DefaultModelBinder不绑定嵌套模型 Navigator.MediaDevices.getUserMedia（）使用了哪些相机通信标准？选择命名空间名称时应该知道什么？ cout Swagger Codegen CLI Java客户端 - 如何正确使用它一个很好的哈希函数用于采访整数，字符串？ Maven 3 ciManagement配置的目的是什么？如何通过语言文化获取代码页？