在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()