Re: Fwd: Graficar con Pivot Tables

Muchas Gracias Anthony, dejame revisarlos y te comento.
Saludos

El 2 de julio de 2015, 15:10, Anthony Sotolongo <asotolongo(at)gmail(dot)com>
escribió:

> Hola a Felipe y Jose, escontré el paquete que junto a algunos colegas y
> alumnos hicimos como ejercicios docente para de graficar con PLR, le hice
> algunos ajustes y se los comparto en:
> https://github.com/asotolongo/pgrgraphic
>
> A lo mejor entre todos podemos mejorarla y utilizarla.
>
> Jose tal vez los gráficos de esta la extensión te sirvan para lo que
> necesitas.
>
> Saludos
>
>
>
> On 29/06/15 18:29, Felipe Guzman wrote:
>
> Pero puedes compartirla y generamos algo como comunidad.
>
>
> 👌👌
>
> Sent from my iPhone
>
> On Jun 29, 2015, at 4:42 PM, Anthony Sotolongo <asotolongo(at)gmail(dot)com>
> wrote:
>
> Gracias, la verdad que comencé junto con colegas y alumnos a hacer una
> extensión, pero no la terminamos completa, pues quedó como un ejercicio
> docente :( , voy a revisar en mis cosas y hacer un poco de tiempo para ver
> si por fin la terminamos :D
> Saludos
>
> El 6/29/2015 a las 3:43 PM, Felipe Guzman escribió:
>
> Excelente ejemplo Anthony!!
> Muchas gracias tienes slides o algo así con más ejemplos.
>
>
> Saludos
>
> Sent from my iPhone
>
> On Jun 29, 2015, at 1:31 PM, Anthony Sotolongo <asotolongo(at)gmail(dot)com>
> wrote:
>
> Hola Jose, has visto el PLR? con eso puedes generar tus gráficas, hace
> un tiempo hicimos algo para eso, para unos temas docentes, te pongo un code
> de ejemplo que te puede orientar(se genera un pie), puedes generar el tuyo
> a conveniencia, con las opciones que te brinda R :
>
> CREATE OR REPLACE FUNCTION pie(nombre text, vector integer[], texto text,
> textovector character varying[], porciento character)
> RETURNS integer AS
> $BODY$png(paste(nombre,"png",sep="."))
> if (porciento=="t")
> {
> resultado<- round(vector/sum(vector) * 100, 2)
> resultado<-paste(resultado,"%", sep=" ")
> pie(vector,header=TRUE,col =
> rainbow(length(vector)),main=texto,labels=paste (as.factor(textovector
> ),resultado,sep="-"))
>
> }
> else
> {
> resultado<- round(vector/sum(vector) * 100, 2)
>
> pie(vector,header=TRUE,col =
> rainbow(length(vector)),main=texto,labels=paste (as.factor(textovector
> ),resultado,sep="-"))
> }
> dev.off()$BODY$
> LANGUAGE plr VOLATILE;
>
>
> Ejemplo de como llamarla:
> select pie('minombre',array[3,6,7,9],'mi
> texto',array('a','d','c','d'),'f');
>
>
> Y obtienes un gráfico de pie como se adjunta, el gráfico se guarda en el
> home de postgres, en mi caso esta en /var/lib/postgresql/9.4/main, en los
> array puedes pasar una consulta a tu tabla, por ejemplo array(select b
> from mitabla order by b desc limit 4)
>
> Si necesitas enviar por correo, en este caso usando SMTP, puede ver
> http://pgxn.org/dist/pgsmtp/ , te puede servir para enviar adjuntos
> también.
>
>
> saludos
>
>
>
>
> El 6/29/2015 a las 12:29 PM, Jose Moreira escribió:
>
>
> Estimados,
>
> Escenario actual: hay una base MSSQL Server que mediante las Pivot
> Tables crea reportes y charts y esto lo manda por mail a los jefes de forma
> automatizada (un add-on llamado PowerPivot del Excel 2010 permite correr
> queries y crear charts de forma automatica, luego otro proceso lo envia por
> mail). Los jefazos estan muy contentos...
>
> Ahora, puede existir esto con una base Postgre y usando Libre u
> OpenOffice? Hay algun "Pivot-master" en este grupo que haga algo parecido?
>
> O cambio la pregunta: alguien desarrollo alguna tool que permita hacer
> consultas, graficar ese output y que se pueda automatizar para ser
> ejecutado en forma periodica?
>
> gracias!
>
> jose
>
>
>
>
>
>
> <minombre.png>
>
> -
> Enviado a la lista de correo pgsql-es-ayuda (pgsql-es-ayuda(at)postgresql(dot)org
> )
> Para cambiar tu suscripción:
> http://www.postgresql.org/mailpref/pgsql-es-ayuda
>
>
>
>

--
Atentamente

*
Felipe Guzmán Vargas*
*Ingeniero en Informatica - Consultor TI*
*www.desarrollamostuidea.cl* <http://www.desarrollamostuidea.cl>