条件付きでGgplot2のバーを表示

Question

以下は、データフレームとプロットの簡単な例のコードです。条件付きでバーを色付けする方法が不思議です。私はscale_fill_manualをよく知っていますが、手動でバーの色を付けることができますが、"Satisfied"の2016ファセットは、"Satisfied"の2015のパーセンテージより低いパーセンテージであれば違う色にすることをお勧めします。おそらく赤い警告の境界線か、オレンジのような別の色（例のように）。

これは最良の例ではありませんが、年を上回るトップボックススコアのプロットがあれば、バーが一定の割合を下回った場合にバーの色を変更すると便利です。私は"colour = ifelse(Perc < 60, "orange", "green"の組み合わせで遊んでみましたが、動作させることができませんでした。私はifelseステートメントをどのように構造化するのか、ggplotコードのどこに配置するのかはわかりません。

Year<-c(2015, 2015, 2015, 2015, 2015, 2016, 2016, 2016, 2016, 2016) 

Service<-c("Satisfied", "Satisfied", "Satisfied", "Dissatisfied", "Dissatisfied", 
      "Satisfied", "Satisfied", "Dissatisfied", "Dissatisfied", "Dissatisfied") 

df <- data.frame(Year, Service) 

library(dplyr) 
df.prop <- df %>% 
      count(Year, Service) %>% 
      mutate(Perc = prop.table(n)) 

library(ggplot2) 
ggplot(df.prop, aes(x = Service, y = Perc, fill = Service)) + 
     geom_bar(stat = "identity", position = "dodge") + 
     geom_text(aes(label = percent(Perc)), position = position_dodge(width = 1), 
       vjust = 1.5, size = 3) + 
     scale_y_continuous(labels = percent) + 
     facet_grid(~ Year) 

Answer 1

は、データフレームに新しい変数を追加する最も簡単なことかもしれません：

df.prop$colour <- ifelse(df.prop$Service == "Satisfied" & df.prop$Perc < 0.6, "orange", NA) 

次に、あなたが行うことができます：

ggplot(df.prop, aes(x = Service, y = Perc, fill = Service, colour=colour)) + 
    geom_bar(stat = "identity", position = "dodge") + 
    geom_text(aes(label = percent(Perc)), position = position_dodge(width = 1), 
      vjust = 1.5, size = 3, colour="black") + 
    scale_y_continuous(labels = percent) + 
    facet_grid(~ Year) + 
    scale_colour_identity() 

を変更したい場合あなたができる条件に基づいて記入してください：

012答えを

df.prop$fill <- ifelse(df.prop$Service == "Satisfied" & df.prop$Perc < 0.6, "orange", ifelse(df.prop$Service == "Satisfied" & df.prop$Perc >= 0.6, "#00BFC4", "#F8766D")) 

ggplot(df.prop, aes(x = Service, y = Perc, fill = fill)) + 
    geom_bar(stat = "identity", position = "dodge") + 
    geom_text(aes(label = percent(Perc)), position = position_dodge(width = 1), 
      vjust = 1.5, size = 3) + 
    scale_y_continuous(labels = percent) + 
    facet_grid(~ Year) + 
    scale_fill_identity()