sábado, 1 de novembro de 2008

R x Excel.

Quem disse que o R não faz planilhas como o Excel??? Copie os comandos abaixo e brinque com eles. Coloquei algumas figuras só para ilustração. Poucas pessoas- no Brasil- conhecem o programa R, mas é questão de tempo para empresas e faculdades começarem a adotá-lo. Tal programa é gratuito e existem vários pacotes para áreas como finanças, estatística, matemática, etc. Sem contar as interfaces que ele tem com outros programs como o Ox, por exemplo.

O exemplo abaixo é de despesas de uma empresa XX.
























dados<-read.csv2(file.choose(),head=T)
dados<-dados[,1:12]
dados
summary(dados)
names(dados)
dim(dados)
names(dados)[2:ncol(dados)] <- format(strptime( names(dados)[2:ncol(dados) ], "%d/%m/%Y"), "%d %b %Y")
head(dados)
data<- seq(as.Date("2000-01-01"), length.out=11, by="1 month")
data
names(dados)[2:ncol(dados)]<- format(data, "%Y %b %d")
head(dados)
attach(dados)
names(dados)
soma<-apply(dados[,2:ncol(dados)],1,sum)
despesas_totais<-data.frame(ADMINISTRAÇÃO,soma)
despesas_totais
porcentagem<-prop.table(despesas_totais[,2])*100
gastos<-data.frame(ADMINISTRAÇÃO,porcentagem)
gastos
especificacao<-factor(ADMINISTRAÇÃO)
especificacao
d<-data.matrix(gastos[,2])
d

plot(d,type="p",col=2, main="Contas com maiores despesas")
identify(1:48,d,especificacao)
pie(d, labels=especificacao, shadow=FALSE, main="Setores- Despesas",col = rainbow(16))

soma.mes<-apply(dados[,2:ncol(dados)],2,sum)
despesas_totais_mes<-data.frame(data,soma.mes)
despesas_totais_mes
porcentagem_mes<-prop.table(despesas_totais_mes[,2])*100
porcentagem_mes ## despesas do mês de fevereiro

barplot(porcentagem_mes,beside=T,legend.text=data,
col = rainbow(5),ylim=c(0,50),main="Despesas totais")

filtro<-subset(dados,ADMINISTRAÇÃO=="SALÁRIOS")## Filtro por salários
filtro

Nenhum comentário: