将某些函数应用于多个对象 [英] Applying some functions to multiple objects

问题描述

我使用的是Mac OS 10.10和R 3.1.1

假设我有以下数据框a和b具有相同的属性：

a<- structure(list(X1 = 1:5, X2 = 6:10), .Names = c("X1", "X2"), row.names = c(NA, 
-5L), class = "data.frame")
b<- structure(list(X1 = 11:15, X2 = 16:20), .Names = c("X1", "X2"
), row.names = c(NA, -5L), class = "data.frame")

假设我需要同时对a和b执行一些清理/应用某些函数(如删除列并将第一列乘以2)，以便原始数据框通过以下所需输出反映更改：

> a
  X1 
1  2 
2  4 
3  6 
4  8
5 10

> b
  X1
1 22
2 24
3 26
4 28
5 30

我刚刚学习了for循环和*Apply函数，但在我拥有的数据框(不是a和b，但大得多)上应用它们时，我感到困惑。

推荐答案

通常建议(由R核心团队成员)，如果您有几个要同时操作的数据集，您应该将它们全部保存在一个列表中。为了实现您的目标，您只需使用mget和ls从全局环境中检索它们，然后简单地替换为第一列乘以2，例如

lapply(mget(ls(pattern = "[a-z]")), function(x) x <- x[1] * 2)
# $a
# X1
# 1  2
# 2  4
# 3  6
# 4  8
# 5 10
# 
# $b
# X1
# 1 22
# 2 24
# 3 26
# 4 28
# 5 30

这篇关于将某些函数应用于多个对象的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！