使用 ggplot2 在一個圖上繪制多個圖形

Question

我想用這個數據集： https ://dl.dropboxusercontent.com/u/73950/mydata.csv，以不同的色調顯示 4 個不同的圖形：GA、N1、N2、PE。 對於每個圖形，所有類別“m”的值都必須顯示在 y 軸上，“nbr”在 x 軸上。

這是我到目前為止的代碼（感謝@CMichael 提供了大部分代碼）

require(reshape2)

mydata = read.csv(file="/Users/Rodolphe/Downloads/mydata.csv", sep=";", header=TRUE)
dataM = melt(mydata,c("nbr"))

#parse labels to identify vertical category and fill the value correspondingly
dataM$order = ifelse(grepl("GED",dataM$variable),"GED",ifelse(grepl("RAN",dataM$variable),"RAN",ifelse(grepl("EIG",dataM$variable),"EIG","BET")))
#parse labels to identify horizontal category and fill the value correspondingly
dataM$net = ifelse(grepl("PE",dataM$variable),"PE",ifelse(grepl("GA",dataM$variable),"GA",ifelse(grepl("N1",dataM$variable),"N1","N2")))
#parse label to identify category
dataM$category = ifelse(grepl("mNC",dataM$variable),"mNC",ifelse(grepl("aSPL",dataM$variable),"aSPL",ifelse(grepl("d",dataM$variable),"d","m")))


ggplot(dataM[dataM$category=="m" & dataM$order=="RAN",], aes(value, fill=net)) + geom_density(alpha = .3, color=NA)  + scale_fill_brewer(palette="Set1")

這給了我：

從美學上講，這正是我所需要的。 然而，顯示顯然是錯誤的，有幾件事讓我感到困惑。 一方面，我似乎無法在 x 軸上強制使用“nbr”。 使用此代碼我是否走在正確的軌道上？

Answer 1

因此，根據 OP 的評論，這可能是繪制數據的一種方法：

ggplot(dataM[dataM$category=="m" & dataM$order=="RAN",], aes(x=nbr, y=value, fill=net)) + 
  geom_ribbon(aes(ymin=0, ymax=value),alpha=0.3)+ 
  scale_fill_brewer(palette="Set1")

或者，恕我直言，一個更好的選擇：

ggplot(dataM[dataM$category=="m" & dataM$order=="RAN",], aes(x=nbr, y=value, fill=net)) + 
  geom_line(aes(color=net))+
  geom_ribbon(aes(ymin=0, ymax=value),alpha=0.3)+ 
  scale_fill_brewer(palette="Set1")+
  facet_grid(net~.)

Answer 2

根據 OP 的評論，這可能是繪制數據的一種方法：

ggplot(dataM[dataM$category=="m" & dataM$order=="RAN",], aes(x=nbr, y=value, fill=net)) + 
  geom_ribbon(aes(ymin=0, ymax=value),alpha=0.3)+ 
  scale_fill_brewer(palette="Set1")