Highcharter 折线图中图例和线条之间的颜色不一致
问题描述 投票：0回答：1
我正在使用 R 中的 Highcharter 包创建一个带有折线图的闪亮仪表板，以可视化不同国家/地区随时间推移的出口数据。我的目标是为每个国家/地区提供独特的颜色，并在图表线和图例中保持一致。但是，我遇到了几个问题。
颜色不一致：图例中的颜色按字母顺序分配，而图表线条上的颜色遵循选择的顺序，导致不匹配。 尝试使用 hc_colors 解决方案：我尝试使用 hc_colors() 手动设置颜色，但图表线和图例仍然无法正确对齐。
代码：
这是我用来生成图表的代码。该数据集是一个简化的示例，但它说明了相同的问题。
# Amostra de Dados
g_553 <- tribble(
~Ano, ~Nome_Pais, ~US_FOB, ~Peso_Liquido, ~Mean_Price,
"2011", "Alemanha", 0.00904, 16916796, 5.34e-10,
"2011", "Argentina", 0.0227, 15635607, 1.45e-9,
"2011", "Estados Unidos", 0.0258, 25018307, 1.03e-9,
"2011", "Países Baixos", 0.0124, 28620025, 4.34e-10,
"2012", "Alemanha", 0.00727, 13638592, 5.33e-10,
"2012", "Argentina", 0.0180, 12255622, 1.47e-9,
"2012", "Estados Unidos", 0.0266, 27089444, 9.83e-10,
"2012", "Países Baixos", 0.0134, 27368500, 4.89e-10,
"2013", "Alemanha", 0.00655, 14129010, 4.64e-10,
"2013", "Argentina", 0.0196, 13934551, 1.41e-9,
"2013", "Estados Unidos", 0.0224, 23668917, 9.45e-10,
"2013", "Países Baixos", 0.0133, 32895660, 4.06e-10,
"2014", "Alemanha", 0.00663, 13030649, 5.09e-10,
"2014", "Argentina", 0.0143, 15450241, 9.24e-10,
"2014", "Estados Unidos", 0.0270, 28510546, 9.47e-10,
"2014", "Países Baixos", 0.0110, 26537257, 4.14e-10,
"2015", "Alemanha", 0.00518, 9105968, 5.68e-10,
"2015", "Argentina", 0.0128, 11874210, 1.08e-9,
"2015", "Estados Unidos", 0.0240, 29218576, 8.22e-10,
"2015", "Países Baixos", 0.00782, 31780201, 2.46e-10,
"2016", "Alemanha", 0.00486, 6895825, 7.05e-10,
"2016", "Argentina", 0.0134, 10772268, 1.25e-9,
"2016", "Estados Unidos", 0.0231, 26001840, 8.90e-10,
"2016", "Países Baixos", 0.00695, 32095643, 2.17e-10,
"2017", "Alemanha", 0.00491, 6863967, 7.15e-10,
"2017", "Argentina", 0.0176, 11711823, 1.50e-9,
"2017", "Estados Unidos", 0.0269, 31227817, 8.60e-10,
"2017", "Países Baixos", 0.00742, 28361090, 2.62e-10,
"2018", "Alemanha", 0.00520, 6426912, 8.10e-10,
"2018", "Argentina", 0.0149, 11492885, 1.30e-9,
"2018", "Estados Unidos", 0.0287, 30565639, 9.38e-10,
"2018", "Países Baixos", 0.00823, 26976811, 3.05e-10,
"2019", "Alemanha", 0.00473, 5415819, 8.73e-10,
"2019", "Argentina", 0.00979, 7428020, 1.32e-9,
"2019", "Estados Unidos", 0.0297, 35390842, 8.39e-10,
"2019", "Países Baixos", 0.00716, 22950298, 3.12e-10,
"2020", "Alemanha", 0.00412, 4842317, 8.51e-10,
"2020", "Argentina", 0.00849, 6305341, 1.35e-9,
"2020", "Estados Unidos", 0.0215, 27669631, 7.75e-10,
"2020", "Países Baixos", 0.00670, 20548583, 3.26e-10
)
全球.R
generate_country_analytics <- function(data, measure, country_filter) {
measure_column <- ifelse(measure == "value", "US_FOB", "Peso_Liquido")
# Filtrar e agrupar os dados
country_data <- data %>%
filter(Nome_Pais %in% country_filter) %>%
group_by(Ano, Nome_Pais) %>%
summarise(Measure = sum(!!as.symbol(measure_column), na.rm = TRUE), .groups = 'drop') %>%
ungroup() %>%
complete(Ano, Nome_Pais, fill = list(Measure = NA)) %>%
arrange(match(Nome_Pais, country_filter))
# Definir cores
colors <- RColorBrewer::brewer.pal(length(country_filter), "Dark2")[seq_along(country_filter)]
# Definir título e tooltip
title_measure <- ifelse(measure == "value", "Valor Exportado (US$)", "Peso Exportado (Toneladas)")
title_title <- paste0("Exportações por Ano e País - ", title_measure)
tooltip_text <- paste(
"<b>{point.Nome_Pais}</b><br>",
ifelse(
measure == "value",
"<b> Valor Exportado</b>: US$ {point.y:,.2f} mi",
"<b> Peso Exportado</b>: {point.y:,.2f} toneladas"
)
)
# Gráfico com Highcharts
highchart() %>%
hc_chart(zoomType = "x", backgroundColor = "#fff") %>%
hc_title(text = title_title) %>%
hc_xAxis(
title = list(text = "Ano"),
categories = unique(country_data$Ano),
gridLineColor = NULL,
lineColor = "#999999",
tickColor = "#999999"
) %>%
hc_yAxis(
title = list(text = title_measure),
gridLineColor = NULL,
lineColor = "#999999",
tickColor = "#999999"
) %>%
hc_add_series(
data = country_data,
type = "spline",
hcaes(x = Ano, y = Measure, group = Nome_Pais),
marker = list(enable = TRUE, symbol = "circle", radius = 3),
name = country_filter
) %>%
hc_colors(colors) %>%
hc_tooltip(useHTML = TRUE, pointFormat = tooltip_text) %>%
hc_legend(enabled = TRUE, align = 'center', layout = 'horizontal') %>%
hc_add_theme(hc_theme_smpl()) %>%
hc_exporting(enabled = TRUE)
}
服务器.R
filtered_data_country_analytics <- reactive({
req(input$value_country_analytics, input$country_country_analytics)
data_filtered <- g_553
if (!is.null(input$country_country_analytics)) {
data_filtered <- data_filtered %>%
filter(Nome_Pais %in% input$country_country_analytics)
}
return(data_filtered)
})
# renderização do gráfico
output$country_analytics <- renderHighchart({
data_filtered <- filtered_data_country_analytics()
generate_country_analytics(
data_filtered,
input$value_country_analytics,
input$country_country_analytics
)
})
# select the country
observe({
unique_countries <- unique(g_553$Nome_Pais)
updateSelectInput(
session,
inputId = "country_country_analytics",
choices = unique_countries,
selected = NULL
)
})
1个回答
0
投票
投票
解决问题的一个选项是将
Name_Paisfactorlevelscountry_filtername=hc_add_serieslibrary(highcharter)
library(tidyverse)
generate_country_analytics <- function(data, measure, country_filter) {
measure_column <- ifelse(measure == "value", "US_FOB", "Peso_Liquido")
# Filtrar e agrupar os dados
country_data <- data %>%
filter(Nome_Pais %in% country_filter) %>%
group_by(Ano, Nome_Pais) %>%
summarise(Measure = sum(.data[[measure_column]], na.rm = TRUE), .groups = "drop") %>%
ungroup() %>%
complete(Ano, Nome_Pais, fill = list(Measure = NA)) %>%
mutate(Nome_Pais = factor(Nome_Pais, country_filter))
# Definir cores
colors <- RColorBrewer::brewer.pal(
length(country_filter), "Dark2"
)
# Definir título e tooltip
title_measure <- ifelse(measure == "value", "Valor Exportado (US$)", "Peso Exportado (Toneladas)")
title_title <- paste0("Exportações por Ano e País - ", title_measure)
tooltip_text <- paste(
"<b>{point.Nome_Pais}</b><br>",
ifelse(
measure == "value",
"<b> Valor Exportado</b>: US$ {point.y:,.2f} mi",
"<b> Peso Exportado</b>: {point.y:,.2f} toneladas"
)
)
# Gráfico com Highcharts
highchart() %>%
hc_chart(zoomType = "x", backgroundColor = "#fff") %>%
hc_title(text = title_title) %>%
hc_xAxis(
title = list(text = "Ano"),
categories = unique(country_data$Ano),
gridLineColor = NULL,
lineColor = "#999999",
tickColor = "#999999"
) %>%
hc_yAxis(
title = list(text = title_measure),
gridLineColor = NULL,
lineColor = "#999999",
tickColor = "#999999"
) %>%
hc_add_series(
data = country_data,
type = "spline",
hcaes(x = Ano, y = Measure, group = Nome_Pais),
marker = list(enable = TRUE, symbol = "circle", radius = 3)
) %>%
hc_colors(colors) %>%
hc_tooltip(useHTML = TRUE, pointFormat = tooltip_text) %>%
hc_legend(enabled = TRUE, align = "center", layout = "horizontal") %>%
hc_add_theme(hc_theme_smpl()) %>%
hc_exporting(enabled = TRUE)
}
generate_country_analytics(
g_553,
"value",
c("Alemanha", "Estados Unidos", "Argentina")
)
最新问题
- 如何在 C 中分配连续的二维字符串数组
- 如何强制使用 Win-PS2EXE 打包的 EXE Powershell 脚本在 Powershell 7 上运行
- 为什么我的异常没有被Junit的assertThrows()捕获
- 尽管配置正确，Express.js Stripe Webhook 路由仍返回 404 错误
- 需要帮助使用 CSS 浮动元素
- Django 中列外键是 bigint 类型，但表达式是 uuid 类型
- Griffon 支持哪些 Java 版本？
- Laravel - 渴望加载多态关系的相关模型
- 通过样式化组件将样式扩展到子组件
- 如何更改 Android 和 iOS 版 Flutter 中的应用程序名称？
- okhttp 不允许设置 content-type
- 更改方括号中文本的颜色
- ModuleNotFoundError：没有名为“huggingface_hub.inference._types”的模块
- 无法更新 Azure Pipepline。错误：无法获取应用服务发布凭据
- 如何在Android Studio中降级Flutter项目中的Java版本？
- MapStruct 未生成实现类
- 通过python解锁mac中的钥匙串
- 检查系统是否存在字体Python（与操作系统无关）
- 需要 React createContext 参数
- GitHub 错误“无法获取 HEAD”
© www.soinside.com 2019 - 2024. All rights reserved.