如何在rCharts nPlot中确定比例顺序？

Question

目前，我有一个数据集如下所示：

df <- data.frame(Time = c("2013-07", "2013-07", "2013-07","2013-10", "2014-01", "2014-05",  "2014-05", "2014-05"),
                 local = "ABC",
                 Point = c("Point1", "Point2", "Point3", "Point3", "Point3", "Point1", "Point2", "Point3"),
                 Part1 = c(NaN, NaN, NaN, NaN, NaN, 1, 1, NaN),
                 Part2 = c(NaN, 2, 11, 4, 2, NaN, 1, 1),
                 Part3 = c(4, NaN, NaN, NaN, NaN, 1, 1, NaN))    

我试图用R演播室中的rCharts来绘制一个条形图。

n1 <- nPlot(Part2 ~ Time, group = "Point", data = df, type = "multiBarChart")
n1

输出看起来像我想要的，除了一件事。

理想情况下，x轴的顺序应该是2013-07,2013-10,2014-01,2014-05

但我得到的是2013-07,2014-05,2013-10,2014-01。

我还尝试将"Time“变量转换为日期格式或POSIXct格式。结果是一样的。

有人能帮我吗？

是否有任何rCharts的帮助文件与所有可能的函数，参数和自定义解释？

提前感谢

Answer 1

我认为主要的问题是缺少数据，而nvd3不喜欢这些数据。我用expand.grid稍微改变了数据的结构，以确保每个日期都有一个点，在这种情况下，nvd3会像预期的那样排序，不管我们是给它一个数字日期还是字符日期。

这是代码

library(rCharts)

df <- data.frame(Time = c("2013-07", "2013-07", "2013-07","2013-10", "2014-01", "2014-05",  "2014-05", "2014-05"),
                 local = "ABC",
                 Point = c("Point1", "Point2", "Point3", "Point3", "Point3", "Point1", "Point2", "Point3"),
                 Part1 = c(NaN, NaN, NaN, NaN, NaN, 1, 1, NaN),
                 Part2 = c(NaN, 2, 11, 4, 2, NaN, 1, 1),
                 Part3 = c(4, NaN, NaN, NaN, NaN, 1, 1, NaN))   

#df$Time <- as.Date( paste0(as.character(df$Time),"-01" ) )


df2 <- merge(
  structure(expand.grid(unique(df$Time),unique(df$Point)),names=c("Time","Point"))
  ,df
  ,all=T
)
#df2[,4:6] <- lapply(df2[,4:6], function(x){ ifelse(is.na(x),0,x) })



n1 <- nPlot(Part2 ~ Time, group = "Point", data = df2, type = "multiBarChart")
n1$xAxis (
  #"#! function(d){ return d3.time.format('%Y-%m')(new Date( d*60*60*24*1000 ) ) } !#"
  "#! function(d){ return d3.time.format('%Y-%m')(function(d){ return d3.time.format('%Y-%m')(d3.time.format('%Y-%m').parse(d) ) }) } !#"
)
n1