Agregue color entre dos puntos de la gráfica de densidad del kernel en la programación R: uso de la función with()

Las funciones plot() y with() se utilizan para dibujar y agregar color entre un área particular de dos puntos de Kernel Density Plot en R Language .

Dibujar un gráfico de densidad del kernel

plot()La función en lenguaje R se usa para dibujar un gráfico de densidad de Kerner

Sintaxis: plot(dens_x)

Parámetros:
dens_x : Gráfico de densidad por defecto.

Devoluciones: Gráfica de densidad del kernel

# Create example data
  
set.seed(72500)  
x <- rnorm(800)
dens_x <- density(x)
plot(dens_x)       

Producción:

Agregar color a la trama

with()La función se utiliza para agregar color entre dos puntos del gráfico.

Sintaxis:
with(dens_x,
polígono(x = c(x),
y = c(0, y[x_low:x_high], 0),
col = ” “))

Parámetros:
dens_x : Gráfico de densidad por defecto.
x_low, x_high: límite inferior y límite superior del área coloreada
col: Nombre del color

Devuelve: gráfico de color entre gráficos particulares con el color especificado.

# color the plot
  
set.seed(72500)  
x <- rnorm(800)
dens_x <- density(x)
plot(dens_x)       
x_low <- min(which(dens_x$x >= - 0.5))   # Define lower limit of colored area
x_high <- max(which(dens_x$x < 1))       # Define upper limit of colored area
with(dens_x,                             # Add color between two limits
     polygon(x = c(x[c(x_low, x_low:x_high, x_high)]),
             y = c(0, y[x_low:x_high], 0),
             col = "darkgreen"))

Producción: