在R（ggplot2）中一起繪制兩個條形圖

Question

我想對該數據集進行繪制

           df <- data.frame(Modelos=c("Model 1", "Model 2"),            
          MSE_test=c(123293931,23231231),MSE_train=c(100001,2292894))

我想對此進行繪制，以比較訓練和測試中每個模型的值。 我認為該代碼，但這不能滿足我的要求。

           ggplot(df, aes(x=Modelos,y=MSE_test, fill = MSE_train)) + 
          geom_bar(position = "dodge")

我希望每個模型都在x軸上，而對於每個模型，則要測試一個酒吧，而另一個要培訓。 我希望清楚。

Answer 1

您需要首先使用reshape2或tidyverse軟件包來重塑數據：

library(reshape2)

df <- df %>% 
    melt(id = "Modelos")

要么

library(tidyverse)

df <- df %>%
    gather(variable, value, - Modelos)

然后繪制：

 ggplot(df, aes(Modelos, value)) + 
    geom_bar(aes(fill = variable),stat = "identity", position = "dodge") +
    scale_y_log10()