Different Quantiles

[nithinmkp]

Can the plot be made with different quantiles? say 20% or with 10% bins?

[cortinah]

I don't think gglorenz package can help you with this. But you could try something like this:

library(gglorenz)
data("billionaires")

q <- quantile(billionaires$TNW, seq(0, 1, 0.1))
q <- as.data.frame(q)
q$n <- as.numeric(sub("%","", rownames(q)))/100

q$q <- cumsum(q$q)/sum(q$q)

ggplot(q, aes(x=n,y=q)) +geom_path()

[nithinmkp]

Thanks Hernando for the solution. Why I preferred "gglorenz" was that I could have got the shaded region between line of equality and lorenz curve!! Is there a solution to do this too? Thanks and Regards, Nithin

…

On Sat, Sep 19, 2020 at 10:48 AM Hernando Cortina ***@***.***> wrote: I don't think gglorenz package can help you with this. But you could try something like this: `library(gglorenz) data("billionaires") q <- quantile(billionaires$TNW, seq(0, 1, 0.1)) q <- as.data.frame(q) q$n <- as.numeric(sub("%","", rownames(q)))/100 q$q <- cumsum(q$q)/sum(q$q) ggplot(q, aes(x=n,y=q)) +geom_path()` — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <#7 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/APQKHSZHZX6WYSM5DKQ2AUTSGQ5LBANCNFSM4RPAM5CQ> .

[cortinah]

ggplot(q, aes(x=n,y=q)) +geom_path() +geom_polygon()

[nithinmkp]

Thanks hernando :)

…

On Sat, Sep 19, 2020 at 7:02 PM Hernando Cortina ***@***.***> wrote: ggplot(q, aes(x=n,y=q)) +geom_path() +geom_polygon() — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <#7 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/APQKHS4XHYINTVEEJR55O7LSGSXGTANCNFSM4RPAM5CQ> .