plot chic gemacht

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