So, I’ve always been interesting in the “xkcd type” of figures only because **IT’S FUN**.

My goal here is to make density plots of the most common probability functions using the xkcd style.

- First of all, we will need to load these packages:

```
library(xkcd)
library(dplyr)
library(ggplot2)
```

- Now, we do a function using the ggplot2 sintax to make the plot. Note that we need calculate the axes ranges and apply “jitter” to x and y to create a hand-drawn effect in the line.

```
xkcd_density = function(x,y){
# Calcule the axis range
xrange = range(x)
yrange = range(y)
# Plot line type + jitter
qplot(jitter(x),jitter(y),geom = "blank")+
geom_line(linetype = 1,size=1.5)+
theme_xkcd()+
xkcdaxis(xrange,yrange)+
xlab("")+
ylab("")
}
```

- Ploting the standart normal (0,1) density.

```
x = seq(-3,3,by=.1)
y = dnorm(x,mean=0,sd=1)
xkcd_density(x,y)
```

- Ploting the Chi square (df = 3) density.

```
x = c(0,seq(0.1,10,by=.1))
y = c(0,dchisq(x[-1],df=3))
xkcd_density(x,y)
```

There you have! A nice looking (sort of) xkcd density plot!