通过函数更新数据框

Question

我使用r…遇到了一个小问题……

在以下数据框架中，

test <- data.frame(v1=c(rep(1,3),rep(2,3)),v2=0) 

我想在v1为1的行中更改v2的值。

test[test$v1==1,"v2"] <- 10

工作正常。

test
  v1 v2
1  1 10
2  1 10
3  1 10
4  2  0
5  2  0
6  2  0

但是，我需要在功能中执行此操作。

test <- data.frame(v1=c(rep(1,3),rep(2,3)),v2=0)

test.fun <- function (x) {
    test[test$v1==x,"v2"] <- 10
    print(test)
}

调用该功能似乎有效。

test.fun(1)
  v1 v2
1  1 10
2  1 10
3  1 10
4  2  0
5  2  0
6  2  0

但是，当我现在看测试时：

test
  v1 v2
1  1  0
2  1  0
3  1  0
4  2  0
5  2  0
6  2  0

它不起作用。 是否有命令告诉R在功能中真正更新数据框架？ 非常感谢您的任何帮助！

Answer 1

test在您的函数中是对象的 copy 从您的全局环境中（我假设这是定义的位置）。除非另有说明，否则分配发生在当前环境中，因此该函数内部发生的任何更改仅适用于功能内部的副本，而不适用于您的全局环境中的对象。

最好将所有必要的对象作为参数传递给函数。

就个人而言，我会在您的功能结束时返回（test），并在功能之外进行分配，但是我不确定您是否可以在实际情况下执行此操作。

test.fun <- function (x, test) {
    test[test$v1==x,"v2"] <- 10
    return(test)
}
test <- data.frame(v1=c(rep(1,3),rep(2,3)),v2=0)
(test <- test.fun(1, test))
#  v1 v2
#1  1 10
#2  1 10
#3  1 10
#4  2  0
#5  2  0
#6  2  0

如果绝对有必要直接修改函数之外的对象，因此您需要告诉R，您想将test的本地副本分配给<test 代码> .globalenv 。

test.fun <- function (x, test) {
    test[test$v1==x,"v2"] <- 10
    assign('test',test,envir=.GlobalEnv)
    #test <<- test  # This also works, but the above is more explicit.
}
(test.fun(1, test))
#  v1 v2
#1  1 10
#2  1 10
#3  1 10
#4  2  0
#5  2  0
#6  2  0

但是，使用分配或＆lt;＆lt; -以这种方式并不常见，许多经验丰富的R程序员会建议反对它。

Answer 2

将＆lt; - 更改为＆lt;＆lt; - 在您的功能中，也可以做到这一点
请参阅 r-manual 。从该页面引用：

操作员＆lt;＆lt; - and - ＆gt;＆gt;通常仅在函数中使用，并通过父环境进行搜索，以便对所分配的变量进行现有定义。如果找到了这样的变量（并且其绑定未锁定），则重新定义其值，否则在全球环境中进行分配。

然后，您的代码应该是：

test <- data.frame(v1=c(rep(1,3),rep(2,3)),v2=0) 

test.fun <- function (x) {
  test[test$v1==x,"v2"] <<- 10
  print(test)
}

test.fun(1)

Answer 3

最好不要更改函数中的全局变量，因为这可能会使不可能的副作用。为了避免在R中，对函数内部的对象的任何更改实际上只会更改该函数环境>的本地副本。

如果您真的想更改测试，则必须将函数的返回值分配为测试（最好以更明确的返回值编写功能，

 test <- test.fun(1)

或者选择要在test内部分配的全局环境。有趣，

test.fun <- function (x) {             
    test[test$v1==x,"v2"] <- 10             
    print(test)
    assign("test",test,.GlobalEnv)           
} 

Answer 4

我认为这是由于评估的不同环境而发生的。您的函数副本test从全局环境中添加到临时的本地环境（在函数调用上创建），然后仅在此本地评估（即，更改）test环境。

您可以通过使用超级分配＆lt; -，来克服这个问题欺骗你，...）。

通常，约书亚·乌尔里希（Joshua Ulrich）提供的解决方案是解决这些问题的方式。您通过原始对象并将其返回。在功能上，您将结果分配给原始对象。

Answer 5

您可以编写一个替换功能。这是一个名称以'＆lt; - '结尾的函数，从本质上将其包装在：

foo = bar（foo）

包装器中。因此，在您的情况下：

> "setV2<-" = function (x,value,m){x[x$v1==m,"v2"]=value;return(x)}
> test <- data.frame(v1=c(rep(1,3),rep(2,3)),v2=0) 
> setV2(test,1)=10
> test
  v1 v2
1  1 10
2  1 10
3  1 10
4  2  0
5  2  0
6  2  0
> setV2(test,2)=99
> test
  v1 v2
1  1 10
2  1 10
3  1 10
4  2 99
5  2 99
6  2 99

请注意，您必须在创建或r上引用函数名称。

Answer 6

*我创建了一个称为read__csv的函数，我想访问相同的数据到其他R函数*

read__csv <- function(files_csv) {
  print(files_csv)
  # set R workign directory as current R file path
  setwd(system("pwd", intern = T) )
  print( getwd() )
  data<-read.csv(files_csv,header = TRUE,na.strings=0)
  print(data)
  assign("data", data, envir = .GlobalEnv)
 #create data varible to r global envrioment 
}

#R Funtion calling
read__csv("csv.csv")

print(data)