I tried it with the Triage database table, but am not so convinced it helps for the discrete data proposed. Have a look, and see what you think:
CREATE OR REPLACE FUNCTION "public"."pairs_graph" () RETURNS text AS $BODY$ library(ggplot2) library(GGally) X11(display=':5'); events <- pg.spi.exec ("select period, event, amount, choice, guncontrol, outcome from public.events where candidate = 'Doe' "); png('ggpairs_graph.png'); events$gcfactor <- as.factor(events$guncontrol) p <- ggpairs(events, columns=c("period", "amount", "choice", "gcfactor"), diag=list(continuous="density", discrete="bar"), axisLabels="show") print(p) dev.off(); print('done'); $BODY$ LANGUAGE 'plr'And here's the graph:
No comments:
Post a Comment