r - 将data.frame作为参数传递给函数

上下文
作为R: Pass data.frame by reference to a function和How to add a column in the data frame within a function的后续措施
我正在尝试以下看似简单的功能:

naToZero <- function(df) {
  df$Vol[is.na(df$Vol)] <- 0
}

数据框

> str(WFM)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   990571 obs. of  14 variables:
 $ Date      : chr  "04/12/2017" "04/12/2017" "04/12/2017" "04/12/2017" ...
 $ Time      :Classes 'hms', 'difftime'  atomic [1:990571] 41970 41969 41968 41967 41966 ...
  .. ..- attr(*, "units")= chr "secs"
 $ Bar#      : chr  "197953/197953" NA "197952/197953" NA ...
 $ Bar Index : int  0 NA -1 NA NA -2 NA NA -3 NA ...
 $ Tick Range: int  0 NA 0 NA NA 0 NA NA 0 NA ...
 $ Open      : num  33.9 NA 33.9 NA NA ...
 $ High      : num  33.9 NA 33.9 NA NA ...
 $ Low       : num  33.9 NA 33.9 NA NA ...
 $ Close     : num  33.9 NA 33.9 NA NA ...
 $ Vol       : int  100 NA 200 NA NA 100 NA NA 400 NA ...
 $ MACDHist  : num  -59 NA -87 NA NA ...
 $ MACD      : num  -450 NA -445 NA NA ...
 $ MACDSig   : num  -391 NA -358 NA NA ...
 $ ZScore1   : num  NA NA NA NA NA NA NA NA NA NA ...

希望使用此功能来加快数据清理速度。
问题
在脚本编辑器中运行该函数之后，然后传递一个data.frame来运行它。但是该功能不执行任何操作，当我查看(WFM)时，它仍然是相同的旧数据。但是，当我手动运行命令时:WFM$Vol[is.na(WFM$Vol)] <- 0然后就可以了。
我尝试过的事情
我尝试根据看似相关的两个链接进行实验:
使用WFM <- naToZero(WFM)，产生一个具有单个值0的向量。
尝试使用WFM <- data.table(WFM)并运行功能...一样。
我一定缺少基本的东西。

最佳答案

实际上，R中的所有对象都是不可变的:操作不会修改原始对象，它们会创建一个副本。因此，您需要将该副本分配回原始副本。
<-可以做到这一点，但是它会在函数内部分配给df，这是您传递给函数的参数(= WFM)的副本。

因此，您需要修改您的功能:

naToZero <- function(df) {
    df$Vol[is.na(df$Vol)] <- 0
    df
}

…以及您如何称呼它:

WFM = naToZero(WFM)

关于r - 将data.frame作为参数传递给函数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/43499155/