Question

我需要有关此功能的帮助，我尝试使用plot（R）和googleVis，它完美无缺;现在我想使用rChart，但是当我启动这些函数时，它返回了一个没有点的简单网格。

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

  # Aim: Permet de visualiserles 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]] 

  plot <- nPlot(Y ~ X, data = data, type = 'scatterChart')
  plot
}


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

data.vehicule2是一个数据帧。谢谢。

编辑：

在数据框中，我有18个变量和36 000个。这段代码完美无缺，但我的问题是情节外观。

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 
}



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

我可以添加一个尺寸变量，因为在图上没有任何东西出现，我怎么能得到我的变量＆＃34; GMF.24＆＃34;和＆＃34; Cout.24＆＃34;在轴上？最后一个问题是，当我将鼠标放在一个点上方时，是否可以添加标签？

提前谢谢。

rChart在一个函数中

0 个答案: