Question

我刚刚发现了rChart和googleVis，我想感谢开发人员的工作。我的问题很简单，我想为我的轴添加一个变量标签用于nplot？我还想知道是否有可能将像varvarBubbleChart的sizevar和colorvar这样的变量添加到nplot中？

谢谢。

library(rCharts)
VehiculeFunction <- function(data, gamme, absciss, ordinate){

  # Aim: Permet de visualiser les données sous la forme de nuages de points 
  #      croisant GMF*Coût,  Ratio K * Ratio Coût ou bien GMF*Ratio en 
  #      choisissant la gamme qu'on désire
  # Input: data.frame avec notamment GAMME, PROJET, PERIMETRE, NITG, GMF.24,
  #        Cout.24 et libele
  # Output: Graphique avec le croisement choisi ainsi que le libellé étiquetté
  #         sur le point qu'on voudra identifier

  if(absciss == "GMF.24"){
    my.data <- data[data$RANG_NITG_PROJET_K %in% c(1, 2, 3),]
  } else if(absciss == "Ratio.K") {
    my.data <- data[data$RANG_NITG_PROJET_C %in% c(1, 2, 3),]
  }
  my.data2 <- my.data[my.data$GAMME == gamme,]
  X <- my.data2[[absciss]] 
  Y <- my.data2[[ordinate]] 
  SIZEVAR <- my.data2$Ratio.K
  df <- data.frame(X,Y,SIZEVAR)

  plot <- nPlot(x = "X", y = "Y", size = "SIZEVAR", data = df, type = "scatterChart")
  plot$xAxis(axisLabel = 'X')
  plot 
}


VehiculeFunction(data.vehicule, gamme = "M1", "GMF.24", "Cout.24")

Answer 1

用法：

gvisBubbleChart(data, idvar = "", xvar = "", yvar = "",
                  colorvar = "", sizevar = "",
                  options = list(), chartid)

E.G。

 ## Set color and size
 bubble2 <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses",
                      colorvar="Location", sizevar="Profit",
                      options=list(hAxis='{minValue:75, maxValue:125}'))

见http://www.inside-r.org/packages/cran/googleVis/docs/gvisBubbleChart

使用rChart更新轴标签

1 个答案: