Figure 2.R

###
### Crosetto, Lacroix, Muller, Ruffieux
### ERAE 2019
### Nutritional and economic impact of 5 alternative front-of-pack nutritional labels: experimental evidence
###

### This file produces Figure 2 of the paper

## NOTE
## the produced plot differs from the paper version in appearance
## this is to limit dependencies on external packages
## to reproduce exaclty the same plot as in the paper uncomment the final lines
## final theme depends on devtools and hrbrthemes being installed


# getting individual indicator of nutritional performance (FSA/calories for the whole basket)
ind <-  df %>% 
  ungroup() %>% 
  group_by(treatment, subject, caddy) %>% 
  summarise(indicator = (sum(FSAKcal))/sum(actual_Kcal))

# computing difference between first and second basket
ind <- ind %>% 
  spread(caddy, indicator) %>% 
  mutate(diff = (`2`-`1`)) %>% 
  select(treatment, subject, FSA1 = `1`, FSA2 = `2`, diff)

## Figure 2
fig2 <- ind %>%
  ggplot(aes(reorder(treatment,diff), diff, color=treatment)) +
  geom_boxplot(alpha = 1)+
  geom_jitter(height = 0, width = 0.3, alpha = 0.5)+
  geom_hline(yintercept = 0, color = 'indianred', linetype = 'dashed')+
  ylab("Absolute FSA score difference, basket 2 vs 1")+
  xlab("")+
  scale_color_manual(values = rev(c("#ffd042", "#00B050","skyblue",  "grey10",  "#E0270B", "grey78")), name = "")+
  theme_minimal()+
  theme(legend.position = "none")
fig2
ggsave("Figures/Figure_2.png", width = 8, height = 6, units = "in", dpi = 300)    


## with the final theme
#library(devtools)
#devtools::install_github("hrbrmstr/hrbrthemes")
#library(hrbrthemes)
#fig2 + theme_ipsum_rc()+theme(legend.position = "none")

## cleaning up
rm(fig2, ind)