我有一个数据框headcount.df,如下所示:

Classes ‘data.table’ and 'data.frame':  2762 obs. of  7 variables:
 $ Worker ID        : chr  "1693" "1812" "1822" "1695" ...
 $ Job Posting Title: chr  "Accountant" "Business Analyst I" "Finance Analyst II" "Business Analyst V" ...
 $ State/Province   : chr  "Texas" "Michigan" "Heredia" "California" ...
 $ Country          : chr  "USA" "USA" "CRI" "USA" ...
 $ Worker Start Date: POSIXct, format: "2016-05-01" "2016-05-01" "2016-05-01" "2016-05-01" ...
 $ Worker End Date  : POSIXct, format: "2017-04-30" "2017-04-30" "2017-04-30" "2017-04-30" ...
 $ Labor Type       : chr  "Business Professional" "Business Professional" "Business Professional" "Business Professional" ...

作为注释,这里可能有重复的记录

我可以使用下面的ggplot创建一个图表

x <- "2017-03-03"
y <- "2017-10-31"
headcountbar <- headcount1.df %>%
    filter(`Worker Start Date`>=x & `Worker End Date`<=y) %>% 
    group_by(`State/Province`) %>% 
    summarise(Headcount = n_distinct(Worker))

ggplot(data = headcountbar, aes(x=`State/Province`,y = Headcount, fill = `State/Province` )) +
    geom_bar(stat="identity",position = position_dodge())

上面的代码只给了我两个日期之间的 Worker 人数,我希望能够按月/季度分解 .

我想使用shinydashboard来使这个更具交互性,我可以选择x轴,以便按时间范围显示人数或按人工类型显示人数 .

我知道这里有很多,所以非常感谢任何指导 .