具有不同x軸線多個圖形蜱

Question

我有以下data.frame：

ef2 <- data.frame(X1=c(50,100,'bb','aa'), X2=c('A','A','B','B'), value=c(1,4,3,6))

我想創建兩個圖，一個用於每個組中的X2。

下面是代碼我並獲得了劇情：

ggplot(data=ef2, aes(x=X1, y=value, group=X2)) + 
    facet_grid(.~X2, scales="free_x") + 
    geom_line(size=1) + 
    geom_point(size=3) + 
    xlab('') + 
    ylab('Y') 

的問題是，X軸是按字母順序排列，我不知道如何解決它。我曾嘗試添加scale_x_discrete，但我不知道如何區分組。你可以看到我獲得下面的鏈接將這個參數添加的情節：

ggplot(data=ef2, aes(x=X1, y=value, group=X2)) + 
    facet_grid(.~X2, scales="free_x") + 
    geom_line(size=1) + 
    geom_point(size=3) + 
    xlab('') + 
    ylab('Y') + 
    scale_x_discrete(limits=ef2$X1) 

編輯：我不能改變EF2 data.frame。我試過在另一個data.frame的訂購因素：

ef2 <- data.frame(X1=c(50,100,'bb','aa'), X2=c('A','A','B','B'), value=c(1,4,3,6)) 
ef2$X1 <- as.character(ef2$X1) 
nou <- data.frame(X1=factor(ef2$X1), levels=ef2$X1, X2=ef2$X2, value=ef2$value) 

但它不起作用。

Answer 1

這爲我工作，但我不知道這是否正是你所需要的：自動Avoid ggplot sorting the x-axis while plotting geom_bar() ggplot訂單，除非你提供一個已經orderd因素：

ef2 <- data.frame(X1=factor(c('50','100','bb','aa'), levels = c('50','100','bb','aa')), X2=c('A','A','B','B'), value=c(1,4,3,6)) 

ggplot(data=ef2, aes(x=X1, y=value, group=X2)) + 
    facet_grid(.~X2, scales="free_x") + 
    geom_line(size=1) + 
    geom_point(size=3) + 
    xlab('') + 
    ylab('Y') 

根據這個帖子。

更新：

您使用的代碼有錯誤。 levels是factor函數的一個參數。 試試這個：

ef2 <- data.frame(X1=c(50,100,'bb','aa'), X2=c('A','A','B','B'), value=c(1,4,3,6)) 
ef2$X1 <- factor(ef2$X1, levels = unique(ef2$X1))