r - 積み上げ面プロットまたは「積み上げ」円プロットを作成する

Question

目的

積み上げ面プロットまたは「積み上げ」円プロットを作成します (図を参照)。円グラフは望ましくありません。

棒グラフのデータとコード

#Data set:
Numbers     16%
Frosts       2%
Doors        6%
Shelfs      10%
Earning     -3%

par(mai=c(2, 1, 1, 1), lwd=2)
barplot(as.numeric(c(16, 2, 6, 10, -3)), col = c("lightblue"), main="Bar plot",
        names.arg=c("Numbers","Frosts","Earning", "Doors","Shelfs"), xpd=TRUE, las=2, lwd=2, 
        axes=FALSE, axis.lty=1, cex.axis=1, cex.names=1, cex.main=1, ylim=c(-4, 18), xlim=c(0, 5))

2 つの出力オプション

Answer 1

これで作業を試みることができます：

library(ggplot2)
data<-data.frame(Name=c("Earning","Frosts","Doors","Shelfs","Numbers"),Val=c(1,2,6,10,16))

ggplot(data,aes(x=factor(1),y=Val,fill=Name))+
geom_bar(stat="identity",width=1)+coord_polar()

カラーパレットを変更して、必要な場所にテキストを追加するだけです（もちろんVal、プロット上で大きすぎる場合は列の最初の値-負の値に対応します）