sample code for grouping

df <- 
      df %>%
      group_by( ein ) %>% 
      mutate( num.ceos = sum( grepl( "CEO", title.standard ) ),
              pay.rank = rank(TOT.COMP)
              pay.pct = TOT.COMP/max(TOT.COMP, na.rm=T) ) %>% 
      ungroup()

    # number of DTKs  n=n()
    # pay rank
    # pay pct total
    # hour rank 
    # hour pct total
    # number of paid members?  # what is paid? more than zero, or more than X?
    # number of FTE members?   # FTE is hours > 30 
    # number of ceos 
    # number of board pres
    # number of board treas
    # number of board sec
    # number of board members
    ### rev > X?

Nonprofit-Open-Data-Collective / titleclassifier

sample code for grouping #4