円形のプロットを作成しようとしていますが、ある時点で立ち往生しています。
dat1 <- data.frame (xvar = 1:10, y = 6, ymin = 4, ymax = 4.5)
このデータを使用して、ggplot2で円形のリボンプロットを作成できます
require(ggplot2)
ggplot(dat1, aes(x=xvar, y=y)) + geom_ribbon(aes(ymin=ymin, ymax=ymax),
col = "blue", fill = "blue2") + ylim (c(0,6)) + coord_polar()
しかし、もっと欲しいです。
次のデータを使用して、リボンのセグメントをさまざまな色とラベルで塗りつぶしたいと思います。
filld <- data.frame (start = c(1, 4, 6, 7.5, 8, 9), end = c(4, 6, 7.5, 8, 9, 10),
label = c("A", "B", "C", "A", "C", "D"))
filld
## start end label
## 1 1.0 4.0 A
## 2 4.0 6.0 B
## 3 6.0 7.5 C
## 4 7.5 8.0 A
## 5 8.0 9.0 C
## 6 9.0 10.0 D
リボンは、ラベル変数によって異なる色で塗りつぶされます。たとえば、セグメントAは1から始まり、4で終わります。次に、セグメントBは6で始まり、6で終わり、異なる色で塗りつぶされます。同じラベルのセグメント(AやCなど)は線で接続されます。
結果のプロットは次のようになります。