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()