====== Rochely_Morandini ====== {{:bie5782:01_curso_atual:alunos:trabalho_final:rochely:20fev2010_2_16_.jpg?200|}} Mestranda em Ecologia, Instituto de Biociências(IB)USP, Departamento de Ecologia, LABECOAVES - Laboratório de Ecologia de Aves [[.:exec]] **Proposta de exercício final** **Proposta A** Pretendo tentar resolver um problema que tive com outros recursos gráficos para uma situação aparentemente simples que consiste em: inserir no gráfico uma linha contendo a meta para comparação dos valores obtidos e pretendidos, após uma determinada atividade. Pretendo trabalhar com dados que possuo de segregação de resíduos sólidos em um navio plataforma deixando bem fácil no gráfico a compreensão de que a quantidade segregada está muito acima da meta proposta ao Órgão Ambiental, evidenciando a necessidade de ações corretivas. Em oposição a isso, utilizar a mesma função da meta para um valor que esteja abaixo do desejado, demostrando, por exemplo, que embora a quantidade de material que está sendo reciclado, reutilizado ou corretamente destinado, seja aparentemente alto e bom, ele não atinge a meta proposta sendo um falso positivo ou inefetivo. **Proposta B** Criar uma função que ordene as 10 espécies mais frequentes de Aves do Cerrado, considerando a totalidade de espécies presentes em diferentes áreas de estudo. == Comentários da Proposta Principal == A proposta A é interessante. Como seus dados vão ser representados? É legal uma generalização. Existe uma cota mínima de segregação de material aceita pelo órgão ambiental? Se sim, talvez seja legal plotá-la também... Talvez fosse interessante que os diferenças entre o valor real e a meta fossem plotados também, por que além de visual, o resultado é mensurado também. O que acha? São idéias para incrementar a proposta inicial, pois ela parece um pouco simples. Mas é boa. A proposta B me parece muito simples, é rápido e fácil resolver isso. ** Gabriel ** __Rochely__: Na realidade o que se define é uma cota máxima permitida, ou seja, a meta que é estipulada em função do valor gerado por um determinado período que antecede sua definição. Normalmente reduzir os resíduos gerados, por ex. diminuir o valor gerado em 2010 (toneladas) em 20% até 2014, isso é acordado oficialmente com o Órgão Ambiental. O objetivo é realmente chamar atenção para a meta, pois normalmente os valores chegam bem próximos a ela, mas isso é o mesmo que nada, ou seja, o proposto não foi realizado. Concordo que se eu plotar os dois valores e compará-los talvez consiga um melhor resultado e incrementar minha proposta, gostei muito da sugestão:) A função pode, a partir de uma planilha com dados mensais (tabela de dados), gerar a informação do valor total do período em analise para cada tipo de resíduo gerado, calcular a redução de x% para os valores totais deles, gerar um gráfico e inserir as metas calculadas individualmente (que tendem a zero%). Em oposição a isso, eu poderia utilizar a mesma função para calcular um aumento de x% do valor informado para definir, por exemplo, a meta de atividades propostas para melhoria do gerenciamento de resíduos que precisam ser implementadas ou melhoradas (que tendem a 100%). ---- ====== Trabalho Final ====== ===== Função Meta Ambiental _ meta.amb()===== ####TRABALHO FINAL_RSM ####FUNCAO META AMBIENTAL ##CALCULAR E PLOTAR DADOS REFERENTE AO GERENCIAMENTO DE RESIDUOS SOLIDOS E CONDICIONANTES DE LICENÇA AMBIENTAL DE UNIDADES MARITIMAS (PLATAFORMAS), CALCULANDO A META ACORDADA COM O ORGAO AMBIENTAL, O ATENDIMENTO ÀS CONDICIONANTES GERANDO GRAFICOS QUE FACILITEM A ANALISE meta.amb<- function (x, Choice1) { if (Choice1 == "REDUC") { gerado<- tapply(x[,4], x[,5], sum, na.rm=TRUE) meta.acordada=(gerado*0.8) x11() barplot(rev(sort(gerado)), cex.axis=1, las=3, col="red4", ylim=c(0,50), main="Gerado x Acordado") barplot(rev(sort(meta.acordada)), cex.axis=1, las=3, ylim=c(0,50),add=TRUE) resumo<- cbind(gerado,meta.acordada) return(resumo) } if (Choice1 == "ATEND") { deveres<- tapply(x[,4], x[,5], sum, na.rm=TRUE) diferenca=deveres+(100-deveres) meta=diferenca[] x11() barplot(rev(sort(meta)), cex.axis=1, las=3, col="red4", ylim=c(0,100), main="Acordado x Atendido" ) barplot(sort(deveres), cex.axis=1, las=3, ylim=c(0,100),add=TRUE) porcentagem_nao.atendida<-(rev(sort(100-deveres))) resumo<- cbind(porcentagem_nao.atendida) return(resumo) } } ===== Arquivos da função ===== {{:bie5782:01_curso_atual:alunos:trabalho_final:rochely:relatorio_de_residuos_2008.csv|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:rochely:atendimento_condicionantes_2011.csv|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:rochely:funcao_metaamb_f_rsm.r|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:rochely:help_metaamb_f.txt|}} ===== Página help ===== ''meta.amb {cursoR}'' R Documentation **Meta Ambiental** //Descrição// A função desenvolvida para dados de Gerenciamento Ambiental industrial, podendo ser utilizada em duas analises distintas. Comparar a quantidade de resíduos gerados atualmente nas Unidades Marítimas em relação à meta de redução de 20% acordada com o órgão Ambiental em 2007, a partir e planilhas do Sistema Integrado de Gerenciamento de Resíduos (SIGRE). Comparar a porcentagem de atendimento das condicionantes de licenças ambientais nas Unidades Marítimas a partir e planilhas do Sistema de Controle de Licenças Ambientais (SCLAMB). Gera gráfico da análise. //Uso// ''meta (x, Choice1) '' //Argumentos// ''x'' arquivo do sistema SIGRE ou SCLAMB em formato “.csv” (nomedoarquivo). sendo mantida a formatação original das colunas. ''Choice1'' "REDUC" – para calculo comparativo da meta de redução dos resíduos gerados "ATEND" – para calculo comparativo do atendimento das condicionantes de licença //Valores// Qualquer modelo de planilha gerado pelo sistema SIGRE (contendo dados mensais, trimestrais, semestrais ou anuais) ou SCLAMB pode ser utilizado sem necessidade de alteração. //Referências// Manual do SIGRE: Sistema Integrado de Gerenciamento de Resíduos, versão 2010. Manual do SCLAMB: Sistema de Controle de Licenças Ambientais, versão 2009. //Exemplos// meta.amb (residuos2008, "REDUC") meta.amb (condicionantes2011, "ATEND")