Блог

Я пытаюсь воспроизвести такой сюжет предпочтительно в R.

Пример статистики совпадений

Я пытаюсь найти решение и проделал некоторую работу с фиктивным набором данных. На данный момент мой результат выглядит так: собственный график статистики матчей

Фиктивный код, который я использовал для создания этого сюжета, таков:

 team_1 lt;- c(rep("team_1", 4)) team_2 lt;- c(rep("team_2",4)) statistics lt;- c("shots", "passes",   "offsides", "corners") values_team_1 lt;- c(5, 120, 5, 2) values_team_2 lt;- c(10, 400, 0, 7)  dummy_frame lt;- data.frame(  team_1, statistics,  values_team_1,  values_team_2,  team_2 )  dummy_frame lt;- dummy_frame %gt;%  mutate(values_team_1_rel = values_team_1 /   (values_team_1   values_team_2),  values_team_2_rel = values_team_2 /   (values_team_1   values_team_2))   barplot_team_1 lt;- plot_ly(dummy_frame,  x = ~ values_team_1_rel * (-1),  y = ~ statistics,  type = "bar",  orientation = "h",  name = "team_1")   barplot_team_2 lt;- plot_ly(dummy_frame,  x = ~ values_team_2_rel,  y = ~ statistics,  type = "bar",  orientation = "h",  name = "team_2")    subplot(barplot_team_1, barplot_team_2,  shareY = TRUE,  margin = 0) %gt;%  layout(barmode = 'grouped',  xaxis = list(title = "",  showticklabels = FALSE),  xaxis2 = list(title = "",  showticklabels = FALSE),  yaxis = list(title ="",  showticklabels = FALSE)) %gt;%  add_annotations(x = 0,  y = dummy_frame$statistics,  text = dummy_frame$statistics,  xref = "x",  yref = "y",  showarrow = FALSE)  

У меня возникли проблемы с поиском аннотации над панелью. Кроме того, это создает это странное пространство между участками (обозначено стрелкой на рисунке). Возможно ли вообще создать такой сюжет в R с помощью plotly? Если да, то что я могу сделать, чтобы найти текст поверх полос и не допустить, чтобы plotly вставлял это странное пространство?

Спасибо