带有 highcharter 的闪亮应用程序中的多个 y 轴

Question

我正在尝试使用共享 x 轴（天）但具有多个 y 轴（百分比和计数）的 highcharter 在闪亮的应用程序中呈现图表。经过一些研究，我似乎应该使用 'hc_yAxis_multiples' 方法。在左侧 y 轴上，我显示了 %。在右侧 y 轴上，我希望显示计数。有一个基于左侧 y 轴 (%) 的折线图和一个基于右侧 y 轴显示的堆叠条形图。

我已经能够叠加这两个图表，但是基于右侧 y 轴的条形图部分未格式化为相应的 y 轴。根据我一直在看的内容，似乎这样的事情会产生我想要的结果：

##This first block is to show what the data types of the variables I'm using are and what the structure of my df looks like
df$inbox_rate <- df$total_inbox / df$total_volume
df$inbox_rate <- round((df$inbox_rate*100),0)
df$received_dt <- as.character(df$received_dt)
df$received_dt <- as.Date(df$received_dt, "%Y%m%d")
df <- df[order(df$received_dt),]

## This second block here is where I'm trying to build the chart with two Y-axes
hc <- highchart()%>%
hc_title(text = paste(domain_name,sep=""),align = "center") %>%
hc_legend(align = "center") %>%
hc_xAxis(type = "datetime", labels = list(format = '{value:%m/%d}')) %>%
hc_yAxis_multiples(list(title = list(text = "IPR"),labels=list(format = '{value}%'),min=0,
    max=100,showFirstLabel = TRUE,showLastLabel=TRUE,opposite = FALSE),
    list(title = list(text = "Total Subscribers"),min=0,max = max(df$total_users),
    labels = list(format = "{value}"),showLastLabel = FALSE, opposite = TRUE)) %>%
hc_plotOptions(column = list(stacking = "normal")) %>%
hc_add_series(df,"column",hcaes(
  x=received_dt,y=total_users,group=isp,yAxis=total_users)) %>%
hc_add_series(df,type="line",hcaes(
  x=received_dt,y=inbox_rate,group=isp,yAxis=inbox_rate)) %>%   
hc_exporting(enabled = TRUE) %>%
hc_add_theme(thm)
hc

但是这会产生something that looks like this。

为了更深入地了解我正在使用的数据，domain_name 是一个字符串变量，如下所示：example.com。 total_users 变量是一个从 0 到大约 50000 变化的数字。received_dt 变量是一个日期，使用 as.Date(df$received_dt, "%Y%m%d") 格式化。 inbox_rate 变量是百分比，从 0 到 100。

即使条形的值变化很大，条形计数也会显示到图表的整个高度。重申一下，我希望条形图高度所基于的右 y 轴是 df$total_users 的计数。在 hc_yAxis_multiples 函数中，给出了两个列表。我认为第一个列表给出了左边的 y 轴，第二个给出了右边。我能找到的最接近我的问题的答案是this stackoverflow response

如果有人有任何见解，将不胜感激！

Answer 1

您在hc_add_series 中对yAxis 语句的使用似乎已关闭。首先，它不应该在hcaes 内部，其次，它是一个数字，指定系列属于哪个轴（按hy_yAxis_multiple 调用中的出现顺序）。所以应该使用hc_add_series(..., yAxis = 1) 将系列分配给第二个（右）轴。

下面是一个（完全不言自明的、独立的、最小的）示例，展示了它应该如何工作。

library(highcharter)

df <- data.frame(
  total_inbox = c(2, 3, 4, 5, 6),
  total_volume = c(30, 30, 30, 30, 30),
  total_users = c(300, 400, 20, 340, 330),
  received_dt = c("20180202", "20180204", "20180206", "20180210", "20180212"),
  isp = "ProviderXY"
)

df$inbox_rate <- df$total_inbox / df$total_volume
df$inbox_rate <- round((df$inbox_rate*100),0)
df$received_dt <- as.character(df$received_dt)
df$received_dt <- as.Date(df$received_dt, "%Y%m%d")
df <- df[order(df$received_dt),]

hc <- highchart()%>%
  hc_xAxis(type = "datetime", labels = list(format = '{value:%m/%d}')) %>%
  hc_yAxis_multiples(list(title = list(text = "IPR"),labels=list(format = '{value}%'),min=0,
                          max=100,showFirstLabel = TRUE,showLastLabel=TRUE,opposite = FALSE),
                     list(title = list(text = "Total Subscribers"),min=0,max = max(df$total_users),
                          labels = list(format = "{value}"),showLastLabel = FALSE, opposite = TRUE)) %>%
  hc_plotOptions(column = list(stacking = "normal")) %>%
  hc_add_series(df,type="column",hcaes(x=received_dt,y=total_users,group=isp),yAxis=1) %>%
  hc_add_series(df,type="line",hcaes(x=received_dt,y=inbox_rate,group=isp))

hc

也许以此为例，问题中的代码应该是什么样的。 Copy-Paste-Runnable，没有外部变量，并减去所有无关紧要的东西（例如主题和图例）。