diff --git a/demoFZSTAM.R b/demoFZSTAM.R index 5b36c72..3ea1b58 100644 --- a/demoFZSTAM.R +++ b/demoFZSTAM.R @@ -2,14 +2,15 @@ library(ggplot2); library(RODBC) channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13") test <- sqlQuery(channel, stringsAsFactors=F, - "SELECT FZSTAM.FIRNR, FZSTAM.FAZFI + "SELECT FZSTAM.FIRNR, FZSTAM.FAZID, FZSTAM.FAZFI, FZSTAM.BAUJJ FROM FZSTAM WHERE FZSTAM.FIRNR = 1 LIMIT 1000 ") odbcCloseAll(); rm(channel) -ggplot(test, aes(x=FAZFI)) + - geom_bar(color="blue", fill=rgb(0.1,0.4,0.5,0.7) ) + +ggplot(test, aes(x=FAZID)) + + geom_line(aes(y=FAZFI)) + + geom_line(aes(y=BAUJJ), col="red") + scale_fill_hue(c = 40) + theme_bw()