r - ggplot2 のヒストグラム バーの塗りつぶし順序を逆にする

Question

plot を使用して作成されたヒストグラムのバーを塗りつぶすためのデフォルトは逆アルファベット順であるのに対し、凡例はアルファベット順に並べられていることに気付きました。両方をアルファベット順に並べ替える方法はありますか? 問題は、以下のプロット例で明らかです。おまけの質問: バーの左から右への順序をアルファベット順からカウント合計の減少に変更するにはどうすればよいですか? ありがとう

df <- data.frame(
  Site=c("A05","R17","R01","A05","R17","R01"),
  Group=c("Fungia","Fungia","Acro","Acro","Porites","Porites"),
  Count=c(6,8,6,7,2,9),
  Total=c(13,10,15,13,10,15)
)

  Site   Group Count Total
1  A05  Fungia     6    13
2  R17  Fungia     8    10
3  R01    Acro     6    15
4  A05    Acro     7    13
5  R17 Porites     2    10
6  R01 Porites     9    15

qplot(df$Site,data=df,weight=df$Count,geom="histogram", fill=df$Group, ylim = c(0,16)) + 
  xlab("Sites") + 
  ylab("Counts") + 
  scale_fill_hue(h=c(0,360), l=70, c=70,name = "Emergent Groups")

凡例のアルファベット順と一致するように、カウントを高から低に並べ替え、塗りつぶしの色を並べようとしています。最初の投稿のヒントを使用して数時間調整しようとしましたが、成功しませんでした。これについての助けをいただければ幸いです!!!

Answer 1

色の順序だけを一致させたい場合は、凡例を逆にすることができます。色の順序は一致しますが、凡例は逆のアルファベット順になります。

qplot(df$Site,data=df,weight=df$Count,geom="histogram", fill=df$Group, ylim = c(0,16)) + 
  xlab("Sites") + 
  ylab("Counts") + 
  scale_fill_hue(h=c(0,360), l=70, c=70,name = "Emergent Groups") +
  guides(fill = guide_legend(reverse = TRUE))

アルファベット順に戻すには、上記のコードの前にグループ ファクターを並べ替えます。

# reorder the groups
df$Group <- factor(df$Group , 
                   levels=levels(df$Group)[order(levels(df$Group), decreasing = TRUE)])

qplot(df$Site,data=df,weight=df$Count,geom="histogram", fill=df$Group, ylim = c(0,16)) + 
  xlab("Sites") + 
  ylab("Counts") + 
  scale_fill_hue(h=c(0,360), l=70, c=70,name = "Emergent Groups") +
  guides(fill = guide_legend(reverse = TRUE))

ボーナス (合計カウントの減少によるバーの並べ替え) のために、Site 変数の因子の順序を並べ替えます。

# reorder the sites
df$Site <- factor(df$Site, 
                  levels = levels(df$Site)[order(aggregate(Count ~ Site, data = df, sum)$Count, 
                                                 decreasing = TRUE)])
# reorder the groups
df$Group <- factor(df$Group , 
                   levels=levels(df$Group)[order(levels(df$Group), decreasing = TRUE)])

qplot(df$Site,data=df,weight=df$Count,geom="histogram", fill=df$Group, ylim = c(0,16)) + 
  xlab("Sites") + 
  ylab("Counts") + 
  scale_fill_hue(h=c(0,360), l=70, c=70,name = "Emergent Groups") +
  guides(fill = guide_legend(reverse = TRUE))