これと類似であるggplot2 keep unused levels barplot ...
データを設定します(これに多分完全に同一ではないが?):
overlap_cha <- data.frame(type=rep(c("x1","x2","x3","x4"),c(18,0,91,3)))
変数は、適切な因子レベルを持っていることを確認します:
overlap_cha$type <- factor(overlap_cha$type,levels=c("x1","x2","x3","x4"))
library(ggplot2)
pie <- ggplot(overlap_cha, aes(x = 0, fill = type)) + geom_bar(width = 1)
pie2 <- pie + scale_fill_discrete(drop=FALSE)+scale_x_discrete(drop=FALSE)+
coord_polar(theta = "y")
色を変更する場合は、scale_fill_brewer
を使用してください(または、values
引数の場合はscale_fill_manual
を使用してください)。
pie3 <- pie +
scale_fill_brewer(palette="Set1",drop=FALSE)+
scale_x_discrete(drop=FALSE)+
coord_polar(theta = "y")
これは再現可能ではありません。 – Alex
@Alexただ編集します。 –
http://stackoverflow.com/questions/10834382/ggplot2-keep-unused-levels-barplotに似ていますが、私はこれらの回答をATMで作業することはできません。 –