2019_Estimacion_edad_caninos_Garay_Moreno

packages

library("tidyverse")

cargo df

df <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vQg-xKF80pAPWbmyf6Fa_N-B7cowHSeGGGoYDnyYPNVsgaZRfPSgdKr6DGObDgapSnZlVar6tnu8Es_/pub?gid=1114804749&single=true&output=csv")

grafica

otro con linea de tendencia

grafico, filtro por sexo

df %>% 
  
  ggplot(aes(x=Valor, y=Edad_real, color=Sexo)) +
  geom_point()+
  theme_minimal()+ 
  geom_smooth(method=lm)+
  facet_wrap(~Relacion)

otro