設置路徑並導入數據
setwd("E:/data_set")
datas <- read.csv("Datas.csv")
提取Date數據
Date <- datas["Date"]
切割數據
install.packages("tidyr")
library(tidyr)
sepDate <- separate(Date,Date,c("day","month","year"),"/")
按年統計頻數並可視化
year <- table(sepDate["year"])
year