带有googleVis的Diff图表(R包)

Question

我想知道是否可以用R中的googleVis创建一个比较图(https://developers.google.com/chart/interactive/docs/gallery/diffchart)。

Answer 1

我创建了这个函数：

gvisDiffChart<-function(chart1, chart2)
{
  id1<-chart1$chartid
  id2<-chart2$chartid
  chart1$html$chart["jsData"]<-paste(chart1$html$chart["jsData"],chart2$html$chart["jsData"],"\n")
  drawFunction<-paste0("var data2 = gvisData",id2,"();\n var diffData = chart.computeDiff(data,data2);\n chart.draw(diffData,options); \n }")
  chart1$html$chart["jsDrawChart"]<-(gsub("chart.draw.+$",drawFunction,chart1$html$chart["jsDrawChart"]))
  return(chart1)
}

然后在renderGVis函数中调用它，如下所示。

output$myTable <- renderGvis({
    c1<-gvisColumnChart(Population[which(Population$Rank==10),],xvar="Country",yvar = "Population")         
    c2<-gvisColumnChart(Population[which(Population$Rank==1),],xvar="Country",yvar = "Population")         
    gvisDiffChart(c1,c2)
})

这对我很管用。