Cacher is the code snippet organizer for pro developers

# Pipe command
library(magrittr)

# Library Dplyr
library(dplyr)

# Conditional means
pf.fc_by_age <- pf %>% 
                  group_by(age) %>% 
                  summarise(friend_count_mean = mean(friend_count),
                            fiend_count_median = median(friend_count),
                            n = n()) %>% 
                  arrange(age)
ggplot(pf.fc_by_age, aes(x = age, y = friend_count_mean)) +
  geom_line()