任何人都可以向我解释为什么会出现以下示例吗?
#Create simple dataframe
assign( "df" , data.frame( P = runif(5) , Q = runif(5) , R = runif(5) ) )
#Return the dataframe from the given character vector
get( "df" )
P Q R
1 0.17396222 0.90994676 0.90590685
2 0.33860092 0.98078739 0.38058921
3 0.80751402 0.93229290 0.82853094
4 0.05460417 0.55448507 0.01605027
5 0.04250316 0.03808318 0.40678270
#Return the column names of df
colnames( get( "df" ) )
[1] "P" "Q" "R"
#But using a replacement function...
colnames( get( "df" ) ) <- c( "S" , "T" , "U" )
Error in colnames(get("df")) <- c("S", "T", "U") :
target of assignment expands to non-language object
我想
A)想知道为什么替换函数不会以get()
的方式工作?
并且 b)如果有办法解决这个问题,请考虑我在下面概述的问题;
我的问题是我有许多对象,在循环中创建(使用玩具示例),如下所示:assign( paste( "Object" , i , sep = "." ) , rnorm(1000 , i) )
,其中i
是一个向量,比如i <- 1:1000
和那么我希望能够为循环中的每个对象分配名称(例如从不同的向量),但names( get( paste( "Object" , i , sep = "." ) ) <- someNewName
不能像上面的例子那样工作。
但是get( paste( "Object" , i , sep = "." ) )
会返回这些对象的名称(或NULL
)。
谢谢!
答案 0 :(得分:16)
要理解为什么这不起作用,您需要了解colnames<-
的作用。就像它中的每个函数看起来都在修改一个对象一样,它实际上是在修改一个副本,所以概念上colnames(x) <- y
会扩展为:
copy <- x
colnames(copy) <- y
x <- copy
如果你以通常的方式调用替换运算符,可以写得更紧凑:
x <- `colnames<-`(x, y)
所以你的例子变成了
get("x") <- `colnames<-`(get("x"), y)
右边是有效的R,但整个命令不是,因为你不能为函数的结果赋值:
x <- 1
get("x") <- 2
# Error in get("x") <- 2 :
# target of assignment expands to non-language object
答案 1 :(得分:9)
在问题中演示的方式使用assign
在R中至少不常见。通常,您只需将所有对象放在列表中。
所以,而不是
for (i in 1:10) {
assign( paste( "Object" , i , sep = "." ) , rnorm(1000 , i) )}
你会做的
objects <- list()
for (i in 1:10) {
objects[[i]] <- rnorm(1000 , i) }
事实上,这个结构很常见,有一个(优化的)函数(lapply
),它做了类似的事情:
objects <- lapply(1:10, function(x) rnorm(1000,x))
然后,您可以访问第一个对象objects[[1]]
,并且有几个函数可以处理列表。