r легенда диаграммы боке - плохо перемещается

Question

Я работал на flexdashboards, используя rbokeh для рисования некоторых динамических графиков. Потому что это гистограмма, сопоставленная с категориальными данными в переменной ClassificationЯ не могу вручную создать легенду, и это нормально, потому что rbokeh делает это автоматически.

Однако у меня есть некоторые проблемы с легендой и маркировкой:

1. Он размещен ужасно, я хотел бы сказать, чтобы r располагался в верхнем левом углу, чтобы убрать его из столбцов с содержимым.

2. Я хотел бы добавить красный ab_line в легенду и пометить его (используя стандартные legend = не будет работать из-за отображенных переменных в базовой диаграмме

3. Этот график должен быть 508-совместимым для перевода, flexdashboard, а также инструменты bokeh на левом поле и клавиши во всплывающих окнах, но значения и метки остаются на английском языке. У кого-нибудь есть способ заставить графики реагировать на Google Translate? Я в порядке, если это связано с редактированием экструдированной страницы.... Мне просто нужно больше рекомендаций, чтобы сделать это там.

   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")))

Answer 1

Чтобы ответить на номер 1, вы можете использовать legend_location чтобы указать расположение легенды (см. пример ниже и обратите внимание, что я заменил probConf данные с набором данных решетки ячменя, так что он воспроизводим для других).

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.