polygon() Function in R (6 Examples) | Frequency & Density Plot | Color Range & Between Densities

How to apply the polygon function in the R programming language. More details: https://statisticsglobe.com/r-polygon-function-plot/
R code of this video:

plot(1, 1, col = "white", xlab = "X", ylab = "Y") # Draw empty plot
polygon(x = c(0.7, 1.3, 1.2, 0.8), # X-Coordinates of polygon
y = c(0.6, 0.8, 1.4, 1), # Y-Coordinates of polygon
col = "#1b98e0") # Color of polygon

plot(1, 1, col = "white", xlab = "X", ylab = "Y") # Draw empty plot
polygon(x = c(0.7, 1.3, 1.2, 0.8), # X-Coordinates of polygon
y = c(0.6, 0.8, 1.4, 1), # Y-Coordinates of polygon
col = "#1b98e0", # Color of polygon
border = "red", # Color of polygon border
lwd = 5) # Thickness of border

x1 ＜- 1:10 # X values for frequency polygon
y1 ＜- c(2, 4, 7, 4, 5, 8, 6, 6, 1, 2) # Y values for frequency polygon

plot(x1, y1, # Plot frequency polygon
type = "l", # Set line type to line
lwd = 3) # Thickness of line
polygon(c(1, x1, 10), c(0, y1, 0), # X-Y-Coordinates of polygon
col = "#1b98e0") # Color of polygon
points(x1, y1, # Add squares to frequency polygon
cex = 2, # Size of squares
pch = 15) # Set point type to squares
segments(x1, 0, x1, y1) # Add line segments to plot

set.seed(15051) # Set seed for reproducibility
N ＜- 1000 # Sample size
x2 ＜- rpois(N, 2) # Draw random poisson distribution

plot(density(x2), # Draw density plot
main = "", # No main title
xlab = "x2") # Set name of x-axis to x2
polygon(c(min(density(x2)$x), density(x2)$x), # X-Coordinates of polygon
c(0, density(x2)$y), # Y-Coordinates of polygon
col = "#1b98e0") # Color of polygon

poly_range ＜- density(x2)$x ＞ 1 & density(x2)$x ＜ 2.5 # Set polygon x-range

polygon(c(1, density(x2)$x[poly_range], 2.5), # X-Coordinates of polygon range
c(0, density(x2)$y[poly_range], 0), # Y-Coordinates of polygon range
col = "#353436") # Color of polygon range

plot(density(x2), # Draw density plot again
main = "", # No main title
xlab = "x2 & x3", # Set name of x-axis to x2 & x3
xlim = c(- 6, 10)) # Wider xlim

x3 ＜- rnorm(N, 2, 2.5) # Draw random normal distribution

polygon(c(density(x3)$x, rev(density(x2)$x)), # X-Coordinates of polygon
c(density(x3)$y, rev(density(x2)$y)), # Y-Coordinates of polygon
col = "#1b98e0") # Color of polygon

Follow me on Social Media:
Facebook – Statistics Globe Page: https://www.facebook.com/statisticsglobecom/
Facebook – R Programming Group for Discussions & Questions: https://www.facebook.com/groups/statisticsglobe
Facebook – Python Programming Group for Discussions & Questions: https://www.facebook.com/groups/statisticsglobepython
LinkedIn – Statistics Globe Page: https://www.linkedin.com/company/statisticsglobe/
LinkedIn – R Programming Group for Discussions & Questions: https://www.linkedin.com/groups/12555223/
LinkedIn – Python Programming Group for Discussions & Questions: https://www.linkedin.com/groups/12673534/
Twitter: https://twitter.com/JoachimSchork

Music by bensound.com