Как мне написать функцию, которая подсчитывает, сколько раз дата встречается в моем векторе?

#r #function #date

#r #функция #Дата

Вопрос:

Я изо всех сил пытаюсь написать функцию, которая имеет два аргумента и в конечном итоге выводит «На ДАТУ было X случаев». Я работаю с большим вектором дат в формате гггг-мм-дд и понятия не имею, что делать дальше. Я пока приложу свою работу.

 occurrences_function<- function(Date, vector_of_dates) {
   Date<- ?
   X <- length(Date)
   output<- paste("Records show there were", X, "occurrences on", Date"
   return(output)
} 
 

Ответ №1:

Я предпочитаю суммировать логический вектор:

 occurrences_function <- function(Date, vector_of_dates) {
    count <- sum(vector_of_dates == Date)
    output <- paste("Records show there were", count, "occurrences on", Date)
    return(output)
}
 

Комментарии:

1. Спасибо за быстрый ответ! Как бы это выглядело, если бы я пытался подключить логический вектор? Я попытался это сделать, но он не выводит то, что я хочу, чтобы он сказал

2. Извините … не видел, что вы хотите вернуть сообщение, проверьте обновленный ответ.