0

带有丑陋图例位置的散景图我一直在使用 rbokeh 在 flexdashboards 中绘制一些动态图。因为这是映射到变量中的分类数据的条形图Classification，所以我无法手动创建图例，这很好，因为 rbokeh 会自动创建。

但是，我在图例和标签方面遇到了一些问题：

  1. 它的位置很糟糕，我想告诉 r 放在左上角，以使其远离内容栏。

  2. 我想将红色 ab_line 放到图例中并标记它（使用标准legend =将不起作用，因为基础图表中的映射变量

  3. 该图需要符合 508 标准才能进行翻译，flexdashboard 以及左侧边距上的散景工具和弹出窗口中的键，但值和标签仍为英文。有没有人有办法让图表响应谷歌翻译？如果这涉及到编辑突出的页面，我很好......我只需要更多的指导来做这件事。

    figure(title=" Confirmed & Probable Cases by Year",width= 1400, height =350)%>% ly_bar(x=Year, y= count, position='stack', data=probConf, width=.9,hover=TRUE, legend=TRUE, color=Classification) %>% x_axis(label ='Year')%>% y_axis(label ='Cases')%>% ly_abline(v=17.5, legend=NULL, color = "red", width =1, alpha=.5)%>% [![enter image description here][1]][1]set_palette(discrete_color = pal_color(c("#ee9f00", "#ffcc66")))

4

1 回答 1

0

要回答第 1 个问题，您可以使用legend_location指定图例的位置（请参见下面的示例并注意我将probConf数据替换为 lattice barley 数据集，以便其他人可以重现）。

figure(title = " Confirmed & Probable Cases by Year", width = 1400,
  height = 350, legend_location = "top_left") %>%
  ly_bar(x = variety, y = yield, position = "stack", data = lattice::barley,
    width = 0.9, hover = TRUE, legend = TRUE, color = year) %>%
  x_axis(label = "Year") %>%
  y_axis(label = "Cases") %>%
  ly_abline(v = "Svansota:1", color = "red",  width = 1, alpha = 0.5) %>%
  set_palette(discrete_color = pal_color(c("#ee9f00", "#ffcc66")))

#2 目前在 rbokeh 中很难实现，但它应该在未来对这种情况（混合映射和用户定义的图例条目）更加稳健。如果ly_abline()要接受数据作为参数，您可以使用颜色映射变量来解决问题。

一种不是很漂亮的解决方案是手动绘制条形图多边形ly_rect（每个分类调用ly_rect一次）并为它们使用自定义图例条目，然后为ly_abline.

我不知道#3 的答案。

于 2017-04-26T18:55:46.983 回答