James Benson JamesOBenson
JamesOBenson
/ gist:4bce1e61e4d02524862cd47732a2159d
Created
August 19, 2016 04:11
R basic parameters (par) to help create a great looking boxplot....
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| load("some_data.RData") | |
| png(file=output.png",width=1200,height=1200) | |
| par(cex.main = 1.5, mar = c(5, 6, 4, 5) + 0.1, mgp = c(3.5, 1, 0), cex.lab = 2.0, | |
| font.lab = 2, cex.axis = 2.0, bty = "n", las = 1, family="serif") | |
| boxplot(formula~categories, | |
| data=mydata, | |
| ylim=c(0,100), | |
| cex.out = 1, | |
| col="blue", |
JamesOBenson
/ gist:30a4ddcc789b76fe9184a3eb3d756537
Created
July 13, 2016 13:41
R code to connect/disconnect, download & save data from remote SQL database
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| TO CONNECT: | |
| library("RPostgreSQL") | |
| drv <- dbDriver("PostgreSQL") | |
| con <- dbConnect(drv, dbname="postgres",host="dataport.pecanstreet.org",port=5434,user="username",password="password") | |
| GETS EVERYTHING FROM THIS TABLE: | |
| myTable <- dbReadTable(con, c("university", "electricity_egauge_15min")) | |
| SELECT CERTAIN VALUES FROM A TABLE: | |
| data <- dbGetQuery(con, "SELECT * from university.weather WHERE localhour BETWEEN '01-01-2015' AND '02-01-2015'") |
NewerOlder