3

我正在制作一个输出星期几的函数,给定自 1970 年 1 月 1 日以来的天数。当它是一个if then语句链时,该函数运行良好,但我想在向量上使用该函数,所以我需要构建这个看起来很傻的ifelse语句链。

不幸的是,我不断收到此错误:

Error in ifelse(rem == 0, day = "Thursday", ifelse(rem == 1, day = "Friday",  : 
unused argument(s) (day = "Thursday")
Calls: dayFinder -> ifelse
Execution halted

我无法弄清楚如何绕过它 - 看起来它只是忽略了声明的then一部分。ifelse我尝试向它提供各种样本数据集或数据点,但无法修复错误。

这是我的代码 - 在此先感谢。

dayFinder <- function(x){
#Assuming that '0' refers to January 1 1970
#Store given number
start <- x
#Initialize variable
day="Halloween"
#Divide x by 7 and store remainder
rem <- x%%7
#Determine the day
ifelse(rem==0, day="Thursday", 
    ifelse (rem==1, day="Friday", 
        ifelse (rem==2, day="Saturday", 
            ifelse (rem==3, day="Sunday", 
                ifelse (rem==4, day="Monday", 
                    ifelse(rem==5, day="Tuesday", 
                        if (rem==6)
                            {
                                day="Wednesday"
                                }))))))
return(day)
}

q = seq(7,50,1)
z = dayFinder(q)
z
4

3 回答 3

10

链有一些问题ifelse,但我想首先提到一种以更易读的方式编写这种选择器的方法。

days.of.week <- c("Thursday", "Friday", "Saturday", "Sunday", "Monday", "Tuesday", "Wednesday")
x <- 21  # some value
day <- days.of.week[(x%%7) + 1]
day
[1] "Thursday"


现在... 关于ifelseand 的使用unused argument error...
首先,请记住ifelse () 是一个 function,因此当您编写类似 的语句时
... ifelse(rem == 0, day="Thursday, ...,R 将解释该day="..."部分,就好像您将命名参数 day传递给函数一样。
此外,一般来说,您应该避免使用=[大部分时间],您可能的意思是使用<-.
无论如何,纠正了 ifelse 链应该看起来像

rem <- 21%%7
day <- ifelse(rem==0, "Thursday", 
         ifelse (rem==1, "Friday", 
           ifelse (rem==2, "Saturday", 
             ifelse (rem==3, "Sunday", 
               ifelse (rem==4, "Monday", 
                 ifelse(rem==5, "Tuesday", "Wednesday")
               )
             )
           )
         )
       )
于 2012-11-09T07:35:25.580 回答
8

有比使用嵌套 if else 语句更好的条件重新编码方法。使用dplyr::case_when。它会真正改变你的生活。下面是使用 case_when 时的代码,更简洁:

    day <- case_when(
      rem==0 ~ "Thursday", 
      rem==1 ~ "Friday", 
      rem==2 ~ "Saturday", 
      rem==3 ~ "Sunday", 
      rem==4 ~ "Monday", 
      rem==5 ~ "Tuesday",
      rem==6 ~ "Wednesday"
    )
于 2017-07-11T15:33:37.310 回答
3
dayFinder <- function(x) weekdays(as.Date("1970/1/1") + x)
dayFinder(21)
# [1] "Thursday"
dayFinder(c(21, 101))
# [1] "Thursday" "Sunday"  
于 2012-11-09T09:40:31.347 回答