使用 ggplot2 对条进行分组

Question

I have one table. With this table I want to plot bar plot.So below you can see data:

MEASURE_ERROR_TS_MODEL<-structure(list(Model = structure(c(6L, 8L, 1L, 9L, 5L, 7L, 2L, 
3L, 10L, 4L), .Label = c("ARIMA", "CART", "CTREE", "Ensamble_ML", 
"Ensamble_SM", "ETS", "LM", "STL", "TBATS", "XGBoost"), class = "factor"), 
    RMSE = c(12.89, 6.08, 11.46, 5.23, 4.92, 4.86, 4.78, 4.65, 
    4.64, 3.532698), MAE = c(11.79, 4.7, 8.57, 4, 4.09, 2.97, 
    3.05, 2.84, 3.05, 2.208528), Approach = structure(c(2L, 2L, 
    2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L), .Label = c("Machine learning", 
    "Statistical modelling"), class = "factor")), row.names = c(NA, 
-10L), class = c("tbl_df", "tbl", "data.frame"))

So next step is to plot this data into barplot.So in order to do this I try with this code but plot is not like I want to be

gplot(data=MEASURE_ERROR_TS_MODEL, aes(x=Model, y=MAE, fill=Approach),palette = c("#0073C2FF", "#FC4E07")) +
  geom_bar(
    stat="identity",
           position=position_dodge(), colour="black")

From chart below you can see that this bars are not grouped and I want to make group (eg green bars from left side while red bars on right side).So can anybody help me ho to make this ?

Answer 1

Perhaps you can try facets :

library(ggplot2)
ggplot(data=MEASURE_ERROR_TS_MODEL, aes(x=Model, y=MAE, fill=Approach)) +
  geom_bar(stat="identity",position=position_dodge()) + 
  facet_wrap(.~Approach, scales = 'free')