r - パーセント時間割り当ての事前ビニングされたデータのプロット

Question

単一の に 11 のデータ列があり、data.frameそのうちの 10 列は深度カテゴリで、1 つの列には 2 つの値 (DayまたはNight) のいずれかが含まれています。

データの各行には、4 時間にわたって各深さカテゴリで費やされた時間の割合を表す数値が入力され、その 4 時間が日中だったか夜間だったかを示す列に、DayまたはNight割り当てられています。Day_Night

このデータを背中合わせのヒストグラムにプロットしたいと思います。各深度ビンはプロットに沿って垂直にリストされ、その日の値は 1 つのヒストグラムに一方向にプロットされ、夜の値は反対方向にプロットされます。私は初心者なので写真を投稿することはできませんが、私が何を意味するかを理解するには、この出版物の 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')"))