Kokoan tänne omassa tutkimuksessa usein käyttämiäni skriptejä lähinnä oman työn tueksi. Laajempia ja yleisimpiä ohjeita löytyy mm. täältä:

• Cookbook for R
• Quick-R

df$health <- recode(df$PH010, "1='e)very good';2='d)good';3='c)fair';
                    4='b)bad';5='a)very bad'")

health <- scale_fill_manual(values=c("#CC0000", 
                                    "#CC6633", 
                                    "#FFFF00", 
                                    "#99CC33", 
                                    "#66FF00"))

ggplot(df, aes(factor(ageclass), fill=(factor(health)))) + 
  geom_bar(position="fill") + facet_grid(~PB020) + health