-1

我正嘗試使用rCharts(v 0.4.2)生成條形圖/列。我的問題是我有一年的數據價值，我需要按月分組。所以總計我有12個酒吧，我需要顯示。不過，我只有9種獨特的顏色，之後顏色開始重複。我讀this文檔，並試圖將Rcharts中的顏色

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')

但是，我仍然得到同樣的重複顏色。那麼有人可以確認我可以如何增加顏色的數量？在此先感謝

來源

2016-02-26 rantish

可能是問題'顏色= paste0（ '顏色'）'...'嘗試顏色= colors' – Batanichek

嗨Batanicheck，我用的是選項和顏色=「顏色」，但它沒有效果，我仍然有重複 - 所以我選擇了paste0選項只是爲了檢查我是否出錯了顏色的分配。 – rantish

不是'colors ='colors'' ..如果你寫它的顏色==字符串不變，你不早。嘗試'colors1 < - c（'＃7cb5ec'，'＃434348'，'＃90ed7d'，'＃f7a35c'，'＃8085e9'，'＃f15c80'，'＃e4d354'，'＃2b908f'，'＃f45b5b '，'＃91e8e1'）'then'colors = colors1' without'' – Batanichek

您可以創建空的圖表，然後添加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

結果

更新（重新閱讀的問題）

如果你想添加更多的列ORS custominze 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)]

這裏給你

來源

2016-02-26 13:28:19 Batanichek

Rcharts中的顏色

回答

例

結果

更新（重新閱讀的問題）

相關問題