17 lines
514 B
R
17 lines
514 B
R
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()
|