Olá Guilherme, as ideias parecem interessantes, mas suas propostas ainda estão confusas. O principal que me ajudaria a entende-las é o pseudocódigo que não foi feito na proposta B e está mal feito na proposta A. O pseudocódigo é basicamente a descrição verbal do passo-a-passo da sua função, se você não conseguiu escreve-lo para proposta B é porque você ainda não tem clareza do que sua função vai fazer e como vai fazer, né? E o pseudocódigo da proposta A deveria estar detalhado o suficiente para indicar cada passo.

PROPOSTA A

Eu não entendi como você vai fazer para usar o banco de dados existente e gerar uma distribuição para cada combinação de parâmetros. Eu não entendi que distribuição é essa.

Pelo que entendi, você vai usar um banco de dados já conhecido de tempo de coleta, esforço e número de indivíduos para cada combinação dos seus parâmetros local (city, mata, pres) e período do dia (dia, noite, dia-noite). Mas o que me parece é que este dados vão te fornecer o número de indivíduos médio que se consegue coletar por esforço (horas-homem) em cada combinação. Por exemplo, voce tem dados de 20 coletas em city durante o dia, com o tempo gasto e o número de pessoas. basta você padronizar os dados para X indivíduos/hora/pessoa, certo? Daí, se você quer saber o esforço de coletar 100 indivíduos em city durante o dia, vc só precisaria fazer uma regra de 3, se eu coleto X indivíduos em 1 hora com 1 pessoa quantas horas preciso para coletar 100 indivíduos com 1 pessoa? Se a relação for direta, com duas pessoas vc precisa dividir esse tempo por 2. É mais ou menos isso que você quer fazer?

Se sua proposta for mais ou menos essa que eu descrevi, ela está muito simples. porque basta você ter dentro da função os valores de média e desvio padrão do número de indivíduos/hora/pessoa para cada conjunto de parâmetros que a função vai estar pronta.

Acho que se quiser ficar com essa proposta, seria bom pensar melhor em coisas que ela possa fazer de mais desafiador. Ou eu que não entendi bem o que ela faz, e daí preciso que você me ajude e explique melhor.

PROPOSTA B

Pelo que entendi, essa função é bem simples e pode ser feita com uma simples indexação das planilhas de entrada buscando a linha que corresponde ao aluno, separando ela e juntando as colunas para gerar os dados de notas, certo? Depois você faz gráficos para apresentar melhor os resultados. Isso poderia ser feito com poucas linhas de código.

Talvez você devesse pensar em problemas nestas planilhas de disciplinas que possam ser resolvidos ou pelo menos detectados em sua função. Por exemplo, para trazer flexibilidade à função o número de planilhas de disciplinas não deve ser fixo, ou seja, para a turma do 6o ano são 7 disciplinas, mas para o 9o ano são 10, e a função precisa ser capaz de lidar com esse número variável de data.frames que ela vai receber.

Outro problema pode ser nome digitado errado em alguma das planilhas de disciplinas. A sua função vai procurar o nome de “fulaninho” em todas as planilhas, mas em uma vai estar escrito “flaninho”, será que sua função retornará uma mensagem de erro por não encontrar fulaninho em uma das planilhas ou ela é capaz de procurar algo que se pareça com fulaninho assumir que é o mesmo aluno e trazer uma mensagem de aviso sobre esse problema?

E se não houver nota, ou se a nota estiver em uma classe diferente em planilhas diferentes?

Enfim, achei que essa função mesmo sendo simples, pode ter incorporada soluções ou avisos de problemas encontrados nas planilhas das notas, para que ela seja mais bem elaborada e se torne algo mais útil do que fazer um script de manipulação de dados.

Por fim, acho que a função mais desafiadora pra você seria a B, tendo incorporado algumas das sugestões que fiz, ou outras coisas que você veja que podem ser interessantes para tornar a função mais útil para o coordenador. Mas para isso, seria muito importante que você pudesse escrever o pseudocódigo dela!!

Aguardarei nova versão Ok? Qualquer coisa, só me escrever melina.leite@ib.usp.br.

Bom trabalho!

CÓDIGO DA FUNÇÃO - NOTAS

#Pacotes requeridos:

install.packages("dplyr")
install.packages("memisc")
install.packages("grid")
install.packages("gridExtra")

# código da função:

notas <- function(media, aluno="todos") {  # cria a funcao notas com os argumentos "media" e "aluno" cujo padrao e "todos"
  
  #verificando os parametros comuns
  
  if(missing(media)) stop("insira a media utilizada pela escola para criterio de aprovacao") # Se nao existir dados para o argumento media, interrompe a funcao e exibe a mensagem entre aspas
  
  if (media < 0 | media > 10 ) stop("media deve ser um valor entre 0 e 10")# se o valor de media nao estiver entre o intervalo 0 e 10, interrompe a função e exibe a mensagem entre aspas
  
  if(class(media)!="numeric")stop ("media precisa ser da classe numérica") # se os dados utilizados no argumento media não pertencerem a classe numeric, interrompe a funcao e exibe a mensagem entre aspas
  
  if(class(aluno) != "character") stop("aluno precisa ser da classe character") # se as informacoes utilizadas no argumento aluno nao pertencerem a classe character, interrompe a funcao e exibe a mensagem entre aspas
  
  #Abrindo pacotes necessario na funcao  
  library("grid") # torna disponivel para uso o pacote "grid"
  library("gridExtra")# torna disponivel para uso o pacote "gridExtra"
  library("memisc")# torna disponivel para uso o pacote "memisc"
  library("dplyr")# torna disponivel para uso o pacote "dplyr"
  
#### importando tabelas das disciplinas: todas precisam estar em um mesmo diretorio e o diretorio precisa estar indicado como diretorio de trabalho  
  aa <- list.files(path=getwd(), full.names=TRUE, pattern = ".csv")# listando todos os arquivos tipo tabela com extensao .csv 
  
  tabelas <- lapply(aa, read.table, header=TRUE, sep=";") #lendo todas as tabelas do diretorio
  
  tabelas <- as.array(tabelas) #transformando em array para facilitar as operações
  
    for (i in 1:length(tabelas)){ # criando um contador de 1 ate o numero de disciplinas que eu tenho
    
    nome <- paste0("Disciplina", i) # criando objeto nome que e formado por um unico item (char) composto por"Disciplina" e o numero da posicao do contador 
    assign(nome, as.data.frame(tabelas[i])) # usa o objeto nome e aplica a funcao as.data.frame nos dados "tabelas" na posicao [i]
    
  }
  notas <- to.data.frame(tabelas)# cria o objeto notas que é a transformação do objeto tabelas em um data.frame
  
  notas$media <-apply(notas[,4:6],MARGIN =1 , FUN=mean)# cria uma nova coluna que traz o resultado da media das notas ao longo dos bimestres
  
  realizados <-data.frame(c(length(Disciplina1$nome), length(tabelas)),row.names = c("numero de alunos analisados", "numero de disciplinas compuatadas"))# cria o objeto realizados que será utilizado como return da funcao, exibindo a quantidade de alunos e disciplinas computados pela funcao
  
  notasgeral <- as.data.frame(notas[,-2]) # cria o objeto "notasgeral" tranformando o objeto notas sem a coluna das disciplinas em data.frame
  
  if(aluno == "todos") #se argumento aluno for igual a "todos" 
  {
    b <- 1:length(unique(notas[,3])) # faz o for para cada aluno
  }
  
  else                              # caso contrário (ou seja, se alguns alunos forem selecionados)
  {
    if(sum(aluno == levels(notasgeral$nome)) == 0) #primeiro testa se os nomes colocados estão entre alunos da turma
    {
      stop("aluno(s) não econtrado(s). Rever nome(s) incluído(s) no argumento aluno") # Senao, interrompe a funcao e exibe a mensagem entre aspas
      
    }
    
    else #se o nome colocado no argumento for correspondente aos nomes dos alunos, segue
    {
      b <- grep(paste(aluno,collapse="|"),levels(notasgeral$nome)) #seleciona níveis de notasgeral$nome correspondentes aos alunos escolhidos para gerar boletins só pra esses alunos dentro do for
    }
    
  }
  
  for(a in b){ #cria um loop de "a" em "b"
  
    pdf(file = paste0("aluno",a,".pdf"))# estabele acriação de arquivos .pdf para cada aluno dentro do contador "a"
    
    par(mfrow=c(1,1)) # estabele os parametros graficos de 1 unico graifico por tela
    
    hist(notasgeral$media,col = "gray",xlab = "media final",ylab= "N de alunos",breaks= 10, main= "Desempenho geral dos alunos", freq = FALSE, xlim = c(0,10))# gera um histograma que apresent a frequencia em que foram obtidas determinadas notas pelos alunos. 
   
    abline(v=(media), col="red", lwd=5)#Acrescenta uma linha vertical ao histograma de acordo com o valor inserido argumento "media" 
   
    aluno <-filter(notas,nome==unique(notas[,3])[a])#  gera um nome objeto apenas com as informacoes referentes ao nome do aluno
   
    notasaluno <-as.matrix(aluno[,4:8])#cria o objeto notasaluno que trasnforma em matrix o objeto aluno mantando apenas as colunas numericas par permitir a operação seguinte
   
    dotchart(notasaluno,labels = row.names(notasaluno), main = unique(notas[,3])[a], xlab ="notas", color= c("red","black","darkgreen","purple","darkorange","gray"),cex = 0.7, pch=2, xlim =range(0:10))# cria um dotchart da matrix "notasalunos" que apresenta a evolução do aluno em cada disciplina para todos os bimestres
   
    abline(v=(media), col="red", lwd=3, lty=3)# Acrescenta uma linha ao dotchart de acordo com o valor inserido no argumento "media"
   
    notasaluno2 <- as.data.frame(aluno)# cria o objeto "notasaluno2" que retorna o objeto aluno para o formato data.frame facilitando a próxima operação
   
    legend("bottomleft",legend =notasaluno2$disciplina, cex=0.6,bty="L", fill= c("red","black","darkgreen","purple","darkorange","gray"))# Acrescenta uma legenda ao dotchart de acordo com os nomes das disciplinas do objeto "notasaluno2"  
   
    grid.newpage()# Permite a criação de uma nova página para a plotagem da tabela a seguir
   
    grid.table(aluno[,-3])# plota uma tabela do objeto aluno excluíndo o nome do mesmo, uma vez que esse já estará no documento
   
    dev.off() ## fecha o dispositivo pdf
  }
  
    return(realizados) #retorna o objeto "realizados" que informa ao usuário quantas disciplinas e quantos alunos foram utilizados para realizar a função
}

