<p>The only relation I see is that they are both named after <a href="https://en.wikipedia.org/wiki/Vilfredo_Pareto" rel="nofollow">Vilfredo Pareto</a>. The Pareto curve is related to efficiency, and I see no way of connecting the Pareto chart to the same concept. Since Pareto was an engineer before becoming an economist, it seems most likely to me that its just that two distinct techniques from two different fields were named after him. I suppose you could use a Pareto chart as a tool to make efficient engineering decisions, so they are minimally related.</p>

CC BY-SA 3.0
2016-02-26T18:50:13.367Z
2016-02-26T18:50:13.367Z
Shane
<p>You can use R to to draw a Pareto curve. Here is a useful <a href="http://statmath.wu.ac.at/~hornik/QFS1/pareto-vignette.pdf" rel="nofollow noreferrer">vignette</a> using the package <code>VGAM</code>.</p>

<pre><code>require("VGAM")
x &lt;- seq(0.1, 10, length = 1000)
plot(x, dpareto(x, scale = 1, shape=1), type = "l"
      , xlab = "x", ylab = "dpareto(x)"
      , main = "Pareto Probability Density") 
lines(x, dpareto(x, scale = 1, shape=.5), col = "red") 
lines(x, dpareto(x, scale = 1, shape= .2), col = "blue")
</code></pre>

<p>Gives the following plot
<a href="https://i.sstatic.net/nV4xK.png" rel="nofollow noreferrer"><img src="https://i.sstatic.net/nV4xK.png" alt="enter image description here"></a></p>

<p>Another way using the package <code>Runuran</code></p>

<pre><code>require(Runuran)
# Create distribution object for Pareto distribution:
distr &lt;- udpareto(k=1,a=4)
# Generate generator object; use method PINV (inversion)
gen &lt;- pinvd.new(distr)
# Draw a sample of size 100000
x &lt;- ur(gen,100000)
# returns the density data
plot(density(x), xlim=c(0,5)
               , xlab = "x", ylab = "dpareto(x)"
               , main = "Pareto Probability Density")
</code></pre>

CC BY-SA 3.0
2016-02-28T00:05:00.450Z
2016-02-28T08:39:05.267Z
2016-02-28T08:39:05.267Z
emeryville
<p>I was searching online for some notes on how to draw a Pareto curve on income distribution. That's when I came across Pareto chart which is a bar diagram and is used in quality control. 
Are these the same and are both curves drawn using the same method? 
Kindly help.</p>

CC BY-SA 3.0
2016-02-27T05:06:39.933Z
Otherwise, are you still looking on how to draw a Pareto curve? I may have an answer for this if required.
emeryville
CC BY-SA 3.0
2016-02-27T20:21:01.483Z
Thank you. Would you please tell me how to draw a Pareto curve?
Harry
<statistics>
Pareto curve vs Pareto chart
Harry
# Pareto curve vs Pareto chart

(Asked by: username_0 on 2016-02-26)

I was searching online for some notes on how to draw a Pareto curve on income distribution. That's when I came across Pareto chart which is a bar diagram and is used in quality control.
Are these the same and are both curves drawn using the same method?
Kindly help.

**Tags:** statistics

> **Comments:**
> **username_1**: Otherwise, are you still looking on how to draw a Pareto curve? I may have an answer for this if required.  
> **username_0**: Thank you. Would you please tell me how to draw a Pareto curve?  

---

## 2 answers

### Answer by username_2 on 2016-02-26. Score: 3

The only relation I see is that they are both named after [Vilfredo Pareto](https://en.wikipedia.org/wiki/Vilfredo_Pareto). The Pareto curve is related to efficiency, and I see no way of connecting the Pareto chart to the same concept. Since Pareto was an engineer before becoming an economist, it seems most likely to me that its just that two distinct techniques from two different fields were named after him. I suppose you could use a Pareto chart as a tool to make efficient engineering decisions, so they are minimally related.


---

### Answer by username_1 on 2016-02-28. Score: 2

You can use R to to draw a Pareto curve. Here is a useful [vignette](http://statmath.wu.ac.at/~hornik/QFS1/pareto-vignette.pdf) using the package `VGAM`.

```
require("VGAM")
x <- seq(0.1, 10, length = 1000)
plot(x, dpareto(x, scale = 1, shape=1), type = "l"
      , xlab = "x", ylab = "dpareto(x)"
      , main = "Pareto Probability Density") 
lines(x, dpareto(x, scale = 1, shape=.5), col = "red") 
lines(x, dpareto(x, scale = 1, shape= .2), col = "blue")

```

Gives the following plot
[![enter image description here](https://i.sstatic.net/nV4xK.png)](https://i.sstatic.net/nV4xK.png)

Another way using the package `Runuran`

```
require(Runuran)
# Create distribution object for Pareto distribution:
distr <- udpareto(k=1,a=4)
# Generate generator object; use method PINV (inversion)
gen <- pinvd.new(distr)
# Draw a sample of size 100000
x <- ur(gen,100000)
# returns the density data
plot(density(x), xlim=c(0,5)
               , xlab = "x", ylab = "dpareto(x)"
               , main = "Pareto Probability Density")

```


---

