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

Question

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

每行数据都填充有代表在 4 小时内每个深度类别中花费的时间百分比的数值，并在指示该 4 小时期间是白天还是晚上的列中具有Day或Night分配给它。Day_Night

我想将这些数据绘制在背靠背直方图中，其中每个深度箱沿图垂直列出，白天的值绘制在一个面向一侧的直方图中，而夜间的值则面向另一方向绘制。由于我是新人，所以我无法发布图片，但要了解我的意思，请查看本出版物第 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')"))