rCharts dplot - 将颜色映射到特定组答案

【问题标题】：rCharts dplot - Mapping colour to specific groupsrCharts dplot - 将颜色映射到特定组
【发布时间】：2018-03-07 11:03:26
【问题描述】：

我们在 rCharts 中使用 dplot（使用 dimple 库）尝试在 R Shiny 中创建气泡图。这一切都运行良好，但我们无法将特定颜色分配给特定气泡（或下面代码中的“通道”）。我们已经设法使用 defaultColors 指定了一组颜色，但这些颜色是随机分配给通道的，而不是按照我们指定的方式！

谁能帮助我们正确映射 colo(u)rs？

output$BubbleChart2 <- renderChart2({
    Channel <- c('TV','Radio','Press')
    Spend <- c(100000,50000,20000)
    Revenue <- c(500000,100000,30000)
    df <- data.frame(Channel,Spend,Revenue)
    df$ROI <- (df$Revenue/df$Spend)
    r2 <-dPlot(x="Revenue",y="ROI",type="bubble",groups="Channel",z="Spend",data=df,width=750)
    r2$defaultColors("#!d3.scale.ordinal().range(['#C2E588','#FDC382','#FC9A8F']).domain(['TV','Radio','Press'])!#")
    r2$xAxis(type = "addMeasureAxis")
    r2$yAxis(type = "addMeasureAxis")
    r2$zAxis(type = "addMeasureAxis")
    r2$legend( x = 200,
               y = 7,
               width = 400,
               height = 20,
               horizontalAlign = "center" )    
    return(r2)

【问题讨论】：

标签： r shiny rcharts dimple.js

【解决方案1】：

我不熟悉rCharts，但根据the comments in this SO question，颜色的排序是按计数的降序排列的。

所以你可以做的是：在你的data.frame 中添加一个color 列，然后按你绘制的列以降序对颜色进行排序。

不过，这只是一种解决方法，您可能应该在 github 上提交问题。

快速示例：

library(rCharts)

Channel <- c('TV','Radio','Press')
Spend <- c(100000,50000,20000)
Revenue <- c(500000,100000,30000)
df <- data.frame(Channel,Spend,Revenue)
df$ROI <- (df$Revenue/df$Spend)
df$Colors <- c("'#C2E588'","'#FDC382'","'#FC9A8F'")

col_order <- df[order(-Revenue), "Colors"] %>% paste(collapse = ",")
r2 <- dPlot(x="Revenue",y="ROI",type="bubble",groups="Channel",z="Spend",data=df,width=750)
r2$defaultColors(sprintf("#!d3.scale.ordinal().range([%s])!#", col_order))
r2

df$Revenue <- c(5000,100000,30000)

r3 <- dPlot(x="Revenue",y="ROI",type="bubble",groups="Channel",z="Spend",data=df,width=750)
r3$defaultColors(sprintf("#!d3.scale.ordinal().range([%s])!#", col_order))
r3

r2:

r3:

【讨论】：