Я использую amcharts JS charting library
в R, используя пакет rAmCharts
для создания интерактивного графика моих данных в R
, как показано ниже -
library(rAmCharts)
library(dplyr)
Data_DF1 = structure(list(x = c("2018 Q4", "2019 Q1", "2019 Q2", "2019 Q3"
), y1 = c(0, 52.5, 35, 30), y2 = c(2444.6425, 1659.7875, 1885.0225,
1924.59), y3 = c(3204600, 3265700, 3238700, 3304000), y4 = c(51267.4,
49668.875, 51230.675, 55193.475), y5 = c(3204600, 3265700, 3238700,
3304000), z1 = c(NA, NA, NA, NA), z2 = c(NA, NA, NA, NA), z3 = c(NA,
NA, NA, NA), z4 = c(NA, NA, NA, NA), z5 = c(NA, NA, NA, NA)), class = "data.frame", row.names = c("2018 Q4",
"2019 Q1", "2019 Q2", "2019 Q3"))
amSerialChart(categoryField = "x", precision = 2, rotate = FALSE) %>%
setDataProvider(dataProvider = Data_DF1, keepNA = TRUE) %>%
addGraph(valueField = "y3", fillColors = '#ffa19e',
fillAlphas = 0.8, bullet = "round", lineThickness = 0, type = 'column', clustered = TRUE,
fixedColumnWidth = 10, bulletColor = "transparent") %>%
addGraph(valueField = "y2", fillColors = '#258e46',
fillAlphas = 0.8, bullet = "round", lineThickness = 0, type = 'column', clustered = TRUE,
fixedColumnWidth = 10, bulletColor = "transparent") %>%
addGraph(valueField = "y1", fillColors = '#55a76f',
fillAlphas = 0.8, bullet = "round", lineThickness = 0, type = 'column', clustered = TRUE,
fixedColumnWidth = 10, bulletColor = "transparent")
Как вы можете видеть в приведенной выше реализации, я не получить 3 кластеризованных столбца на моем графике, все, что я вижу, это 2. Есть ли какая-либо ошибка в моем коде, которая делает 3-й столбец отсутствующим на графике?