如何在R中使用ggplot2并排显示两个图

Question

我有从不同方法获得的统计值的小数据框。 您可以从这里下载。 数据集如下所示：

我需要使用R中的ggplot2包来刻面（两个具有相同y轴标签的并排绘图）两个RMSE.SD和MB变量，如下图所示。

我编写此代码是为了绘制1个RMSE.SD变量的图。

library(ggplot2)
comparison_korea <- read.csv("comparison_korea.csv")

    ggplot(data=comparison_korea, aes(R,X))+
      geom_point(color = "black", pch=17, alpha=1,na.rm=T, size=4)+
      labs(title = "", y = "")+

      theme(plot.title= element_text(hjust = 0.5,size = 15, vjust = 0.5, face= c("bold")),
            axis.ticks.length = unit(0.2,"cm") ,
            panel.border = element_rect(colour = "black", fill=NA, size=0.5),
            axis.text.x = element_text(angle = 0, vjust = 0.5, size = 14, hjust = 0.5,margin=margin(4,0,0,0), colour = "black"),
            axis.text.y = element_text(angle = 0, vjust = 0.5, size = 14, hjust = 1,margin=margin(0,5,0,0), colour = "black"),
            plot.margin = unit(c(1, 1.5, 1, 0.5), "lines")) 

Answer 1

您应该能够执行以下操作：

library(ggplot2)

ds <- read.csv("comparison_korea.csv")
dat <- data.frame(labels = as.character(ds$X),
                  RMSE.SD = ds$RMSE.SD, 
                  MB = ds$MB)
dat <- reshape2::melt(dat)

ggplot(dat, aes(y = labels, x = value)) + 
  geom_point(shape = "+", size = 5) + 
  facet_wrap(~variable) + 
  xlab("value / reference (mm)") + 
  ylab("") + 
  theme_bw()