HELP DA FUNÇÃO - NOTAS

notas                package:unknown                R Documentation


  Análise de desempenho escolar 


Description:


  Função utilizada para verificar desempenho escolar de turmas e/ou desempenho individual de alunos a partir de 
  planilhas de notas de diferentes disciplinas. A função gera documentos em .pdf de acordo com a quantidade de 
  aluno que se deseja verificar o desempenho. Esse documento possuí gráficos (histograma e dotchart) e uma tabela 
  que auxiliam na análise dos resultados escolares ao longo dos bimestres. em cada disciplina inserida na função.

Usage:

  notas(media, aluno) 

Arguments:

  media: Número pertencente ao intervalo (0-10) que adiciona uma linha vertical nos gráficos gerados 

  aluno: Um caráter que deve corresponder aos nomes utilizados nas planilhas de entrada. Argumento tem por padrão 
  “todos” que utiliza todos os nomes de alunos de acordo com as planilhas de entrada. 

Value:

  Retorna um data.frame e (n)documentos em pdf:

  Data frame:

  Linha 1-mostra a quantidade de alunos que foi utilizado para os cálculos de comparação de notas (“desempenho dos 
  alunos”)

  Linha 2- mostra a quantidade de disciplinas que foram utilizadas para realizar os calculos

  Documento pdf:
  Será salvo no diretório de trabalho do usuário

Warning:
  
  Para que a função rode perfeitamente é recomendado que as planilhas de entrada tenham comprimentos de colunas 
  iguais. O modelo ideal têm 6 colunas, sendo a primeira com o nome da disciplina, a segunda com nome dos alunos e 
  as 4 seguintes com notas de cada bimestre.
  
  As planilhas devem estar na pasta que está selecionada como diretório de trabalho atual da sessão do R
  
  Para quantidades grandes de planilhas ou planilhas com muitos nomes de alunos a função pode requerer alguns 
  minutos até ser finalizada.

Details

  Os arquivos que servirão de entrada devem estar no diretório de trabalho. Os arquivos devem estar na extensão 
  .CSV e utilizar o espaçador ”;”. 

  Os arquivos resultantes da operação da função serão salvos no formato .pdf na mesma pasta que estavam as 
  planilhas de entrada. Serão nomeadas de acordo com o número do aluno na planilha inicial, que deve corresponder 
  ao número de chamada.

  A primeira página contendo um histograma de desempenho geral da turma em relação à média escolar.

  A segunda página, o desempenho do aluno específico com os resultados escolares de todas as disciplinas analisadas 
  em 4 bimestres e também a média final de cada disciplina.

  A terceira página com uma tabela, que equivale ao boletim escolar sumarizando o desempenho das disciplinas ao 
  longo dos bimestres.

  Se o usuário utilizar mais de um nome de aluno ao mesmo tempo a função irá apresentar um aviso que diz que o 
  argumento “media” não está rodando para o padrão “todos” mas utilizou apenas o primeiro nome inserido na função. 
  Os documentos serão gerados normalmente.

Author:

  Guilherme Ferreira Pagoti
  e-mail: guilherme.pagoti@usp.br

Examples:

# exemplo com um valor para média, mas sem especificar o argumento aluno.
  notas(5)

# Exemplo com um valor para média, especificando um aluno que se deseja obter o documento
  notas(7,”Ana”)

# Exemplo com um valor para média, especificando um grupo de aluno que se deseja obter os documentos
  notas(6, c(“Breno”,”Gustavo”,”Silvia”))

Planilhas exemplo para teste da função:

espanhol.csv

filosofia.csv

historia.csv

matematica.csv

quimica.csv