patricia_ruggiero.pdf exec

pruggiero_exer01.r aula4_exerc01.r aula4_exerc02.r aula4_exerc03.r aula4_exerc04.r pruggiero_exerc4.rtf pruggiero_exerc5.rtf aula7_exerc02.r aula7_exerc2-5.r aula7b_exercicios.r aula8_exerc_palmito.r aula9_exerc02.r aula9_exerc03.r

Plano A: Função CARDAPIO

Se você mantém uma casa onde pessoas, e especialmente crianças almoçam e jantam todos os dias, uma das suas funções semanais é montar um cardápio completo e balanceado para cada dia da semana. Isso requer que você pense, organize e seja criativo (!) nas escolhas das receitas TODAS as semanas. Essa função repetitiva toma tempo da sua semana (já ocupada de tarefas!), pode se tornar cansativa e por fim você pode acabar gerando cardápios monótonos, sempre muito parecidos. A função CARDAPIO irá montar um cardápio para cada dia da semana a partir de um dataframe com as receitas elencadas por você. Para que a função CARDAPIO possa rodar, as receitas devem ser indexadas pela posição no cardapio (por exemplo: entrada, prato principal, acompanhamento) e pelo tipo principal de ingrediente (por exemplo: carne vermelha, frango, peixe, ovo, legume verde, legume vermelho/amarelo, carboidrato). Com isso, a função CARDAPIO irá montar cinco combinações (para segunda-feira, terça-feira, quarta-feira, quinta-feira e sexta-feira; sábado e domingo vamos deixar a vida rolar mais solta!) tomando como parâmetros as escolhas que você faz sobre: 1) as posições (quantas entradas, pratos principais e acompanhamentos por dia) e 2) sobre os tipos de ingredientes (quanta carne vermelha, peixe, legumes, carboidrato na semana). Cada receita somente pode aparecer em uma das cinco combinações. A função tem como saída um objeto do tipo lista contendo cinco listas, cada uma apresentando a combinação de cada dia. A lista de saída (com as cinco combinações) será nomeada com a data e a hora em que as combinações foram geradas. Adicionalmente, a função CARDAPIO vai comparar a lista recém gerada com uma lista indicada por você (cardápio da semana passada) para checar se há sobreposição de receitas. A função irá informar o número de receitas que se repetem nos dois cardápios para que você decida se quer gerar novo cardápio ou se está satisfeito com a combinação apresentada. E bom apetite!

Obs: aqui em casa, a função CARDAPIO já está sendo aguardada ansiosamente.

Plano B: Função CAM (Conta de Água Monitorada - uma referência às plantas do tipo CAM, eficientes na economia de água)

Em tempos sombrios de escassez de água, muito estresse social pode ser gerado entre usuários deste recurso. Se você mora em casa ou em prédio que tem contador de água individual, ótimo!, você pode controlar o seu gasto acompanhando o girar do relógio. Porém, se você mora em prédio onde o contador de água é coletivo, é muito difícil saber quanto você gasta e quanto o vizinho gasta e, portanto, discutir e promover a economia de água. A função CAM (Conta de Água Monitorada) irá calcular o gasto de água estimado da sua habitação com base em informações fornecidas por você sobre: 1) o número de pessoas na habitação e o tempo médio de banho de cada pessoa, 2) o tempo total diário de torneira corrente, 3) número de vezes que a máquina lava-roupa é acionada, e 4) número de vezes que a máquina lava-louças é acionada. As informações 1, 2, 3 e 4 serão fornecidas na forma de vetores e a função CAM calculará o gasto estimado de água no mês, considerando o número de dias do mês calculado. A saída, portanto, é um vetor com um valor contendo a estimativa em metros cúbicos para o gasto da sua habitação. Com este valor estimado, e considerando que todas as habitações do seu condomínio economizaram água como você, a função CAM poderá calcular uma estimativa para a conta de água total do condomínio e comparar com o gasto real fornecido por você. A saída desta comparação é um histograma com os dois valores – um excelente material para a sua próxima reunião de condomínio!

Help da Função

Código da Função

cardapio <- function(receitas, cardapio.anterior=data.frame()) 
  {
  #Indexação das receitas do data.frame por tipo e ingrediente
  carne<-receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="carne",1] #cria objeto só com prato principal de carne
  ave<-receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="ave",1] #cria objeto só com prato principal de ave
  peixe<-receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="peixe", 1] #cria objeto só com prato principal de peixe
  porco<-receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="porco",1] #cria objeto só com prato principal de porco
  veggie<-receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="veggie",1] #cria objeto só com prato principal vegetariano
  arroz<-receitas[receitas$ingrediente=="arroz", 1] #cria objeto só com os pratos de arroz
  grao<-receitas[receitas$ingrediente=="grao", 1] #cria objeto só com os pratos de grao(feijões)
  verde<-receitas[receitas$ingrediente=="verde", 1] #cria objeto só com os acompanhamentos de ingredientes verdes
  outro<-receitas[receitas$ingrediente=="outro", 1] #cria objeto com acompanhamentos classificados como 'outro'
  acomp.legs<-c(receitas[receitas$ingrediente=="verde", 1], receitas[receitas$ingrediente=="outro", 1]) #cria objeto só com os acompanhamentos 'verde' + 'outro'
  entrada<-receitas[receitas$tipo=="entrada", 1] #cria objeto só com as entradas
  unico<-receitas[receitas$tipo=="prato unico", 1] #cria objeto só com os pratos unicos
  
  #Primeira interação com o usuário
  cat("Vamos montar seu cardápio!") #começando a interação com uma afirmação na tela
  dieta<-readline("Você deseja um cardápio vegetariano?") #pergunta na tela
  
  if(substr(dieta, 1, 1)=="s") #para o caso do usuário responder 'sim'(ou qualquer palavra que comece com 's')
    {
    #verifica se o usuário tem pelo menos 5 opcoes de prato principal vegetariano no data.frame das receitas
    if(length(receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="veggie", 3])<5) 
      stop("Você deve ter ao menos 5 opções de receitas veggie como prato principal.") #interrompe a função e informa o usuário caso a condição não se cumpra
    
    #Sorteio das receitas para um cardápio vegetariano
    pp.veggie<-sample(veggie, size=5, replace=F) #sorteio sem repetir o prato principal
    ac.arroz<-sample(arroz, size=5, replace=T) #sorteio do arroz permite repetição
    ac.grao<-sample(grao, size=5, replace=T) #sorteio do grao permite repetição
    ac.outro<-sample(acomp.legs, size=5, replace=F) #sorteio do acompanhamento sem repetir a receita
    ac.entrada<-sample(entrada, size=5, replace=T) #sorteio da entrada permite repetição
    
    #Montagem do cardápio vegetariano
    segunda<-c(ac.entrada[1], pp.veggie[1], ac.arroz[1], ac.grao[1], ac.outro[1]) #objeto cardapio da segunda-feira é feito com as receitas na posição[1]
    terca<-c(ac.entrada[2], pp.veggie[2], ac.arroz[2], ac.grao[2], ac.outro[2]) #objeto cardapio da terça-feira é feito com as receitas na posição[2]
    quarta<-c(ac.entrada[3], pp.veggie[3], ac.arroz[3], ac.grao[3], ac.outro[3]) #objeto cardapio da quarta-feira é feito com as receitas na posição[3]
    quinta<-c(ac.entrada[4], pp.veggie[4], ac.arroz[4], ac.grao[4], ac.outro[4]) #objeto cardapio da quinta-feira é feito com as receitas na posição[4]
    sexta<-c(ac.entrada[5], pp.veggie[5], ac.arroz[5], ac.grao[5], ac.outro[5]) #objeto cardapio da sexta-feira é feito com as receitas na posição[5]
    cardapio.semana<-data.frame(segunda, terca, quarta, quinta, sexta) #cria o data.frame com os cardápios dos dias da semana
  }
    
  if(substr(dieta, 1, 1)=="n") #para o caso do usuário responder 'não' (ou qualquer palavra que comece com 'n')
    {
    #verifica se o usuário tem pelo menos 5 opcoes de prato principal carne, ave e peixe, 5 acompanhamentos 
    #verde e outro no data.frame das receitas. Interrompe a função caso uma destas condições não for cumprida.
    #E mostra na tela mensagem alertando o usuário.
    if(length(receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="carne", 3])<5) 
      stop("Você deve ter ao menos 5 receitas de carne como prato principal.")
    if(length(receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="ave", 3])<5) 
      stop("Você deve ter ao menos 5 receitas de ave como prato principal.")
    if(length(receitas[receitas$tipo=="prato principal" & receitas$ingrediente=="peixe", 3])<5) 
      stop("Você deve ter ao menos 5 receitas de peixe como prato principal.")
    if(length(receitas[receitas$ingrediente=="verde", 3])<5) 
      stop("Você deve ter ao menos 5 receitas de acompanhamento verde.")
    if(length(receitas[receitas$ingrediente=="outro", 3])<5) 
      stop("Você deve ter ao menos 5 receitas de acompanhamento outro.")
    
    #Sorteio das receitas para um cardápio não-vegetariano
    pp.carne<-sample(carne, size=5, replace=F) #sorteio sem repetir o prato principal de carne
    pp.ave<-sample(ave, size=5, replace=F) #sorteio sem repetir o prato principal de ave
    pp.peixe<-sample(peixe, size=5, replace=F) #sorteio sem repetir o prato principal de peixe
    pp.porco<-sample(porco, size=5, replace=T) #sorteio do prato de porco permite repetição
    pp.veggie<-sample(veggie, size=5, replace=T) #sorteio do prato veggie permite repetição
    ac.arroz<-sample(arroz, size=5, replace=T) #sorteio do arroz permite repetição
    ac.grao<-sample(grao, size=5, replace=T) #sorteio do grao permite repetição
    ac.verde<-sample(verde, size=5, replace=F) #sorteio do verde não permite repetição
    ac.outro<-sample(outro, size=5, replace=F) #sorteio do outro não permite repetição
    ac.entrada<-sample(entrada, size=5, replace=T) #sorteio da entrada permite repetição
    
    #Segunda interação com o usuário, que só acontece caso ele responda 'não' à primeira pergunta.
    cat("Sendo assim, você pode escolher entre as opções carne, ave, peixe, porco e veggie.") #apresenta esta informação na tela
    dia.semana<-c("segunda", "terça", "quarta", "quinta", "sexta") #cria objeto com os dias da semana (caracteres)
    escolha<-list() #cria lista vazia (onde serão colocadas as opções que usuário fará para cada dia)
    for (dia in dia.semana) #cria condição para dia=segunda, depois dia=terça, depois dia=quarta etc até "sexta"
    {
      escolha[dia]<-readline(paste("O que gostaria de comer na", dia, "?")) #apresenta na tela pergunta para cada dia da semana 
      #e lê a resposta do usuário (readline) que é colocada no objeto 'escolha' indexado pelo dia da semana
    }
    pp<-cbind() #cria objeto onde serão colocadas as opções(nome das receitas) de prato principal
    for(y in 1:5) #cria condição para y=1, depois y=2 etc até 5
    {
      #Atribuindo os pratos sorteados conforme a escolha do usuário. 
      #A escolha do usuário para segunda-feira está na posição [1] do objeto escolha 
      #a escolha de terça está na posição [2] e assim até a posição [5] sexta-feira
      #O prato principal sorteado, e de acordo com a escolha do usuário, será extraído dos objetos pp.carne
      #pp.ave, pp.peixe, pp.porco e pp.veggie, da mesma posição e será colocado na mesma posição no objeto 'pp' (prato principal)
      if(escolha[[y]]=="carne") pp[y]<-pp.carne[y]
      if(escolha[[y]]=="ave") pp[y]<-pp.ave[y]
      if(escolha[[y]]=="peixe") pp[y]<-pp.peixe[y]
      if(escolha[[y]]=="porco") pp[y]<-pp.porco[y]
      if(escolha[[y]]=="veggie") pp[y]<-pp.veggie[y]
    } 
    
    #Montagem do cardápio não-vegetariano
    segunda<-c(ac.entrada[1], pp[1], ac.arroz[1], ac.grao[1], ac.verde[1], ac.outro[1]) #objeto cardapio da segunda-feira é feito com as receitas na posição[1]
    terca<-c(ac.entrada[2], pp[2], ac.arroz[2], ac.grao[2], ac.verde[2], ac.outro[2]) #objeto cardapio da terça-feira é feito com as receitas na posição[2]
    quarta<-c(ac.entrada[3], pp[3], ac.arroz[3], ac.grao[3], ac.verde[3], ac.outro[3]) #objeto cardapio da quarta-feira é feito com as receitas na posição[3]
    quinta<-c(ac.entrada[4], pp[4], ac.arroz[4], ac.grao[4], ac.verde[4], ac.outro[4]) #objeto cardapio da quinta-feira é feito com as receitas na posição[4]
    sexta<-c(ac.entrada[5], pp[5], ac.arroz[5], ac.grao[5], ac.verde[5], ac.outro[5]) #objeto cardapio da sexta-feira é feito com as receitas na posição[5]
    cardapio.semana<-data.frame(segunda, terca, quarta, quinta, sexta) #cria o data.frame com os cardápios dos dias da semana
    
  }
  #Comparando o cardápio criado com o cardápio fornecido pelo usuário no argumento 'cardapio.anterior'
  cat("Pratos repetidos em relação ao cardápio passado:\n") #explica na tela o que será apresentado
  cardapio1<-as.list(cardapio.anterior) #converte 'cardapio.anterior' em lista (antes data.frame)
  cardapio2<-as.list(cardapio.semana) #converte 'cardapio.semana' em lista (antes data.frame)
  repete<-intersect(unlist(cardapio1), unlist(cardapio2)) #cria o objeto 'repete' que é a intersecção de cardapio1 e cardapio2
  #para isso, é necessário simplificar cardapio1 e cardapio2 em vetores
  if(length(repete) > 0){ #cria condição sobre o comprimento de 'repete', se comprimento maior que zero
    cat(paste("\t", toString(repete), "\n")) #mostra na tela as receitas que se repetem nos dois cardápios
  } else cat("Não há repetições.") #no caso da não haver repetição, ou seja, 'repete' tem tamanho igual a 0, mostra mensagem na tela
  
  #Terceira(ou segunda) interação com o usuário 
  jantar<-readline("Uma sugestão para o jantar? (Esta opção não isola as receitas veggie.)") #considera que o usuário pode escolher uma (somente uma) opção de jantar
  if(substr(jantar, 1, 1)=="s") opcao.jantar<-sample(unico, size=1) #se o usuário responder 'sim' (ou qualquer string que comece com 's')
  #então, uma opção de jantar é sorteada do objeto 'unico', que contém receitas tipo prato único
  if(substr(jantar, 1, 1)=="n") opcao.jantar<-("Sem opção para jantar.") #se o usuário responder 'nao' (ou qualquer palavra que comece com 'n')
  #então, a mensagem aparece na tela e também é adicionada ao objeto de saída
  
  final<-cbind(cardapio.semana, jantar=c(opcao.jantar, rep("", length(cardapio.semana$segunda)-1))) #cria objeto final com o cardapio montado e a opção de jantar
  #ajusta o preenchimento de espaços para compatibilizar a opcao.jantar com o resto
  return(final) #saída
  #Bon appetit!!!
}

cardapio.r

exemplo de data.frame de entrada

receitas_de_casa.csv