Метка оси усечена на графике highcharter

Это выглядит так, как ожидалось:

df <- structure(list(surveillance_diag = c("Meningitis", "Sepsis"), 
                     y = c(1239L, 7850L), color = c("#1f78b4", "#e31a1c"), 
                     freq = c(14, 86)), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"))


library(highcharter)
library(magrittr)

highchart() %>% 
  hc_yAxis(title = "") %>%
  hc_xAxis(categories = df$surveillance_diag) %>%
  hc_add_series(data = df, type = "bar", hcaes(x = surveillance_diag, y = y, color = color))

введите здесь описание изображения

Но тот же код с фреймом данных только из одной строки / категории вырежет метку категории.

df <- df[1, ]

highchart() %>% 
  hc_yAxis(title = "") %>%
  hc_xAxis(categories = df$surveillance_diag) %>%
  hc_add_series(data = df, type = "bar", hcaes(x = surveillance_diag, y = y, color = color))

введите здесь описание изображения

Как я могу убедиться, что метка отображается правильно независимо от количества категорий?


r r-highcharter
person tic-toc-choc    schedule 11.11.2019    source источник
comment
Я получаю сообщение об ошибке Среда запроса должна быть явно указана как env   -  person mnist    schedule 12.11.2019
comment
Невозможно воспроизвести эту ошибку. Возможно, стоит убедиться, что вы используете последние версии этих пакетов.   -  person tic-toc-choc    schedule 12.11.2019
comment
Вы правы, установили дев-версию. Виноват   -  person mnist    schedule 12.11.2019
comment
@mnist не могли бы вы помочь мне с этим stackoverflow.com/questions/59431981/   -  person John Smith    schedule 22.12.2019

Ответы (1)


arrow_upward
1
arrow_downward

Здесь помогает передача categories в качестве списка.

highchart() %>% 
  hc_yAxis(title = "") %>%
  hc_xAxis(categories = as.list(df$surveillance_diag)) %>%
  hc_add_series(data = df, type = "bar", hcaes(x = surveillance_diag, y = y, color = color))

введите здесь описание изображения

person Iaroslav Domin    schedule 12.11.2019