数据框不记得函数所做的更改

Question

尝试实现较早帖子的解决方案，但遇到了我不理解使用函数的行为。

我有一个表格的数据集：

tC <- textConnection("Col1  Col2    Col3
yes no  no
yes no  yes
yes yes yes");
data1 <- read.table(header=TRUE, tC);
close.connection(tC);
rm(tC);
data1["Col4"] <- NA;

现在我想使用一个函数（暂时）任意替换第 4 列中的条目：

updateRow <- function(rIndex) {  
    data1[rIndex, 4] <- 1
data1 <- return(data1)
}

但是，当我应用该函数时，它似乎按预期更新（第 1 行 col4 的条目变为“1”），但是当我调用它时数据框恢复到其原始内容：

updateRow(4)
data1

有人可以解释这是为什么以及我做错了什么吗？

Answer 1

您的代码中有很多语法错误。我想你实际上是想打电话给updateRow(1)。这是另一个不需要您重新定义数据框的解决方案。您的问题来自不了解 R 环境。这个post 帮助了我很多。

updateRow <- function(rIndex) {  
  data1[rIndex, 4] <<- 1
}

> data1
  Col1 Col2 Col3 Col4
1  yes   no   no   NA
2  yes   no  yes   NA
3  yes  yes  yes   NA

> updateRow(1)
> data1
  Col1 Col2 Col3 Col4
1  yes   no   no    1
2  yes   no  yes   NA
3  yes  yes  yes   NA

> updateRow(4)
> data1
  Col1 Col2 Col3 Col4
1  yes   no   no    1
2  yes   no  yes   NA
3  yes  yes  yes   NA
4 <NA> <NA> <NA>    1

Answer 2

您可以使用eval.parent 和bquote 的组合：

updateRow <- function(rIndex) eval.parent(bquote(data1[.(rIndex), 4] <- 1))

结果：

> updateRow(4)
> data1
  Col1 Col2 Col3 V4
1  yes   no   no NA
2  yes   no  yes NA
3  yes  yes  yes NA
4 <NA> <NA> <NA>  1

Answer 3

如果您的目的是更新 data1，则您的语法是错误的。你应该使用

updateRow <- function(rIndex) {  
    data1[rIndex, 4] <- 1
    return(data1)
}
data1<-updateRow(4)

应该这样做。它将更新第 4 行和第 4 列并将值设置为 1。

如果你想跳过最后一个赋值，你可以将函数定义为

updateRow <- function(rIndex) {  
    data1[rIndex, 4] <<- 1
}
updateRow(4)

这也会将第 4 行和第 4 列更新为值 1。这与 dayne 在他的答案中的解决方案相同。

Answer 4

您没有为 dataRow 分配任何内容，因此 updateRow 中的 data1 不会“导出”到函数之外，即，您从未真正更新 data1。你应该说data1 <- updateRow(4)