Fuzzyjoin left_join на две колонки - PullRequest
0 голосов
/ 20 июня 2019

У меня есть два набора данных, которые я хочу объединить в блестящем приложении

Оба имеют два столбца - даты и буквенно-цифровые строки, которые выбирает пользователь

например, формат столбцов одинаков в двух кадрах данных, т.е.:

EndoNum   EndoDate         PathNum   PathDate        
F321321  13/12/2001       F321321  21/12/2001

Я хочу оставить присоединение к набору данных один с набором данных два, но даты истекают между 1-8 днями

Я пробовал с fuzzyjoin:

        EndoDate<-colnames(RV$data[as.numeric(input$endotable_columns_selected[1])])
        EndoNum<-colnames(RV$data[as.numeric(input$endotable_columns_selected[2])])
        PathDate<-colnames(RV2$data[as.numeric(input$endotable_columns_selected[1])])
        PathNum<-colnames(RV2$data[as.numeric(input$endotable_columns_selected[2])])


  difference_left_join(RV2$data,
                          RV$data,
                          by=setNames(nm=c(EndoNum,EndoDate),c(PathNum,PathDate)),
                          max_dist = 8,
                          distance_col = "Days"
     )

но я получаю ошибку: Error in v1 - v2 : non-numeric argument to binary operator

Как я могу сделать соединение. Должен ли я использовать fuzzyjoin?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...