stat_summary（ggplot）を使用してグラフ上の異なる変数をスタックする

Question

コンテキスト：私は、実験中の時間の経過に伴うワークロードと信頼の進化をグラフィカルに比較したいと思います。時間は2ブロックで表されます。

問題：進化を比較するために、同じグラフに異なる単位で異なる変数をプロットしようとしています。私はgeom_lineで動作することがわかりましたが、stat_summaryでは動作しません。

データ：xは時間を表す「ブロック」（2ブロック）です。 yに使用される変数は、 "Workload"と "Trust"（両方とも1から5であり、主語を求めることによって得られる）である。 は、いくつかのデータを与えるために：

data = data.frame("Subject" = c(1,1,2,2,3,3), "Block" = c(1,2,1,2,1,2), "Workload" = c(1,5,2,4,3,3), "Trust" = c(4,1,3,2,2,1)) 

私はこれを試してみましたが、それは動作します：私は複数のポイントを持っているので、それはそのように各値のためにそれらをリンクします。それは説得力が結果を生成しません。しかし

ggplot(data, aes(Block)) + geom_line(aes(y = Trust)) + geom_line(aes(y = Workload)) 

私は垂直な特徴しか得ていない。そして、geom_lineが何をすべきかを考えれば、それは完全に正常です。 だから私はまだstat_summaryとの直接の結果を得ることが可能である場合しかし、私はのようなものを使用して、思っていた、各ブロックの平均値と各変数を計算することができます

ggplot(data, aes(Block)) + stat_summary(fun.y = mean, geom = line, aes(y = Trust)) + stat_summary(fun.y = mean, geom = line, aes(y = Workload)) 

は少しでも捧げ誰いただきありがとうございますその時間に答えようとしています。

楽しい一日を！

Pyxel

Answer 1

私はプロットする前に、あなたのデータをまとめたお勧めします。ここで考えてみましょう：

library(tidyverse) 
df <- data_frame("Subject" = c(1,1,2,2,3,3), 
       "Block" = c(1,2,1,2,1,2), 
       "Workload" = c(1,5,2,4,3,3), 
       "Trust" = c(4,1,3,2,2,1)) 
grouped <- 
    df %>% 
    group_by(Block) %>% 
    summarise(trust = mean(Trust), 
      workload = mean(Workload)) 

ggplot(grouped, aes(x = Block)) + 
    geom_line(aes(y = trust)) + 
    geom_line(aes(y = workload))