Wie zwei Facetten nebeneinander mit ggplot2 in R

Question

facettieren Ich habe kleine Datenrahmen der statistischen Werte von verschiedenen Verfahren erhalten. you can download from here. Datensatz wird wie folgt aussehen:

I Facette müssen (zwei Stück nebeneinander mit der gleichen y-Achse Etiketten) zwei Plot von RMSE.SD und MB Variable ggplot2 Paket in R wie im folgenden Beispiel Zahl.

Ich schrieb diesen Code 1 Grundstück für RMSE.SD Variable für das Plotten.

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

Sie sollten in der Lage sein, so etwas zu tun:

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