minor changes

Author: ConotteR

inst/tutorials/A04La_barres/A04La_barres.Rmd

@@ -136,7 +136,7 @@ Par défaut, l'argument `position =` a pour valeur `stack`. Les chercheurs réal
 a <- chart(e_mathaei, formula = ~ site %fill=% variety) +
   geom_bar(position = "dodge") 
 # position = "fill"
-b <- chart(e_mathaei, formula = ~ ~ site %fill=% variety) +
+b <- chart(e_mathaei, formula = ~ site %fill=% variety) +
   geom_bar(position = "fill") 
 # Combinaison des deux graphiques
 combine_charts(list(a, b), common.legend = TRUE)