Получить гистограмму, используя вектор даты

Question

Я работаю над этим набором данных, используя R, и я пытаюсь показать количество инцидентов каждый год.

Используя страницы справки R, я написал:

getData=read.csv('planecrashinfo_20181121001952.csv')
attach(getData)
lct <- Sys.getlocale("LC_TIME"); Sys.setlocale("LC_TIME", "C")
getData$date<-as.Date(date, format='%B %d, %Y')

Это работает, но использование

hist(date, "years", format= '%Y')

приводит к

"Ошибка в Hist.default (дата," годы ", формат ="% Y "): 'x' deve essere numeric ".

Есть ли пакет, который я не использую?

Answer 1

Я бы предложил использовать lubridate для полей даты:

library(readr)
library(lubridate)
library(ggplot2)
getData <- read_csv("planecrashinfo_20181121001952.csv")
getData$date <- mdy(getData$date)
hist(year(getData$date))

Или с ggplot

ggplot(data = getData , aes(x = year(date))) + 
  geom_histogram(binwidth = 1)