Question

我正在R中使用amcharts JS charting library，使用软件包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条？

rAmCharts群集条形图中的条形缺失

0 个答案: