使用 R 的 ifelse 语句中的未使用参数错误

Question

我正在尝试根据 ifelse 语句创建一个新的数据框。 我正在检查 1 个数据帧以查看字段是否包含字符串。 如果是这样，那么我想使用过滤器、子集和 rbind 方法将该数据框中的行添加到另一个数据框中：

这有效：

  #Check to see if field contains string. 
  timeline.data.2 <-ifelse(grepl(1043-1, prescription.data$case_id), 
                                timeline.data <- timeline.data %>%
                                  filter(case_id==1043-1),          

                                "do nothing")

这不会：

  #Check to see if field contains string. 
  timeline.data.2 <-ifelse(grepl(1043-1, prescription.data$case_id), 
                                timeline.data <- timeline.data %>%
                                  filter(case_id==1043-1),
                                timeline.data <-subset(timeline.data, select = c(event,group,start,end,color,tooltip)),
                                timeline.data <- subset(prescription.data, select = c(event,group,start,end,color,tooltip)),
                                timeline.data <- rbind(timeline.data, prescription.data),
                                "do nothing")

我收到错误：

Error in ifelse(grepl(1043 - 1, prescription.data$case_id), timeline.data <- timeline.data %>%  : 
unused argument ("do nothing")

谁能告诉我我在这里做错了什么？ 非常感谢。

Answer 1

ifelse正好接受三个参数。 你似乎提供... 6？ 我认为？ 这就是“未使用的论点”的意思：你给了它太多的论点。 这就是为什么你的第一个例子有效，只有三个参数。

当您运行向量时，您可以使用ifelse在值之间进行选择。 它适用于替换 NA 等简单工作： ifelse(is.na(my_data), 'bad value', my_data) 。

在你澄清你使用ifelse的目的之后，正确地缩进和换行你的代码。 然后你将能够解释什么是参数，什么不是，这样的错误消息会更有意义。

如果我通过styler运行你的代码，它会像这样打印：

# Check to see if field contains string.
timeline.data.2 <- ifelse(grepl(1043 - 1, prescription.data$case_id),
  timeline.data <- timeline.data %>%
    filter(case_id == 1043 - 1),
  timeline.data <- subset(timeline.data, select = c(event, group, start, end, color, tooltip)),
  timeline.data <- subset(prescription.data, select = c(event, group, start, end, color, tooltip)),
  timeline.data <- rbind(timeline.data, prescription.data),
  "do nothing"
)

现在更容易看到所有这些行，以逗号结尾，进入ifelse 。

Answer 2

使用if/else可能更好

library(dplyr)
if(any(grepl("1043-1", prescription.data$case_id))) {

    timeline.data <- timeline.data %>%
                        filter(grepl("1043-1", case_id))

 } else "do nothing"