【问题标题】：Colors in RchartsRcharts 中的颜色
【发布时间】：2016-02-26 09:18:25
【问题描述】：

我正在尝试使用rCharts(v 0.4.2) 生成条形图/列。我的问题是我有一年的数据，我需要按月分组。因此，我总共需要显示 12 个条形图。但是，我只有 9 种独特的颜色，之后颜色开始重复。我阅读了this 文档并尝试插入

colors <- c('#7cb5ec','#434348', '#90ed7d', '#f7a35c','#8085e9','#f15c80', '#e4d354','#2b908f','#f45b5b','#91e8e1')

进入我的代码，然后按如下方式调用它：

c <- hPlot(x = 'Confi', y = 'n', data = tablefinalC, type = 'bar', group = 'Month',title = "Inccode By confi", 
subtitle = "Bar Graph")

c$plotOptions(series = list(stacking = "normal",colors=paste0('colors'))
c$chart(backgroundColor = NULL)
c$set(dom = 'chart5')

但是，我仍然得到相同的重复颜色。那么有人可以确认我如何增加颜色的数量吗？提前致谢

【问题讨论】：

这里可能有问题colors=paste0('colors') ...试试colors=colors
嗨 Batanicheck，我使用了该选项，并且还使用了 colors = 'colors' 但它没有效果，我仍然重复 - 所以我选择 paste0 选项只是为了检查我是否出错颜色的分配。
不是colors = 'colors' ..如果你写它colors==字符串不是你早期difene的变量。试试colors1 <- c('#7cb5ec','#434348', '#90ed7d', '#f7a35c','#8085e9','#f15c80', '#e4d354','#2b908f','#f45b5b','#91e8e1') 然后colors=colors1 没有'
按照上面的建议尝试了颜色1，但仍然是同样的问题

标签： r rcharts

【解决方案1】：

您可以创建空图表，然后添加series

示例

library(rCharts)
df=data.frame(x=1:10,y=-10:-1,z=letters[1:10],stringsAsFactors = F)
colors1=c( '#7cb5ec','#434348', '#90ed7d')
df$col=rep(colors1,round(nrow(df)/length(colors1),0)+1)[1:nrow(df)]

# Create new chart
a <- rCharts:::Highcharts$new()

# Set options
a$chart(type = "bar")
for(i in unique(df$z)){
  a$series(name=i,stacking = "normal" ,color=df$col[df$z==i], data= rCharts::toJSONArray2(df[df$z==i,], json=F, names=T)) 
}

a#plot

结果

更新（重读问题）

如果您想添加更多颜色，请自定义 colors1 和 df$col

df=data.frame(x=1:20,y=-20:-1,z=letters[1:20],stringsAsFactors = F)
colors1=c( '#0048BA','#B0BF1A','#7CB9E8','#C9FFE5','#B284BE',
           '#5D8AA8','#00308F','#72A0C1','#AF002A','#F0F8FF',
           '#84DE02','#E32636','#C46210','#EFDECD','#E52B50',
           '#AB274F','#F19CBB','#AB274F','#D3212D','#3B7A57',
           '#FFBF00','#FF7E00','#FF033E','#9966CC','#A4C639',
           '#F2F3F4','#CD9575','#665D1E','#915C83','#841B2D'
)
df$col=colors1[1:nrow(df)]

给你

【讨论】：