gistfile1.txt

DataExplorer::plot_missing(arc)
DataExplorer::plot_correlation(arc_month,  
                               cor_args = list("use" = "pairwise.complete.obs"))
DataExplorer::plot_correlation(arc_company,  
                               cor_args = list("use" = "pairwise.complete.obs"))

ggplot(arc, aes(x=rochefant, colour=description)) + 
  geom_density(aes(fill=description), alpha=0.2) + 
  theme_bw() + facet_wrap(~description)
ggplot(arc, aes(x=rochefant, colour=strain)) + 
  geom_density(aes(fill=strain), alpha=0.2) + 
  theme_bw() + facet_wrap(~strain)
ggplot(arc, aes(x=rochefant, colour=region)) + 
  geom_density(aes(fill=region), alpha=0.2) + 
  theme_bw() + facet_wrap(~region)
ggplot(arc, aes(x=rochefant, colour=generation1)) + 
  geom_boxplot(aes(fill=generation1), alpha=0.2) + 
  theme_bw() + facet_wrap(~region)
ggplot(arc, aes(x=rochefant, colour=`generation(a/s)`)) + 
  geom_boxplot(aes(fill=`generation(a/s)`), alpha=0.2) + 
  theme_bw() + facet_wrap(~region)
heatmap(table(arc$`generation(a/s)`, arc$generation1))