Блог

Я пытаюсь создать новый фрейм данных на основе инструкции ifelse. Я проверяю 1 фрейм данных, чтобы увидеть, содержит ли поле строку. Если это произойдет, я затем хочу добавить строки из этого фрейма данных в другой фрейм данных, используя методы filter, subset и 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")
 

Что я здесь делаю не так?

ifelse принимает ровно три аргумента. Вы, кажется, предоставляете … 6? Я думаю? Вот что означает «неиспользуемый аргумент»: вы дали ему слишком много аргументов. Вот почему ваш первый пример работает, только три аргумента.

Используется ifelse для выбора между значениями при запуске вектора. Это хорошо для простых заданий, таких как замена NAs : 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 .

Возможно, лучше использовать 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"