Olá pessoal!
Estou tendo um probleminha ao gerar um gráfico de linha com o pacote echarts4r.
Minha base de dados tem a seguinte estrutura:
A coluna Variável tem dois tipos de valores População total atendida com abastecimento de água (Hab.) e Volume consumido de água (1.000 m³ /ano). Ao filtrar por População total atendida com abastecimento de água (Hab.) e Pará obtenho o gráfico de linha conforme figura abaixo:
inf13 %>% filter(Estado_Município == "Pará",Variável == "População total atendida com abastecimento de água (Hab.)") %>%
e_chart(x = Ano) %>%
e_line(serie = Valor,
name = "Hab.",
legend = F,
symbol = "roundRect",
symbolSize = 6,
label = list(show = T,
position = "top",
fontWeight = "bold",
fontSize = 12)
) %>%
#Dica de ferramenta
e_tooltip(trigger = "item",
formatter =
e_tooltip_item_formatter(
style = "decimal",
digits = 0,
locale = "PT")
) %>%
#Eixos x e Y
e_x_axis(name = "Ano",
nameTextStyle = list(
fontWeight = "bold",
fontSize = 14
)
) %>%
e_y_axis(name = "Total",
nameTextStyle = list(
fontWeight = "bold",
fontSize = 14),
scale = T
) %>%
e_axis(axis = "y",
formatter =
e_axis_formatter(
style = "decimal",
digits = 0,
locale = "PT"
)) %>%
#Cor da linha
e_color("#B1A0C7") %>%
#Zoom
e_datazoom(toolbox = F, fillerColor = "#B1A0C7")
Não sei o porquê o gráfico de linha não é gerado quando eu faço o filtro para Volume consumido de água (1.000 m³ /ano)
inf13 %>% filter(Estado_Município == "Pará", Variável == "Volume consumido de água") %>%
e_chart(x = Ano) %>%
e_line(serie = Valor,
name = "1.000 m³/ano",
legend = F,
symbol = "roundRect",
symbolSize = 6,
label = list(show = T,
position = "top",
fontWeight = "bold",
fontSize = 12)
) %>%
#Dica de ferramenta
e_tooltip(trigger = "item",
formatter =
e_tooltip_item_formatter(
style = "decimal",
digits = 0,
locale = "PT")
) %>%
#Eixos x e Y
e_x_axis(name = "Ano",
nameTextStyle = list(
fontWeight = "bold",
fontSize = 14
)
) %>%
e_y_axis(name = "Total",
nameTextStyle = list(
fontWeight = "bold",
fontSize = 14),
scale = T
) %>%
e_axis(axis = "y",
formatter =
e_axis_formatter(
style = "decimal",
digits = 0,
locale = "PT"
)) %>%
#Cor da linha
e_color("#B1A0C7") %>%
#Zoom
e_datazoom(toolbox = F, fillerColor = "#B1A0C7")
Se alguém quiser posso enviar a base de dados para testar.
Desde já obrigado pela ajuda!