如何使用nest()、map()和hchart()同时生成多个交互式图表？

Question

我有一个数据集，基本上包含月份、星期几（星期一到星期日）、该月那一天发生的交通拥堵百分比。因此，我尝试使用 Nest()、map() 和 hchart() 创建一系列交互式饼图。但是，当我运行代码时，没有生成任何绘图，也没有错误消息。下面是我的代码。

by_Month_pie <- Jam_DofW_Month_Ratio %>% 
  group_by(Month) %>% 
  nest() %>% 
  mutate(plot = map(data,
                     ~hchart(
                       'pie', hcaes(x= DofWeek, y=Ratio),
                       name = paste("Month: ", Jam_DofW_Month_Ratio$Month)) + # (.)
                       facet_grid(Month)))

by_Month_pie$plot

下面的代码可以很好地生成交互式饼图。

hc <- hchart(Jam_DofW_Month_Ratio %>%
           subset(Jam_DofW_Month_Ratio$Month == 'a5'),
    "pie", hcaes(x = DofWeek, y = Ratio),
    name = paste("Month: ", Jam_DofW_Month_Ratio$Month)
  )

hc

如果有朋友能帮我解决这个问题，我将不胜感激。多谢！

包含每月每天拥堵百分比的表格