Designed to be an SVG version of Pareto_distributionPDF.png.  It's generated in R and made slightly more minimal that the original, but otherwise the same.
Source Code

pal &lt;- c("black", "tomato", "royalblue", "darkgreen")
svg("dpareto.svg", 4, 4, family="Myriad Pro")
par0 &lt;- par(mar=c(4,4,0,0)+0.5)
plot.new(); plot.window(c(0,5), c(0,3))
lines(c(1,1,1e6), c(1e6,0,0), col=pal[[1]]) # hack to make Infinity visible
curve(VGAM::dpareto(x, 1, 3), exp(1e-10), 6, add=T, n=201, col=pal[[2]])
curve(VGAM::dpareto(x, 1, 2), exp(1e-10), 6, add=T, n=201, col=pal[[3]])
curve(VGAM::dpareto(x, 1, 1), exp(1e-10), 6, add=T, n=201, col=pal[[4]])
points(c(1,1,1),3:1, col=pal[-1], pch=20)
axis(1); axis(2); box(bty="l")
title(xlab="x", ylab="Density")
legend("topright", expression(kappa==infinity,kappa==3,kappa==2,kappa==1), lty=1, col=pal, bty="n", inset=0.1)
par(par0)
dev.off()
Own work
Sam Mason