6

geom_bar積み上げ棒グラフを使用してプロットし、棒グラフ内の値で各カテゴリにラベルを付けようとしています。一部のカテゴリの値が小さいため、棒グラフの対応するセグメントの高さが小さい場合があります。そのため、を使用してラベルのサイズを調整しようとしていgeom_textます。
プロットしようとしている変数の値に応じて変化する というベクトルを定義しようとしsizeましたが、ラベルのサイズはカテゴリ間で異なりますが、値に関連しているようには見えません。また、グラフの右側にラベル サイズの凡例が表示される理由がわかりません。
これは、私が使用しているコードの削除されたバージョンです。

library(ggplot2)
library(plyr)
library(scales)

Var1 = as.factor(rep(c("A", "B", "C", "D", "E", "F"),2))
Var2 = as.factor(rep(c("Y1","Y2"),each=6))
Freq = c(0.4, 0.1, 0.3, 0.1, 0.05, 0.05,0.2,0.2,0.3,0.2,0.05,0.05)
Data = data.frame(Var1, Var2, Freq)
Data <- ddply(Data, .(Var2), mutate, y = cumsum(Freq)-Freq/2)

size = ifelse(Data$Freq > 0.05, 10, 3)
label = paste(round(Data$Freq*100,0),"%", sep = "")
p = ggplot(data = Data, aes(x = factor(''), y = Freq, fill = Var1)) +
  geom_bar(stat = "identity",position = "fill", width = 1) +
  scale_fill_brewer(palette = 3) +
  facet_grid(facets = . ~ Var2) +
  geom_text(aes(y = y, label = label, 
                position ="identity", face = "bold"), size = size, hjust=0.5, vjust=0.5) +
  xlab('') + ylab('') + labs(fill = '') + ggtitle('Example') +
  theme(axis.text.y = element_text(size=14,face="bold"),
        panel.background = element_blank(),
        plot.title = element_text(size = 20, colour = "black", face = "bold"))
p

私が見る限り、この問題はファセットによって引き起こされます。これは、このわずかに簡略化されたバージョン (つまり、ファセットなし) が正常に機能するためです。

library(ggplot2)
library(plyr)
library(scales)

Var1 = as.factor(c("A", "B", "C", "D", "E", "F"))
Freq = c(0.4, 0.1, 0.3, 0.1, 0.05, 0.05)
y = cumsum(Freq)-Freq/2
Data = data.frame(Var1, Freq, y)

size = ifelse(Data$Freq > 0.05, 10, 3)
label = paste(round(Data$Freq*100,0),"%", sep = "")
p = ggplot(data = Data, aes(x = factor(''), y = Freq, fill = Var1)) +
  geom_bar(stat = "identity",position = "fill", width = 1) +
  scale_fill_brewer(palette = 3) +
  geom_text(aes(y = y, label = label, 
                position ="identity", face = "bold"), size = size, hjust=0.5, vjust=0.5) +
  xlab('') + ylab('') + labs(fill = '') + ggtitle('Example') +
  theme(axis.text.y = element_text(size=14,face="bold"),
        panel.background = element_blank(),
        plot.title = element_text(size = 20, colour = "black", face = "bold"))
p
4

1 に答える 1

2

データ フレームに a を追加し、sizeそれらのパラメーターをgeom_text aes() 内で移動すると、これは問題なくプロットされるようです。おもう.. 

Data$size <- size

p <- ggplot(data = Data, aes(x = factor(''), y = Freq, fill = Var1)) +
       geom_bar(stat = "identity",position = "fill", width = 1) +
       scale_fill_brewer(palette = 3) +
       geom_text(aes(y = y, label = label, 
                     position ="identity", face = "bold", size = size), hjust=0.5, 
                     vjust=0.5) +
       xlab('') + ylab('') + labs(fill = '') + ggtitle('Example') +
       theme(axis.text.y = element_text(size=14,face="bold"),
             panel.background = element_blank(),
             plot.title = element_text(size = 20, colour = "black", face = "bold")) + 
             facet_grid(facets = . ~ Var2) + 
             guides(size=FALSE)

また、私が行ったように最後に追加+ guides(size=FALSE)すると、サイズの凡例が削除されます.

これについての私の説明は間違っているかもしれませんが、ファセットを作成すると、まだ完全な長さを提供してsizeいて、ファセットが に従ってサイズ データを切り刻むことを許可していないということVar2です。

サイジングに関するあなたの問題は、size大きな違いが得られている2つのサイズしかないことだと思います（おそらく相対的なスケーリングが必要です）、おそらく+ scale_size(range=c(6,10))これを追加して遊んで、より適切なものを取得しますか？サイズ範囲は6,10私にははるかに良く見えます。

ここに画像の説明を入力

于 2013-12-27T10:17:24.303 に答える