r语言 - 如果缺少需要 TRUE/FALSE 的值 - 星期几作为数字

Question

我有以下代码将星期几标识为数据集中的数字：

sapply(weekdays(as.Date(date), abbreviate=TRUE), 
     function(x) if(x=="Sun") 1 else 
                 if(x=="Mon") 2 else 
                 if(x=="Tue") 3 else 
                 if(x=="Wed") 4 else 
                 if(x=="Thu") 5 else 
                 if(x=="Fri") 6 else 
                 if(x=="Sat") 7 else 0)
}

但是我遇到的问题是，当我尝试使用以下公式应用它时，我的日期中必须有空白：

d$dow <- myweekday(d$DateTime)

R 会引发此错误：

if （x == "Sun"） 1 else if （x == "Mon"） 2 else if （x ==

"Tuesday"） 3 else if （x == ： 需要真/假的地方缺少值

请问我该如何进行？我试图在上面放置另一个 if 命令（如果 X=="NA"）0，但这不起作用。

任何帮助将不胜感激。

Answer 1

你的代码看起来还可以，除了末尾的单个括号（复制粘贴错误？您收到错误是因为输入中可能缺少一些数据;这给出了相同的错误消息

sapply(weekdays(c(Sys.time(), NA), abbreviate=TRUE), function(x) 
  if(x=="Sun") 1 else 
    if(x=="Mon") 2 else 
      if(x=="Tue") 3 else 
        if(x=="Wed") 4 else 
          if(x=="Thu") 5 else 
            if(x=="Fri") 6 else 
              if(x=="Sat") 7 else 0)

如果输入中有任何错误（NA 或与日期不匹配的内容），则工作日函数会给出错误。最好使用已经处理数字日期名称的lubridate::wday()函数：

library(lubridate)
wday(as.Date(date))
#### [1]  6 NA

然后，您可以将 NA 替换为所需的任何内容。