## plot the density
ggplot(data.frame(x = c(0, 20)),
aes(x)) +
stat_function(fun = dparetoII,
args = list(scale = 1,
shape = .3),
colour = "royalblue4") +
labs(x = "",
y = "Density") +
theme_classic()
Run the code above in your browser using DataLab