The weekend graph didnt show up as the code. How to print both graph : weekdays and weekend respectively
<p>Here's [a link for the data from the github called activity.csv]: <a href="https://github.com/sefakilic/coursera-repdata/blob/master/project1/activity.csv" rel="nofollow">https://github.com/sefakilic/coursera-repdata/blob/master/project1/activity.csv</a></p>

<p><strong>The task is to print out the two graphs showing the different pattern between weekdays and weekend``
but there is only one graph about weekdays shown after running this code</strong> </p>

<pre><code>    data &lt;- read.csv("activity.csv", header = TRUE, sep = ',', colClasses = c("numeric", "character",
                                                                       "integer"))

data&lt;- data_full 



data_full &lt;- mutate(data_full, weektype = ifelse(weekdays(data_full$date) == "Saturday" | weekdays(data_full$date) == "Sunday", "weekend", "weekday"))
data_full$weektype &lt;- as.factor(data_full$weektype)
head(data_full)
##       steps       date interval weektype
## 1 1.7169811 2012-10-01        0  weekday
## 2 0.3396226 2012-10-01        5  weekday
## 3 0.1320755 2012-10-01       10  weekday
## 4 0.1509434 2012-10-01       15  weekday
## 5 0.0754717 2012-10-01       20  weekday
## 6 2.0943396 2012-10-01       25  weekday

interval_full &lt;- data_full

  group_by(interval, weektype)

  summarise(steps = mean(steps))


s &lt;- ggplot(interval_full, aes(x=interval, y=steps, color = weektype)) +
  geom_line() +
  facet_wrap(~weektype, ncol = 1, nrow=2)

print(s)
</code></pre>