Question

我在数据框中有以下形式的二进制事件数据：

type="h"

总共可能有大约50个系列，大约25年。

我的目标是在一个图中显示所有系列，以可视化系列的聚合视图。

即。我想在一个图中绘制所有数据的图形，以便每列都有一个单独的面板在彼此之上。每个面板可以是一个简单的直方图（即par(mfrow=c(rows, cols))），以显示二进制数据。

除了最底部的面板之外，面板之间自然不应该有x轴标签和刻度等。

现在，我可以使用plot(...)手动执行此操作，然后为每个系列单独执行ggplot2，但由于要绘制大量系列，这是不可行的。或者我可以写一个for循环来处理它，但必须有更好的方法来实现它。

如果不按面板手动操作，我怎么能这样做？如果有更好的方法可以在一个图中可视化所有系列的聚合视图，欢迎提出建议。例如，如果有一种方法可以在没有单独的面板的情况下这样做。

后续问题

关于在Ben的回答中格式化{{1}}解决方案：

1）目前，列标题（不知道确切名称，但“系列标题”）位于右侧90°角，因此它们相互重叠，因为名称是国家名称。我希望那些位于每个面板左侧的角度为0°。

2）此外，目前每个面板都有自己的y轴刻度标签0和1，在每个面板的LH侧，这些都没有必要，所以我想将它们删除。

Answer 1

最简单的方法是将数据重新整形为长格式（例如reshape2::melt()，如下所示），然后使用lattice或ggplot2。

dd <- read.table(header=TRUE,text="
year   A   B   C   D
1990   0   0   1   0
1991   0   1   1   0
1992   0   0   0   1
1993   1   1   0   0")

## make category names longer
names(dd) <- c("year","Aardvark","Behemoth","Cataclysm","Disaster")
library("reshape2")
ddm <- melt(dd,id.var="year")

晶格

library("lattice")
## you could use type="h" here, but I like "b" better ...
xyplot(value~year|variable,data=ddm,type="b",
       layout=c(1,4), ## stack (1 column, 4 rows); can also
                      ## use a third element of layout to split
                      ## into multiple pages
       as.table=TRUE  ## stack top-to-bottom
      )

GGPLOT2

更新：删除y轴刻度标签;使用this answer旋转构面标签。

library("ggplot2"); theme_set(theme_bw())
ggplot(ddm,aes(year,value))+geom_point()+geom_line()+
    facet_grid(variable~.)+  ## or use facet_wrap(~variable)
    theme(panel.margin=grid::unit(0,"lines"))+  ## squash panels together
       scale_y_continuous(breaks=c(0,1),labels=rep("",2))+
    theme(strip.text.y = element_text(angle = 0))

绘制二元系列的多个面板

1 个答案:

晶格

GGPLOT2