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.

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_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)
       }
       }

relatorio_de_residuos_2008.csv atendimento_condicionantes_2011.csv funcao_metaamb_f_rsm.r help_metaamb_f.txt

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”)