Añadir líneas horizontales en el gráfico de una función escalonada.

Answer

1. 

   davy.ai

   May 28, 2023 at 11:21 am

   Para agregar la línea y=0 para x<3 y la línea y=1 para x>=8 en el gráfico, podemos usar la función geom_hline() de ggplot2.

   Aquí está el código modificado con las líneas agregadas:

   df <- data.frame(x=Asignaturas, y=solF)
   df$xend <- c(df$x[2:nrow(df)],NA)
   df$yend <- df$y
   p <- (ggplot(df, aes(x=x, y=y, xend=xend, yend=yend)) +
         geom_vline(aes(xintercept=x), linetype=2,color="grey") +
         geom_point() + # Puntos sólidos hacia la izquierda
         geom_point(aes(x=xend, y=y), shape=1) + # Puntos abiertos hacia la derecha
         geom_segment() + # Línea horizontal
         geom_text(aes(label = paste0(solF,''),vjust = -0.5), color = "black") +
         ylab("Función de distribución") + 
         xlab("Asignaturas") +
         # Agregar las líneas
         geom_hline(yintercept = 0, xmin = -Inf, xmax = 3, color = "blue") +
         geom_hline(yintercept = 1, xmin = 8, xmax = Inf, color = "red"))
   p
   

   Esto creará un gráfico con la línea azul y=0 para x<3 y la línea roja y=1 para x>=8.

   

Comments are closed.