Rでローレンツ曲線をグラフ化テンプレート


tags: rBasicLearning

Rでローレンツ曲線をグラフ化テンプレート

1. テンプレート

Rでローレンツ曲線をグラフ化するテンプレートを, 以下に作りました.
よろしければ、使ってください!
(LCは'Lorenz Curve'から持ってきました)

LC = function(a, b){
  df <- data.frame(a, b)
  Graph <- ggplot(df, aes(x = a, y = b)) + 
    geom_line(color = 'blue')+
    geom_line(data = data.frame(x=(0:100)/100), aes(x = x, y = x),
              linetype = 'dotted', color = 'red', size=1)
  plot(Graph)
}

2. 具体例

使うデータ

alpha <- c(0.000, 0.682, 0.854, 0.963, 0.982, 0.993, 0.999, 0.999, 1.000, 1.000)
beta <- c(0.000, 0.194, 0.341, 0.568, 0.663, 0.767, 0.884, 0.919, 0.953, 1.000)

グラフへ出力

LC(alpha, beta)