合并x轴和多个图的图例

Question

使用以下R代码我在一个图上生成了多个图。

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)

如何将整个数字的x轴标签，y轴标签和Species图例合并为1？

此外，为整个数字或每个数字标记位置刻度标记会更有意义吗？

Answer 1

试试这个：

%>%

由于数据尚未发布，我无法对其进行测试，但这应该可行。如果您收到错误，请告诉我。如果您之前从未使用过滚边（ggplot()），那么这是一种让代码更具可读性和简洁性的流行方式。基本上它使左边的任何东西成为右边函数中的第一个arg。在这种情况下，数据是ggplot()中的第一个arg，因此过滤后的数据集会进入zIndex