Đối phó với ngày tháng và thời gian trong R

Question

Tôi có một khung dữ liệu với 2 cột, ngày chứa đầu tiên, và thứ hai có chứa lần, trong các định dạng:

 date   time   
[1,] "2003-10-03" "22:32:00" 
[2,] "2003-10-05" "17:43:06" 
[3,] "2003-10-10" "18:45:56" 
[4,] "2003-11-12" "17:07:16" 
[5,] "2003-11-13" "12:48:04" 
[6,] "2003-11-13" "18:17:57" 

Tôi muốn tạo ra một số biểu đồ của các dữ liệu xem số lượng sự kiện mỗi năm, mỗi tháng và vào một giờ cụ thể trong ngày.

Cho năm đó là dễ dàng

hist(as.Date(df[,1]), "years") 

Bây giờ, để có được số sự kiện mỗi tháng (không tính đến năm) tôi đã sử dụng:

months = c("January", "February", "March", 
      "April", "May", "June", "July", 
      "August", "September", "October", 
      "November", "December") 
tb <- table(factor(months.Date(dt), levels=months) 
barplot(tb) 

Câu hỏi:

1. Is có cách nào tốt hơn để làm biểu đồ mỗi tháng?
2. Làm cách nào để làm điều tương tự cho thời gian trong ngày (thùng hàng giờ là đủ)?

Cảm ơn

Answer 1

Tôi sẽ sử dụng XTS, đặc biệt là nếu bạn có dữ liệu khác hơn là ngày tháng và thời gian trong data.frame của bạn.

df$count <- 1 
x <- xts(df$count,as.POSIXct(paste(df$date,df$time))) 

# create aggregates and plot with plot.zoo() 
plot.zoo(period.apply(x, endpoints(index(x),"years"), sum), type="h") 
plot.zoo(period.apply(x, endpoints(index(x),"quarters"), sum), type="h") 
plot.zoo(period.apply(x, endpoints(index(x),"months"), sum), type="h") 
plot.zoo(period.apply(x, endpoints(index(x),"weeks"), sum), type="h") 
plot.zoo(period.apply(x, endpoints(index(x),"days"), sum), type="h") 
plot.zoo(period.apply(x, endpoints(index(x),"hours"), sum), type="h") 

Answer 2

Nếu bạn không nhớ nhãn là "01" thay vì "tháng một" bạn có thể làm một cái gì đó như thế này

barplot(table(format(df$date,"%m")))