Open In App

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

Last Updated : 19 Jun, 2020
Comments
Improve
Suggest changes
Like Article
Like
Report
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
r
# Create example data

set.seed(72500)  
x <- rnorm(800)
dens_x <- density(x)
plot(dens_x)       
Output:

Adding Color to Plot

with() function is used to add color between two points of the graph.
Syntax: with(dens_x, polygon(x = c(x[c 1="x_low:x_high," 2="x_high)" language="(x_low,"][/c]), 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.
r
# 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:

Next Article
Article Tags :

Similar Reads