#6 Añadir función geom_legend

geom_legend<-function(data, x, y, var, stat="median", color="black", ...){
  data<-data %>% group_by({{var}}) %>% summarise("{{x}}":=median({{x}}), "{{y}}":=median({{y}}))
  if (!is.null(color)){
    return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}), color=color, ...))
  }else{
    return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}),...))
    }
}

Aquí está la función ya hecha! #### function to print in the middle ```r geom_legend<-function(data, x, y, var, stat="median", color="black", ...){ data<-data %>% group_by({{var}}) %>% summarise("{{x}}":=median({{x}}), "{{y}}":=median({{y}})) if (!is.null(color)){ return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}), color=color, ...)) }else{ return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}),...)) } } ```