Crear grafica con corte en eje X y simbolo de infinito

##    Si corres el script deberia de mandarte una grafica con corte al final 
##    y etiqueta de infinito, cualquier duda me puedes buscar en el lab


# Instalar librerias si no las tienes, solo si no tienes
#install.packages("ggplot2") #libreria ggplot
#install.packages("ggh4x") #libreriagg4x


#Cargar librerias
library(ggplot2)
library(ggh4x)

# Crear un data frame con los datos o si tienes seria cargarlos
df <- data.frame(x = seq(-5, 5, length.out = 100),
                 y = seq(-5, 5, length.out = 100)^2)



# definir punto de corte
x_end <- 4
# sumar el tamaño de corte
x_start <- x_end + 0.5

# Crear la gráfica

ggplot(df, #definir data frames
       aes(x = x, y = y))+ #definir los ejes
  geom_line()+ #trazar la linea o si es el caso los puntos, seria geom_point()
  theme_classic()+ #tema predeterminada
  scale_x_continuous(breaks = seq(-5, 5, 2),# poner tus breaks en el eje x, aqui
                     # es de -5 a 5 de 2 en 2
                     ## definir tiquetas del eje, se reduce uno para cambairlo 
                     # por el infinito aqui como es de 2 en 2reduce a 3,
                     labels = c(seq(-5,3,2),
                                #Poner el simboloo de infinito
                                expression(infinity)))+ 
  guides(x = guide_axis_truncated( #funcion para cortar eje
    trunc_lower = c(-Inf,4.5), #desapaecer flecha primera parte
    trunc_upper = c(4, Inf)))+ #desaparecer flecha segunda parte
  ##  poner las diagonales en lo scortes
  annotate("text", label = "/", y = -Inf, x = c(x_end, x_start))  +
  #extender los diagonales fuera del panel
  coord_cartesian(clip = "off")

# con ggsave() puedes guardar la grafica y configurar su tamaño y resolucion