x軸の経時的な複数レベルのインジケータをプロットする線グラフ

Question

私は600人の回答者のデータセットを持っています。回答者ごとに、私は、折れ線グラフを使って指標のレベルを経時的に追跡したいと思っています。指標は0,1,2,3,4の5つのレベルに分かれており、私は4年間、2014年、2015年、2016年、2017年の指標を持っています。 y軸上のサンプル番号と1行指標のレベルを示す4つの期間にわたる各回答者を表す。どのようにこれを可能にすることができますか？私はあなたの助けに感謝します！ 私は、収入変数の所得のデシールを使って、このグラフをさらに詳しく説明したいと思います。

サンプルデータフレーム：

df <- data.frame(c(1:5), c(0, 1, 0, 2, 2), c(1, 2, 2, 4, 4), c(2, 3, 3, 4, 4), c(3,3,3,4,4), c(10000, 200000, 15000, 40000, 350000) 
colnames(df) <- c("sample_no", paste("indicator_level_", 14:17, sep=""), "annual_income") 

Answer 1

は、これはあなたに受け入れられるだろうか？私だけのための行の数分位数に基づいて（代わりに10の）3つの異なるクラスタを使用

library(ggplot2) 
library(dplyr) 
library(tidyr) 
library(magrittr) 

。

df2 <- df %>% 
    mutate(quantile = ntile(annual_income, 3)) %>% 
    gather(indicator_level_14, indicator_level_15, indicator_level_16, indicator_level_17, 
     key = "Indicator", value = "Value") 


ggplot(df2, aes(x = Indicator, y = Value, color = as.factor(sample_no))) + 
    geom_line(aes(group = sample_no)) + 
    facet_wrap(~quantile) + 
    theme(axis.text.x = element_text(angle = 50, hjust = 1)) + 
    labs(color = "Sample")