R：ggplot：プロットは時間経過の代わりに垂直線を示します

Question

私は、2つのグループについて6日間以上の心配期間の時間経過を示す簡単なプロットを得ようとしています。しかし、タイムコースを示す線ではなく、縦線が表示されます。

これは私のデータは次のようになります。私は、しかし

p <- ggplot(alldays_dur, aes(x=Day, y=Worry_duration, group=1)) + 
    geom_line() + 
    labs(x = "Day", 
    y = "Mean worry duration in minutes per day") 
print(p) 

：これは私が次のコードを試してみました私のデータ

> str(alldays_dur) 
'data.frame': 2620 obs. of 10 variables: 
$ ParticipantID : num 113 113 113 113 113 113 113 113 113 113 ... 
$ Session  : num 9 10 11 12 14 15 16 21 22 24 ... 
$ Day   : Factor w/ 6 levels "1","2","3","4",..: 2 2 2 2 2 2 2 3 3 
$ Time   : num 37350 42862 47952 51555 61499 ... 
$ Worry_duration: num 5 5 5 5 10 0 5 5 5 5 ... 
$ group   : Factor w/ 2 levels "Intervention group",..: 1 1 1 1 1 1 

の構造である

> head(alldays_dur) 
      ParticipantID Session  Day Time Worry_duration group 
1    1    2   1  71804  15  intervention 
2    1    4   1  56095  5  intervention 
3    2    2   1  36739  15  intervention 
4    2    4   1  45013  10  intervention 
5    2    5   1  51026  5  intervention 

次のプロットを取得します。plot

このトピックに関するいくつかの以前の記事を読んだ後で、コードにgroup = 1を含めました。しかし、それは私が望むように私を助けませんでした。 多分あなたに役立つヒントがありますか？前もって感謝します。

ps。投稿が何らかの形で不明確な場合はごめんなさい、これは初めてstackoverflowに投稿したので、まだすべての '投稿後オプション'にはあまりよく慣れていません。

Answer 1

あなたは、例えばddplyで、最初に自分のデータを要約する必要があります。

require(plyr) # ddply 
require(ggplot2) # ggplot 

# Creating dataset 
raw_data = data.frame(Day = sample(c(1:6),100, replace = T), 
        group = sample(c("group_1", "group_2"),100, replace = T), 
        Worry_duration = sample(seq(0,30,5), 100, replace = T)) 

# Summarize 
DF = ddply(raw_data, c("Day", "group"), summarize, 
      Worry_duration.mean = mean(Worry_duration, na.rm = T)) 

# Plot 
ggplot(DF, aes(x = Day, y = Worry_duration.mean, group = group, color = group)) + 
geom_line()+ xlab("Day") + ylab("Mean worry duration in minutes per day")