expanded count to include words, return R plots