%>%是管道函数，功能是把左件的值发送给右件的表达式，并作为右件表达式函数的第一个参数。

max_data = thedataframe %>%
      group_by(type) %>%
      filter(data == max(data)) %>%
      ungroup()

将数据框thedataframe根据type列进行分类，并得到每一类中最大的data，形成新的数据框。