具有多个迷你图类型的R数据表

希望在不同的列中添加不同类型的迷你图，但被fnDrawCallback选项卡住了

使用本教程作为起点：

代码运行良好，但当我尝试向不同的列添加不同的闪屏类型时，它不起作用，只将两列打印为闪屏，其中一列应该是闪屏，另一列应该是闪屏

bar_string <- "type: 'bar', barColor: 'green', negBarColor: 'red', highlightColor: 'black'"
line_string <- "type: 'line', lineColor: 'blue', maxSpotColor:'green', minSpotColor: 'red', spotColor:'',highlightLineColor: 'black', highlightSpotColor: 'orange'"   
    js <- "function(data, type, full){ return '<span class=sparkSamples>' + data + '</span>' }"
        cd <- list(list(targets = 8, render = JS(js)), list(targets = 9, render = JS(js)))
        cb <- JS(paste0("function (oSettings, json) {
          $('.sparkSeries:not(:has(canvas))').sparkline('html', { ", line_string, " });
          $('.sparkSamples:not(:has(canvas))').sparkline('html', { ", bar_string, " });
        }"), collapse = "")

        # @knitr table_final
        d5 <- datatable(dat_t3, rownames = FALSE, options = list(columnDefs = cd, fnDrawCallback = cb))
        d5$dependencies <- append(d5$dependencies, htmlwidgets:::getDependency("sparkline"))
        d5

或者在这里找到的

dat\u t3%
分组依据（地点、月份、变量、十年）%>%
总结（平均值=圆形（平均值（Val），1），标准差=圆形（标准差（Val），2），最小值=最小值（Val），最大值=最大值（Val），样本数=粘贴（Val，collapse=“，”））%%>%
变异（系列=样本）

dat_t3 = tibble(Location = 'Edmonton', Month = 'Aug', Samples = "14.1,13.6,15.2,15.7,14.2,15.2,16,14.2,17,13.1", Series = "14.1,13.6,15.2,15.7,14.2,15.2,16,14.2,17,13.1")

dat_t3 <- filter(dat, Var == "Temperature" & Month == "Aug") %>%
  group_by(Location, Month, Var, Decade) %>%
  summarise(Mean = round(mean(Val), 1), SD = round(sd(Val), 2), Min = min(Val), Max = max(Val), Samples = paste(Val, collapse = ",")) %>%
  mutate(Series = Samples)