rbokeh将另一个图层字形添加到映射的图例

Question

我正在flexdashboards使用rbokeh在一系列与健康相关的信息中心上创建动态交互式图形和图表。

我当前的困境主要围绕在堆积条形图中添加一条线条，并使用映射的颜色值并将其显示在图例中。

条形图正在完美运作。

但是当我在x轴的不同区域添加一对ab线时，会发生收集方法的变化，我无法找到一种方法让线条显示在映射的图例中。

任何胁迫它的尝试都会返回NO CHART ......

完全难过，希望得到一些帮助！

CODE：

 figure(title= "Confirmed & Probable Cases by Year",tools =c("pan","box_zoom", "reset", "save"), width= 1650, height =950, legend_location='top_left',toolbar_location = "above")%>%
          ly_bar(x=Year, y= count, position='stack', data=probConf, width=.9, hover=TRUE, legend=TRUE, fill_alpha=.7, color=Classification) %>%
          ly_abline(v=17.5, color = "red",  width =1, alpha=.7)%>%
          ly_abline(v=13.5, color = "red",  width =1, alpha=.7, legend ="Change in Case Definition")%>%
          set_palette(discrete_color = pal_color(c( "#336699","#339999")))%>%
          x_axis(label ='Year', grid=FALSE)%>%
          y_axis(label ='Cases',grid=FALSE)

有了这个：, legend ="Change in Case Definition"在那里，我得到NO CHART，只是白色。

使用ly_abline(v=13.5, color = "red", width =1, alpha=.7)%>%我得到一个漂亮的图表，图例上没有线条，如下图所示。

使用：ly_abline(v=13.5, color = "red", width =1, alpha=.7, legend = TRUE)%>%

我根本没有图表（但没有错误代码，只是一大片白色）

Answer 1

不幸的是，当前在rbokeh（从v0.5.1开始）包含映射属性和自定义图例的图例不能混合使用。要立即完成此操作，您可以使用带有自定义图例的较低级别ly_bar()来代替使用ly_rect()来为每种条形颜色绘制矩形。