Highchart: Могу ли я использовать другую переменную в качестве меток данных?

Мне довольно неудобно работать с пакетом «highcharter», так как он требует коммерческой лицензии, которой у меня нет.

Результат, которого вы хотите достичь, может быть достигнут с помощью следующего - довольно простого - кода, использующего функции base r или ggplot, которые являются бесплатными. Я покажу это с двумя фрагментами кода ниже.

### your data
Sex <- read.table(header = TRUE, text = 
            "Gender     London     LON_PERC
             Declined       5      0.000351247
             Female      8230      0.578152441
             Male        4640      0.325957148
            'No Data'    1360      0.095539164
                  ")

Решение с использованием базы r

Функция barplot возвращает вектор (когда besides ложно) с координатами всех средних точек нарисованных полос (если besides истинно, это матрица). Это дает нам X-координаты для установки текста над полосами, высоту полос, которые мы уже имеем в данных, которые мы строим, верно.

# Draw the barplot and store result in `mp`
mp <- barplot(Sex$LON_PERC,     # height of the bar 
    names.arg = Sex$Gender,     # x-axis labels
    ylim = c(0, 0.7),           # limits of y-axis
    col = '#71599b',            # your color
    main = "Gender - London")   # main title

# add text to the barplot using the stored values
text(x = mp,                    # middle of the bars 
    y = Sex$LON_PERC,           # height of the bars
    labels = Sex$London,        # text to display
    adj = c(.5, -1.5))          # adjust horizontally and vertically

Это дает следующий график:

Решение на основе ggplot

library(ggplot2)

ggplot(aes(x = Gender, y =  LON_PERC), data = Sex) +
  geom_bar(stat = "identity", width = .60, fill = "#71599b" ) +    
  geom_text(aes(label = London), 
            position = position_dodge(width = .9), 
            vjust = -.3, size = 3, hjust =  "center") +
  theme_minimal() +
  scale_y_continuous(limits = c(0, 0.7), 
            breaks = seq(0.0, 0.7, by = 0.1), 
            minor_breaks = NULL) +
  labs(title = "Gender - London") + 
  theme(axis.title.y = element_blank(), axis.title.x = element_blank()) 

давая следующий сюжет:

В обоих случаях многие характеристики могут быть адаптированы к вашим потребностям / пожеланиям.

Я надеюсь, что эти примеры вам пригодятся, даже если они созданы не с использованием highcharter.

Я нашел обходной путь.

Итак, я могу добавить «всплывающую подсказку», которая появляется при наведении курсора на столбец / панель.

Во-первых, нужна функция:

myhc_add_series_labels_values <- function (hc, labels, values, text, colors= NULL, ...) 
{
  assertthat::assert_that(is.highchart(hc), is.numeric(values), 
                          length(labels) == length(values))
  df <- dplyr::data_frame(name = labels, y = values, text=text)
  if (!is.null(colors)) {
    assert_that(length(labels) == length(colors))
    df <- mutate(df, color = colors)
  }
  ds <- list_parse(df)
  hc <- hc %>% hc_add_series(data = ds, ...)
  hc
}

а затем при создании highchart необходимо вызвать эту функцию.

Данные выглядят следующим образом:

Sex <- read.table(header = TRUE, text = 
            "Gender     London     LON_PERC
             Declined       5      0.000351247
             Female      8230      0.578152441
             Male        4640      0.325957148
            'No Data'    1360      0.095539164
                  ")

Тогда код для генерации highchart:

Gender<- highchart() %>%
      hc_xAxis(categories = Sex$Gender, labels=list(rotation=0))%>%
      myhc_add_series_labels_values(labels = Sex$Gender,values=Sex$LON_PERC, text=Sex$London, type="column")%>%
      hc_tooltip(crosshairs=TRUE, borderWidth=5, sort=TRUE, shared=TRUE, table=TRUE,pointFormat=paste('<br>%: {point.y}%<br>#: {point.text}'))%>%
      hc_legend()

Это дает следующий результат:

Затем, когда я нахожу указатель мыши на каждый столбец / столбец, он дает информацию о% и числовую информацию, как можно увидеть здесь: