绘制百分比时间分配的预分箱数据

Question

我在一个data.frame中有11个数据列，其中10列是深度类别，1列包含两个值中的一个（Day或Night）。

每行数据都填充了数字值，表示在4小时内在每个深度类别中花费的时间百分比，并在{{1}中为其分配了Day或Night }列，指示该4小时是在白天还是在晚上。

我想在背靠背直方图中绘制这些数据，其中每个深度仓沿着绘图垂直列出，并且当天的值被绘制在面向一个方向的一个直方图中，而夜晚的值被绘制为面向另一种方式。我不能发布一张图片，因为我是新手，但看看我的意思只是看看this publication第8页的图5。

编辑：这是图片：

谢谢你的帮助！

Answer 1

您可以使用plotrix例如：

set.seed (123)
mm <- matrix (sample(seq(0,330,10),2000,rep=TRUE),ncol=2 )
ll <- lapply(as.data.frame(mm),
       function(x)as.data.frame(table(cut(x,seq(0,330,10)))))


library(plotrix)
par(mar=pyramid.plot(ll$V1$Freq,ll$V2$Freq,
                     labels =ll$V1$Var1,
                     top.labels=c("NIGHT","","DAY"),
                     xlim=c(100,100),
                     main="Swimming depth",
                     lxcol="black",rxcol= "white",
                     gap=0,
                     do.first="plot_bg('pink')"))