#' Grafica de desigualdades
#'
#' Cálculo de los coeficientes de una regresión lineal múltiple
#' @param data_ineq Data frame o Tibble. Datos obtenidos de la función 'data_proc' con la opción tipo = 'desigualdad'
#' @param xlab String. Nombre del eje X de la gráfica. NULL por defecto.
#' @param ylab String. Nombre del eje Y de la gráfica. NULL por defecto.
#' @param leyenda String. Nombre de la leyenda. NULL por defecto.
#' @export
#' @examples
#' ineq_gra()
ineq_gra = function(
data_ineq,
xlab = NULL,
ylab = NULL,
leyenda = 'Años') {
g = ggplot(
data = data_ineq,
aes(x = ridit)) +
geom_point(
aes(
y = Y,
colour = as.character(year),
shape = as.character(year))) +
geom_line(
aes(
y = predict,
colour = as.character(year),
linetype = as.character(year))) +
labs(
x = xlab,
y = ylab,
colour = leyenda,
linetype = leyenda,
shape = leyenda) +
theme_minimal() +
panel_border()
return(g)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.