複数のプロットのx軸と凡例のマージ

Question

次のRコードを使用して、1つのプロットに複数のプロットを生成しました。私は全体図のため1にx軸ラベル、y軸ラベル、およびSpecies伝説をマージすることができますどのように

library(ggplot2) 

Adata=nt.df[(nt.df$Species=='Human' | nt.df$Species=='Arabidopsis')& nt.df$Nucleotide=='A',] 
Cdata=nt.df[(nt.df$Species=='Human' | nt.df$Species=='Arabidopsis')& nt.df$Nucleotide=='C',] 
Gdata=nt.df[(nt.df$Species=='Human' | nt.df$Species=='Arabidopsis')& nt.df$Nucleotide=='G',] 
Udata=nt.df[(nt.df$Species=='Human' | nt.df$Species=='Arabidopsis')& nt.df$Nucleotide=='U',] 
# Grouped 
Aplot <- ggplot(data, aes(fill=Species, y=Percent, x=Position)) + 
    geom_bar(position="dodge", stat="identity") 

Cplot <- ggplot(data, aes(fill=Species, y=Percent, x=Position)) + 
    geom_bar(position="dodge", stat="identity") 

Gplot <- ggplot(data, aes(fill=Species, y=Percent, x=Position)) + 
    geom_bar(position="dodge", stat="identity") 

Uplot <- ggplot(data, aes(fill=Species, y=Percent, x=Position)) + 
    geom_bar(position="dodge", stat="identity") 


grid.arrange(Aplot,Cplot,Gplot,Uplot,ncol=1) 

？

さらに、図形全体または各図形のラベルに位置目盛り記号を付けるのは理にかなっていますか？

Answer 1

はこれを試してみてください：

require(dplyr) 
require(ggplot2) 

nt.df %>% 
    filter(Species %in% c('Human', 'Arabidopsis')) %>% 
    ggplot(aes(fill = Species, y = Percent, x = Position)) + 
    geom_bar(position="dodge", stat="identity") + 
    facet_wrap(. ~ Nucleotide) 

データは、私はそれをテストすることができませんでし掲載されなかったが、これは動作するはずですので。エラーが発生した場合はお知らせください。以前にパイピングを使用したことがない人は（%>%）、コードを読みやすく簡潔にする一般的な方法です。基本的には、関数の最初の引数は左にあるものを右にします。この場合、データはggplot()の最初の引数であるため、フィルタリングされたデータセットはggplot()になります。