# Add Color Between Two Points of Kernel Density Plot in R Programming – Using with() Function

plot() and with() functions are used to draw and add color between a particular area of two points of Kernel Density Plot in R Language.

#### Draw a Kernel Density plot

`plot()` function in R Language is used to draw a Kerner Density Plot
Syntax: plot(dens_x) Parameters: dens_x: Default plot of density. Returns: Kernel density plot
 `# Create example data `` ` `set.seed``(72500)   ``x <- ``rnorm``(800) ``dens_x <- ``density``(x) ``plot``(dens_x)        `

Output:

`with()` function is used to add color between two points of the graph.
 `# 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"``)) `