1. Giovanni Marco Dall'Olio
  2. leipzig_feedback_2013

Commits

Giovanni Marco Dall'Olio  committed b45ab49

COLORS: filling the borders of barcharts, to make brighter colors more visible

  • Participants
  • Parent commits 33e3720
  • Branches default

Comments (0)

Files changed (2)

File results/plots/feedback_charts_2013.pdf

Binary file modified.

File src/plot_evaluations.R

View file
         )
 
 barchart_plot = list (theme_bw(),
-        geom_bar(width=1),
+        geom_bar(width=1, colour="black"),
         opts(legend.position='bottom'),
         facet_wrap(~variable, nrow=3),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
 #        opts(axis.text.x=theme_text(angle=90, hjust=0.4 )),
 #        scale_fill_brewer(palette="RdPu"),
+        scale_fill_brewer(palette="Blues"),
+        scale_color_identity("black"),
 #        scale_fill_brewer(palette="Greens"),
 #        coord_polar(theta='y'),
         scale_x_discrete("answer")
 #        scale_y_continuous(breaks=plot_labels)
         )    
 student_barchart_plot = list(theme_bw(),
-        geom_bar(aes(x=answer, fill=answer)),
+        geom_bar(aes(x=answer, fill=answer), colour="black"),
         facet_wrap(~Timestamp, nrow=3),
         opts(legend.position='none'),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
 #        scale_fill_brewer(palette="RdPu"),
 #        scale_fill_brewer(palette="PuRd"),
 #        scale_fill_brewer(type="seq", palette=5),
-        scale_fill_brewer(palette="Greens"),
+        scale_fill_brewer(palette="Reds"),
         scale_x_discrete("Student (Timestamp of when the feedback form was filled)")
         )