Highchart：我可以使用不同的变量作为数据标签吗？

Question

我正试图通过r studio中的高图来构建柱形图。我已将值转换为％，因为我希望图表显示％，但我希望数据标签显示值，有没有办法做到这一点？

我的数据集有一个列，其中包含伦敦的值和伦敦的百分比，我希望图表的Y轴显示％，而数据标签显示该值。

这是我目前的代码：

    hc <- highchart() %>%
  hc_title(text= "Gender - London")%>%
  hc_colors('#71599b') %>%
  hc_yAxis(max = 0.7) %>%
  hc_xAxis(categories = Sex$Gender) %>%
  hc_add_series(name = "London", type = "column",
                data = Sex$LON_PERC, dataLabels = list(enabled=TRUE, format={Sex$London}) ) 

所以，我把Sex $ LON_PERC（在伦敦的百分比）作为数据来绘制，而Sex $ London是数据标签。

但是这段代码将伦敦的所有值都放在每个数据标签中。

编辑：

这是我试图绘制的数据，Y轴上的LON_PERC，X轴上的性别和数据标签中的伦敦

Gender    London    LON_PERC
Declined    5      0.000351247
Female    8230     0.578152441
Male      4640     0.325957148
No Data   1360     0.095539164

Answer 1

我对使用'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
                  ")

A Solution using base r

barplot函数返回一个向量（当besides为false时），绘制条形的所有中点的坐标（如果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

这产生以下图：

A solution based on 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()) 

产生以下情节：

在这两种情况下，许多特征可能会适应您的需求/愿望。

我希望你从这些例子中受益，即使它不是用高级图表制作的。

Answer 2

我找到了一个解决方法。

所以，我可以添加一个“工具提示”，当我将鼠标悬停在列/栏上时会出现。

首先，需要一个功能：

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
}

然后在创建高亮图时需要调用此函数。

数据如下：

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

然后生成高图的代码是：

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

这给出了以下输出：

然后，当我将鼠标悬停在每个栏/栏上时，它会显示％信息和数字信息，如下所示：