Manipulación de dataset conteniendo varias enfermedades / métricas para rápida exploración global

multi_dis_metric

library(tidyverse)
wide <- read.csv("https://raw.githubusercontent.com/juanchiem/agro_data/master/multiple_dis_metric.csv", 
                sep = ",") %>% as.tibble() 
wide

wide %>% 
  pivot_longer( 
    cols = contains("_"), 
    names_to="var",
    values_to='val') %>% 
  separate(var, c('enf', 'metric'), 
           sep = '_', convert = TRUE)->long

long

long %>% 
  ggplot()+
  aes(x=factor(trt), y=val)+
  geom_point(aes(col=factor(bk)))+
  facet_wrap(.~ enf*metric, scales = "free_y")+
  stat_summary(fun = "mean", geom = "crossbar")