r 计算管道的步骤（基本片段）

Posted 2021-05-24

perDayStepsNew <- newActData %>% group_by(date) %>%
                  summarise(total.Steps = sum(steps, na.rm = T),
                            mean.Steps = mean(steps, na.rm = T)) 

newActData$day <- ifelse(weekdays(newActData$date) %in% c("Saturday", "Sunday"), "weekend", "weekday")

weekday <- newActData %>% filter(day == "weekday")
weekend <- newActData %>% filter(day == "weekend")

weekend <- weekend %>%
      group_by(interval) %>%
      summarize(mean.steps = mean(steps)) 
weekend$day <- "weekend"

weekday <- weekday %>%
      group_by(interval) %>%
      summarize(mean.steps = mean(steps)) 
weekday$day <- "weekday"

completeWeek <- rbind(weekday, weekend)

g <- ggplot (completeWeek, aes (interval, mean.steps))
g + geom_line() + facet_grid (day~.) + theme(axis.text = element_text(size = 12), axis.title = element_text(size = 14))

perDaySteps$data <- 'old'
perDayStepsNew$data <-  'new'
bothActTogether <- rbind(perDaySteps,perDayStepsNew)

ggplot(bothActTogether, aes(total.Steps, fill = data)) + geom_histogram(alpha = 0.2)

statDiff <- matrix(nrow=2, ncol=2, 
dimnames=list(c("oldSteps","newSteps"),c("mean","median")))

statDiff[1,1] = mean(perDaySteps$total.Steps, na.rm = T)
statDiff[1,2] = median(perDaySteps$total.Steps, na.rm = T)
statDiff[2,1] = mean(perDayStepsNew$total.Steps, na.rm = T)
statDiff[2,2] = median(perDayStepsNew$total.Steps, na.rm = T)
statDiff