## 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