Rcharts的颜色

Question

我正在尝试使用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')

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

Answer 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)]

给你