Question

我想使用rxDataStep向xdf文件添加新列。为实现这一目标，我编写了这段代码：

    rxDataStep(nyc_jan_xdf,transformFunc = CashVsCard )

CashVsCard<-function(dataList)
{

  if(dataList$payment_type==1)
  {
    dataList$cash_vs_Card="Card"
  }
  else
  {
    if(dataList$payment_type==2)
    {
      dataList$cash_vs_Card="Cash"
    }
  }

  return(dataList)
}

然后我收到了这个错误：

   The variable 'cash_vs_Card' has a different number of rows than other columns in the data: 1 vs. 10
Caught exception in file: CxAnalysis.cpp, line: 3830. ThreadID: 7288 Rethrowing.
Caught exception in file: CxAnalysis.cpp, line: 5347. ThreadID: 7288 Rethrowing.
Error in doTryCatch(return(expr), name, parentenv, handler) : 
  The variable 'cash_vs_Card' has a different number of rows than other columns in the data: 1 vs. 10
In addition: Warning messages:
1: In if (dataList$payment_type == 1) { :
  the condition has length > 1 and only the first element will be used
2: In if (dataList$payment_type == 2) { :
  the condition has length > 1 and only the first element will be used

Answer 1

根据另一个变量的值，使用ifelse进行矢量化变换。

cashVsCard <- function(datalist)
{
      datalist$cash_vs_card <- ifelse(datalist$payment_type == 1, "Card", "Cash")
      datalist
}

rxDataStep(*, transformFunc=cashVsCard)

将新列添加到xdf文件

1 个答案: