setwd('~/Rcodes/')

bolsa <- read.table('bolsas', sep = ',', header = T)
bolsa
cpf_l <- list()
nome_l <- list()
quant_l <- list()
media_l <- list()
total_l <- list()

for (i in unique(bolsa$CPF)) {
  tmp <- bolsa[bolsa$CPF == i, ]
  cpf_l[[paste0(i)]] <- i
  nome_l[[paste0(i)]] <- unique(tmp$Nome)
  quant_l[[paste0(i)]] <- nrow(tmp)
  media_l[[paste0(i)]] <- mean(tmp$Valor)
  total_l[[paste0(i)]] <- sum(tmp$Valor)
}

df_final <- data.frame(CPF=unlist(cpf_l), Nome= unlist(nome_l), Quantidade_Parcelas= unlist(quant_l), Valor_Mes= unlist(media_l), Valor_Ano= unlist(total_l))
df_final

write.table(df_final, file = "Tabela_bolsas_alunos.txt", 
            sep = '\t', quote = F, row.names = F)