定製圖例

Question

我有一個數據幀，看起來像：

## Data 
df <- data.frame(label = c("A", "B", "C", "D"), 
       color = c("red", "red", "blue", "green"), 
       y = c(10, 11, 12, 13)) 

「A」和「B」是相同的類別的一部分，而「C」和「d」是的一部分單獨的類別。

我想在類別標籤的圖表上添加圖例。

## Highchart without Legend 

## Basic highchart 
h <- rCharts:::Highcharts$new() 
h$chart(type = "column") 

## Highchart data: 
h$series(showInLegend = FALSE, data = rCharts::toJSONArray2(df[, c("label", "color", "y")], json = FALSE, names = TRUE)) 

## Highchart options: 
h$xAxis(categories = unique(df$label), labels = list(rotation = 0, align = 'center', style = list(fontSize = '12px', fontFamily = 'Verdana, sans-serif')), replace = FALSE) 
h$tooltip(formatter = "#! function() {return this.x + ': ' + this.y; } !#") 
h$plotOptions(series = list(color = df$color), column = list(grouping = FALSE)) 
h # display highchart 

我還沒有找到讓任何意義來解決這個問題的方法。

任何幫助，將不勝感激。

Answer 1

這就是我解決它的方法。

每個'類別'被分成一個單獨的系列和一個x值，以確定它在圖表上的位置（高圖因爲某些原因需要它，沒有它，圖表堆棧）。

下面是一個示例代碼的工作原理：

## Highchart with Legend 
## Remark: simply switching showInLegend to TRUE will not work 
df$x <- c(0, 1, 2, 3) # add an index to dataframe (starting from 0) 
         # and pass it to h$series data 
h <- rCharts:::Highcharts$new() 
h$chart(type = "column") 
h$series(name = "Category 1 (Red)", color = "red", data = rCharts::toJSONArray2(df[df$color == "red", c("label", "color", "x", "y")], json = FALSE, names = TRUE)) 
h$series(name = "Category 2 (Blue)", color = "blue", data = rCharts::toJSONArray2(df[df$color == "blue", c("label", "color", "x", "y")], json = FALSE, names = TRUE)) 
h$series(name = "Category 3 (Green)", color = "green", data = rCharts::toJSONArray2(df[df$color == "green", c("label", "color", "x", "y")], json = FALSE, names = TRUE)) 
h$xAxis(categories = unique(df$label), labels = list(rotation = 0, align = 'center', style = list(fontSize = '12px', fontFamily = 'Verdana, sans-serif')), replace = FALSE) 
h$tooltip(formatter = "#! function() {return this.x + ': ' + this.y; } !#") 
h$plotOptions(series = list(color = df$color), column = list(grouping = FALSE)) 
h # display chart 

我希望這可以幫助別人。

Answer 2

聲明：我知道這個問題說rCharts，我只是想添加一個使用highcharter包的替代方案。

就像@Optimus說的，問題是添加倍數系列。如果您的系列數量較多（例如顏色），並且想自動添加，您可以使用highcharter，允許您使用hc_add_series_list函數從數據系列列表中添加多個系列。

library(highcharter) 
library(dplyr) 

df <- data_frame(label = c("A", "B", "C", "D"), 
       color = c("red", "red", "blue", "green"), 
       y = c(10, 11, 12, 13), 
       x = c(1:4)-1) 

head(df) 

series <- df %>% 
    group_by(color) %>% # each serie is from one color 
    do(data = list.parse3(.)) %>% 
    ungroup() %>% 
    mutate(name = paste("I'm color", color)) %>% 
    list.parse3() 

這裏list.parse3類似於toJSONArray2。

series[[1]] 

$color 
[1] "blue" 

$data 
$data[[1]] 
$data[[1]]$label 
[1] "C" 

$data[[1]]$color 
[1] "blue" 

$data[[1]]$y 
[1] 12 

$data[[1]]$x 
[1] 2 

$name 
[1] "I'm color blue" 

最後：

highchart() %>% 
    hc_chart(type = "column") %>% 
    hc_add_series_list(series) %>% 
    hc_xAxis(categories = df$label) %>% 
    hc_plotOptions(column = list(grouping = FALSE)) 

結果將是：