R 根据列名而不是编号添加

我正在使用以下代码添加列：

cbind(rowSums(data[,c(5,10,11,15)],na.rm=TRUE),rowSums(data[,c(3,6,7)],na.rm=TRUE))

但是我想添加基于列名的列，而不是它们的编号，以消除混淆

---

有没有简单的方法可以做到这一点？

是的，只要用引号中的列名替换数字即可：

 cbind(rowSums(data[,c('elephant','giraffe')],na.rm=TRUE),
       rowSums(data[,c('fish','penguin','albatross')],na.rm=TRUE))

我今天正在收集有关动物种类的数据。不知道我为什么要把它们加在一起