与googlevis的泡沫标签

Question

我想在我的图表中隐藏泡泡上方的标签，我必须添加什么参数？ 这是我的剧本：

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

  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,]
  ma.col = rgb(red = 0.1,blue = 1,green = 0.1, alpha = 0.2)
  X <- my.data2[[absciss]] 
  Y <- my.data2[[ordinate]] 
  Z <- my.data2[[label]]
  PROJET <- my.data2$PROJET
  df <- data.frame(X,Y,Z,PROJET)
  plot(gvisBubbleChart(df, idvar = "Z", xvar = "X", yvar = "Y", sizevar = "Y", colorvar = "PROJET", options=list(width=1500, height=1500 ),
                   bubble="{textStyle:{color: 'none', fontName: 
                   <global-font-name>, fontSize: 
                   <global-font-size>}}")) 

}

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