#' @title generates a density plot for a specific variable in a data.frame
#' @param df data.frame
#' @import ggplot2
#' @import dplyr
ggDensity <- function(df = mtcars, filter.var = 'cyl',filter.val = 6,variable = 'wt'){
if('factor' %in% class(df[,filter.var])){
Filter <- paste0(filter.var," == '", filter.val,"'")
}
else{
Filter <- paste0(filter.var," == ",filter.val)
}
df2 <-
df%>%
filter_(Filter)
ggplot(df2,aes_string(x = noquote(variable))) + geom_density()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.