```r
nested_data <- words_by_time %>%
  nest(-word, -person) 

nested_data
```

```
## # A tibble: 32 x 3
##    person word    data             
##    <chr>  <chr>   <list>           
##  1 David  #rstats <tibble [12 x 4]>
##  2 David  broom   <tibble [10 x 4]>
##  3 David  data    <tibble [12 x 4]>
##  4 David  ggplot2 <tibble [10 x 4]>
##  5 David  time    <tibble [12 x 4]>
##  6 David  tweets  <tibble [8 x 4]> 
##  7 Julia  #rstats <tibble [12 x 4]>
##  8 Julia  blog    <tibble [10 x 4]>
##  9 Julia  data    <tibble [12 x 4]>
## 10 Julia  day     <tibble [12 x 4]>
## # ... with 22 more rows
```