4 Commits

+16
View File
@@ -0,0 +1,16 @@
library(ggplot2); library(RODBC)
channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13")
test <- sqlQuery(channel, stringsAsFactors=F,
"SELECT FZSTAM.FIRNR, FZSTAM.FAZID, FZSTAM.FAZFI, FZSTAM.BAUJJ
FROM FZSTAM
WHERE FZSTAM.FIRNR = 1
LIMIT 1000
")
odbcCloseAll(); rm(channel)
ggplot(test, aes(x=FAZID)) +
geom_line(aes(y=FAZFI)) +
geom_line(aes(y=BAUJJ), col="red") +
scale_fill_hue(c = 40) +
theme_bw()