将某些功能应用于多个对象
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
上同时执行一些 cleaning/apply 一些功能(比如删除列并将第一列乘以 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 Core 团队成员)鼓励,如果您有多个要同时操作的数据集,则应将它们全部保存在一个列表中。为了实现您的目标,您可以简单地使用 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
我在 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
上同时执行一些 cleaning/apply 一些功能(比如删除列并将第一列乘以 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 Core 团队成员)鼓励,如果您有多个要同时操作的数据集,则应将它们全部保存在一个列表中。为了实现您的目标,您可以简单地使用 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