Skip to content

Instantly share code, notes, and snippets.

@karan19100

karan19100/Densityplot.R

Created July 18, 2020 18:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save karan19100/320af884725979bb9f5cf5408ed70037 to your computer and use it in GitHub Desktop.
Save karan19100/320af884725979bb9f5cf5408ed70037 to your computer and use it in GitHub Desktop.
Download ZIP
Densityplot_by_karanshah
Raw
Densityplot.R
par(mfrow=c(1, 2)) # it divides graph area in two parts
plot(density(newdata$HEMAGLOBIN), main="Density: HEMAGLOBIN", ylab="Frequency",
sub=paste("Skewness:", round(e1071::skewness(newdata$HEMAGLOBIN), 2)))
polygon(density(newdata$HEMAGLOBIN), col="yellow")
plot(density(newdata$HEMATOCRIT), main="Density: HEMATOCRIT", ylab="Frequency",
sub=paste("Skewness:", round(e1071::skewness(newdata$HEMATOCRIT), 2)))
polygon(density(newdata$HEMATOCRIT), col="orange")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment