db_AE <- as.Date("2014/5/20")
dd_AE <- as.Date("2114/5/20")

bDays <- seq(from=db_AE, to=dd_AE, by="years")

data <-data.frame(table(weekdays(bDays)))
library(tidyverse)
## -- Attaching packages ----------------- tidyverse 1.3.0 --
## √ ggplot2 3.3.0     √ purrr   0.3.3
## √ tibble  2.1.3     √ dplyr   0.8.5
## √ tidyr   1.0.2     √ stringr 1.4.0
## √ readr   1.3.1     √ forcats 0.5.0
## -- Conflicts -------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
names(data) <- c("weekdays", "Freq")
 

 
# plot
ggplot(data, aes(x=weekdays, y=Freq)) +
  geom_segment( aes(x=weekdays, xend=weekdays, y=0, yend=Freq)) +
  geom_point( size=5, color="red", fill=alpha("orange", 0.3), alpha=0.7, shape=21, stroke=2)