В качестве альтернативы гистограммам и коробочным графикам может быть полезно видеть даты в календаре. Опираясь на пример, предоставленный googleVis ...
library(googleVis)
library(tidyverse)
date4 <- c(as.Date("01/01/2011", format="%m/%d/%Y"), as.Date("02/01/2012", format="%m/%d/%Y"), as.Date("03/01/2013", format="%m/%d/%Y"))
Date_seq = seq(from = as.Date('2011-01-01'), to = as.Date('2013-12-31'), by = '1 day')
Dates_of_interest <- rep(0, n = length(Date_seq))
Dates_of_interest[Date_seq %in% date4] <- 1
df <- data_frame(Date_seq = Date_seq, Dates_of_interest = Dates_of_interest)
Cal <- gvisCalendar(df,
datevar="Date_seq",
numvar="Dates_of_interest",
options=list(
title="Dates of interest",
height=320,
calendar="{yearLabel: { fontName: 'Times-Roman',
fontSize: 32, color: '#1A8763', bold: true},
cellSize: 10,
cellColor: { stroke: 'red', strokeOpacity: 0.2 },
focusedCellColor: {stroke:'red'}}")
)
plot(Cal)