R 无法将高级对象映射到反应对象元素

我有一个大型闪亮的应用程序，允许用户使用最初选择的同一组参数，同时过滤API和spark表聚合（转储到.Rdata）。将所有这些都整合到一个可复制的示例中是很困难的，但是，这是一个对我感兴趣的度量进行分组和求和的函数（尽量不要让我粘贴到

partitionFiltered（）

）：

我的highcharter电话似乎没有像我预期的那样对美学进行分组和着色：

        hc <- highchart() %>% 
              hc_add_series(data = df()$count_dir, 
              type = input$plot_type,
              name = factor(df()$direction)
              showInLegend = TRUE,
              # ??group = df()$direction,
              # ??color = df()$direction,
              # ??x = df()$updatedTimeHour, y = df()$count_dir, color = df()$direction,
              # ??hcaes(x = df()$updatedTimeHour, y = df()$count_dir, color = df()$direction)
              ) %>%
              hc_xAxis(type = 'datetime',
                       # ??group = factor(df()$direction),
                       categories = df()$updatedTimeHour,
                       tickmarkPlacement = "on",
                       opposite = FALSE) %>%
              hc_title(text = "NetFlows, by Hour",
                       style = list(fontWeight = "bold")) %>% 
              hc_exporting(enabled = TRUE, filename = "threat_extract")

hc%
hc_添加_系列（数据=df（）$count_dir，
类型=输入$plot\u类型，
名称=系数（df（）$方向）
showInLegend=TRUE，
#？？组=df（）$方向，
#？？颜色=df（）$方向，
#？x=df（）$updatedTimeHour，y=df（）$count\U dir，color=df（）$direction，
#？？HCAE（x=df（）$updatedTimeHour，y=df（）$count\U dir，color=df（）$direction）
) %>%
hc_xAxis（类型='datetime'，
#？？组=系数（df（）$方向），
categories=df（）$updatedTimeHour，
tickmarkPlacement=“on”，
相反=假）%>%
hc_标题（text=“网络流量，按小时计算”，
样式=列表（fontwweight=“bold”）%>%
hc_导出（enabled=TRUE，filename=“threat_extract”）

正如您可能知道的，我非常困惑于如何映射x分组

udpatedTimeHour

，或者适当地为不同的

方向
级别着色，并确保它们的
组
正确映射到图例中的标签并悬停

我还尝试使用
hcaes（）
调用映射这些美学，我在一些文档中看到它作为
hc\u add\u series（）
的一个参数包含在调用中，但我遇到错误，说该参数在
hc\u
函数中没有（不再？）命名

非常感谢您的帮助，还有一个相关的问题。
您正试图将多个对象作为一个系列添加，这就是无法工作的原因。只需稍微更改一下代码并使用“magic”功能
hchart
即可：

df = data_frame(updatedTimeHour = c(6,6,6,6,7,7,7,7,8), direction = c(1,2,0,3,2,0,1,3,1), count_dir = rnorm(9))
type = "line"
hchart(df, type, hcaes(x = updatedTimeHour, y = count_dir, group = as.factor(direction))) %>% 
   hc_title(text = "NetFlows, by Hour",
       style = list(fontWeight = "bold")) %>% 
   hc_exporting(enabled = TRUE, filename = "threat_extract")

您试图将多个对象作为一个系列添加，这就是无法工作的原因。只需稍微更改一下代码并使用“magic”功能
hchart
即可：

df = data_frame(updatedTimeHour = c(6,6,6,6,7,7,7,7,8), direction = c(1,2,0,3,2,0,1,3,1), count_dir = rnorm(9))
type = "line"
hchart(df, type, hcaes(x = updatedTimeHour, y = count_dir, group = as.factor(direction))) %>% 
   hc_title(text = "NetFlows, by Hour",
       style = list(fontWeight = "bold")) %>% 
   hc_exporting(enabled = TRUE, filename = "threat_extract")

先生，你就是那个人。我想我的问题很大一部分是因为我在处理df的反应性，但我也需要这一块。先生，你就是那个人。我想我的问题很大一部分是因为我在处理df的反应性，但我也需要这篇文章。
df = data_frame(updatedTimeHour = c(6,6,6,6,7,7,7,7,8), direction = c(1,2,0,3,2,0,1,3,1), count_dir = rnorm(9))
type = "line"
hchart(df, type, hcaes(x = updatedTimeHour, y = count_dir, group = as.factor(direction))) %>% 
   hc_title(text = "NetFlows, by Hour",
       style = list(fontWeight = "bold")) %>% 
   hc_exporting(enabled = TRUE, filename = "threat_extract")