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

• Last Updated : 19 Jun, 2020

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.

Syntax:
with(dens_x,
polygon(x = c(x),
y = c(0, y[x_low:x_high], 0),
col = ” “))

Parameters:
dens_x: Default plot of density.
x_low, x_high: lower limit and upper limit of colored area
col: Name of color

Returns: Color plot between to particular plots with specified color.

 `# 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"``)) `

Output:

My Personal Notes arrow_drop_up
Related Articles