# NOT RUN {
library(dplyr)
data(futbol)
datos <-
futbol %>%
group_by(longp) %>%
mutate(ajuste = mean(dist), res = dist - ajuste)
gg_rf(datos, dist, ajuste, res)
gg_rf(datos, dist, ajuste, res, cen_obs = TRUE)
gg_rf(datos, dist, ajuste, res, cen_obs = TRUE,
cen_obs_label = "Obs centradas", cen_fit_label = "Ajustados menos media",
res_label = "Residuos", xlabel = "valor f", ylabel = "Distancia (m)",
color = "red", size = 0.7)
# }
Run the code above in your browser using DataLab