sm_hist {smplot2}

Histogram with kernel density estimation (Gaussian) and rugs

Description

Histogram with kernel density estimation (Gaussian) and rugs

Usage

sm_hist(
  ...,
  hist.params = list(binwidth = 1/2, fill = sm_color("blue"), color = "white", alpha =
    0.4),
  density.params = list(color = sm_color("blue"), size = 0.8, fill = "transparent"),
  rug.params = list(color = sm_color("blue"), alpha = 0.8, size = 0.4),
  histogram = TRUE,
  density = TRUE,
  rug = TRUE,
  borders = FALSE,
  legends = FALSE,
  forget = FALSE
)

Arguments

...

A generic aesthetic parameter across points and the boxplot. This is optional.

hist.params

List of parameters for the histogram, such as binwidth, color, alpha, fill etc.

density.params

List of parameters for the density estimation, such as color, size, alpha etc

rug.params

List of parameters for the rugs, such as color, size, alpha etc

histogram

TRUE if the histogram needs to be shown. FALSE if the histogram needs to be hidden.

density

TRUE if the density plot needs to be shown. FALSE if the density plot needs to be hidden.

rug

TRUE if the rugs need to be shown. FALSE if the rugs need to be hidden.

borders

If the border needs to be displayed, the input should be TRUE. If the border is not needed, the input should be FALSE.

legends

If the legend needs to be displayed, the input should be TRUE. If the legend is not needed, the input should be FALSE.

forget

Forget the defaults when list() is called for a specific parameter. Set to TRUE when when users want to map aesthetics to different groups more flexibly.. Set to FALSE by default.

Value

Returns a histogram generated using ggplot2.

Examples

library(ggplot2)
library(smplot2)
set.seed(2)
data=data.frame(value=rnorm(1000))
data2 = data.frame(value=rnorm(1000,5,1))

data$day <- 'day1'
data2$day <- 'day2'
rbind(data,data2) -> df

ggplot(data = data, aes(x=value)) +
sm_hist()

ggplot(data = df, aes(x=value, fill=day, color = day)) +
sm_hist(hist.params = list(binwidth = 1/2, alpha = 0.3),
       density.params = list(fill='transparent', size = 0.8),
       rug.params = list(alpha = 0.8)) +
 scale_color_manual(values = sm_palette(2)) +
  scale_fill_manual(values = sm_palette(2))