r - 如何为R中的因子绘制漂亮的Lorenz曲线(ggplot？)

我需要一个关于不同因素的不同分布的漂亮图。仅有package(ineq)的标准方法似乎足够灵活。

但是，它不允许我在课堂上加点(请参阅下面的评论)。看到它们很重要，最好单独命名。这可能吗？

Distr1 <- c( A=137, B=499, C=311, D=173, E=219, F=81)
Distr2 <- c( G=123, H=400, I=250, J=16)
Distr3 <- c( K=145, L=600, M=120)

library(ineq)
Distr1 <- Lc(Distr1, n = rep(1,length(Distr1)), plot =F)
Distr2 <- Lc(Distr2, n = rep(1,length(Distr2)), plot =F)
Distr3 <- Lc(Distr3, n = rep(1,length(Distr3)), plot =F)

plot(Distr1,
     col="black",
     #type="b",      # !is not working
     lty=1,
     lwd=3,
     main="Lorenz Curve for My Distributions"
     )

lines(Distr2, lty=2, lwd=3)
lines(Distr3, lty=3, lwd=3)

legend("topleft",
       c("Distr1", "Distr2", "Distr3"),
       lty=c(1,2,3),
       lwd=3)

这就是现在的样子

最佳答案

为了显示问题，只需要Distr1即可；最好在发布前先精简。

library(ineq)
Distr1 <- c( A=137, B=499, C=311, D=173, E=219, F=81)

Distr1 <- Lc(Distr1, n = rep(1,length(Distr1)), plot =F)
plot(Distr1$p,Distr1$L,
     col="black",
     type="b",      # it should be "b"
     lty=1,
     lwd=3,
     main="Lorenz Curve for My Distributions"
)

关于r - 如何为R中的因子绘制漂亮的Lorenz曲线(ggplot？)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/22679493/