R HighCharter-无需显示的数据

总之，尝试使用highchart（）函数结合add_series-list构建堆叠柱状图。使用：

大多数情况下，但当我运行highcharter代码时，我最终得到了一个情节： 主题正确、标题正确，并且订单类型似乎已说明。但是，我以没有数据显示结束。试图简化并删除了第二个列表。以下是我所拥有的：

orderTypeBar <- monthSummary %>%
  group_by(OrderType) %>%
  do(monthSummary = list_parse2(.[, c('monthGroup', 'Total')])) %>%
  rename(name = OrderType) %>%
  mutate(OrderType = 'column') %>%
  list_parse()

highchart() %>%
  hc_add_theme(hc_theme_ffx()) %>%
  hc_title(text = "Revenue By Order Type") %>%
  hc_add_series_list(orderTypeBar) %>%
  hc_xAxis(categories = monthSummary$monthGroup) %>%
  hc_plotOptions(series=list(stacking='normal'))

orderTypeBar%
分组依据（订单类型）%>%
do（monthSummary=list_parse2（[，c（'monthGroup'，'Total'）））%>%
重命名（名称=订单类型）%>%
mutate（OrderType='column'）%>%
list_parse（）
highchart（）%>%
hc_添加_主题（hc_主题_ffx（））%>%
hc_标题（text=“按订单类型划分的收入”）%>%
hc_添加_系列_列表（orderTypeBar）%>%
hc_xAxis（类别=月汇总$monthGroup）%>%
hc\U绘图选项（系列=列表（堆叠=正常”）

汇总表是使用以下dplyr转换生成的

monthSummary <- data %>%
  group_by(monthGroup, OrderType) %>%
  summarise(CustomerNumber = n()
            , SalesFulfilled = sum(Fulfilled)
            , SalesFreight = sum(Freight)
            , SalesTax = sum(Tax)
            , ServiceLabor = sum(LaborAmount)
            , ServiceMaterials = sum(MaterialCost)
            , Total = sum(Total)) %>%
  ungroup()

monthSummary%
分组依据（月组，订单类型）%>%
摘要（CustomerNumber=n（）
，SalesImplemented=sum（已完成）
，销售运费=总（运费）
，销售税=总额（税）
，ServiceLabor=总和（LaborAmount）
，服务材料=总额（材料成本）
，总计=总和（总计））%>%
解组（）

绘图结果：

用于生成数据子集的代码：

test <- tibble::tribble(
    ~monthGroup,     ~OrderType, ~TransActionCount, ~SalesFulfilled, ~SalesFreight, ~SalesTax, ~ServiceLabor, ~ServiceMaterials,   ~Total,
    "2017-01",       "Credit",                4L,            -189,             0,      -3.6,             0,                 0,   -192.6,
    "2017-01",    "Equipment",                9L,           12286,             0,    250.66,             0,                 0, 12536.66,
    "2017-01",   "Networking",                2L,             9.9,             0,         0,             0,                 0,      9.9,
    "2017-01",   "Part Order",                2L,             658,             0,     39.48,             0,                 0,   697.48,
    "2017-01", "Service Call",              190L,               0,             0,         0,       9523.62,            2287.9, 12269.38,
    "2017-01",       "Supply",               76L,        26682.18,             5,   1274.05,             0,                 0, 24639.73
)

---

test您需要
type='column'
和
hc\u xAxis（categories=test$monthGroup）

库（tidyverse）
图书馆（高级特许）
测试%
do（数据=list_parse2（[，c（'monthGroup'，'Total'）））%>%
重命名（名称=订单类型）%>%
变异（类型='列'）%>%
list_parse（）
highchart（）%>%
hc_xAxis（类别=测试$monthGroup）%>%
hc_添加_系列_列表（orderTypeBar）%>%
hc_添加_主题（hc_主题_ffx（））%>%
hc_标题（text=“按订单类型划分的收入”）%>%
hc\U绘图选项（列=列表(
dataLabels=list（enabled=TRUE），
堆叠=“正常”，
enableMouseTracking=TRUE）

您能否通过共享您的数据样本使您的问题重现，以便其他人能够提供帮助（请不要使用
str（）
、
head（）
或屏幕截图）？您可以使用和包来帮助您实现这一点。另请参见&肯定是。对没有添加此内容表示歉意。我添加了一个片段，它将生成monthSummary data frame.Tung的一个子集，它的工作非常出色。虽然列是由orderTypeBar组件设置的，但需要深入研究。非常感谢！
library(tidyverse)
library(highcharter)

test <- tibble::tribble(
  ~monthGroup,     ~OrderType, ~TransActionCount, ~SalesFulfilled, ~SalesFreight, ~SalesTax, ~ServiceLabor, ~ServiceMaterials,   ~Total,
  "2017-01",       "Credit",                4L,            -189,             0,      -3.6,             0,                 0,   -192.6,
  "2017-01",    "Equipment",                9L,           12286,             0,    250.66,             0,                 0, 12536.66,
  "2017-01",   "Networking",                2L,             9.9,             0,         0,             0,                 0,      9.9,
  "2017-01",   "Part Order",                2L,             658,             0,     39.48,             0,                 0,   697.48,
  "2017-01", "Service Call",              190L,               0,             0,         0,       9523.62,            2287.9, 12269.38,
  "2017-01",       "Supply",               76L,        26682.18,             5,   1274.05,             0,                 0, 24639.73
)

orderTypeBar <- test %>%
  group_by(OrderType) %>%
  do(data = list_parse2(.[, c('monthGroup', 'Total')])) %>%
  rename(name = OrderType) %>% 
  mutate(type = 'column') %>% 
  list_parse()

highchart() %>%
  hc_xAxis(categories = test$monthGroup) %>%
  hc_add_series_list(orderTypeBar) %>% 
  hc_add_theme(hc_theme_ffx()) %>%
  hc_title(text = "Revenue By Order Type") %>%
  hc_plotOptions(column = list(
    dataLabels = list(enabled = TRUE),
    stacking = "normal",
    enableMouseTracking = TRUE))