Question

这是[来自github的数据的链接，名为activity.csv]：https://github.com/sefakilic/coursera-repdata/blob/master/project1/activity.csv

任务是打印两张图，显示工作日和周末之间的不同模式但是运行此代码后只显示了一个关于工作日的图表

    data <- read.csv("activity.csv", header = TRUE, sep = ',', colClasses = c("numeric", "character",
                                                                       "integer"))

data<- data_full 



data_full <- mutate(data_full, weektype = ifelse(weekdays(data_full$date) == "Saturday" | weekdays(data_full$date) == "Sunday", "weekend", "weekday"))
data_full$weektype <- 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 <- data_full

  group_by(interval, weektype)

  summarise(steps = mean(steps))


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

print(s)

Answer 1

运行后，您的代码出现了一些问题。

首先，您通过# END错误地将data_full（空）分配给数据。

其次，您尝试使用data <- data_full，而无需先使用weekdays()将日期从字符转换为日期。

第三，你的步骤计算是关闭的 - 它不应该超过800.这会导致你的图表被剔除。这可能与处理输入值的方式有关。我不会试着为你解决这个问题。查看鼠标包以获得如何处理插补值的完整选择。

周末图表没有显示为代码。如何打印两个图表：分别为工作日和周末

1 个答案: