From 49bb0ddc29b6007fd7f72d907fedb34f8bbdd7e6 Mon Sep 17 00:00:00 2001
From: Reckling <karina.reckling@willenbrock.de>
Date: Fri, 20 Dec 2019 11:05:32 +0100
Subject: [PATCH] =?UTF-8?q?ggplot=20f=C3=BCr=20fazfi=20limit=201000?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 demoFZSTAM.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 demoFZSTAM.R

diff --git a/demoFZSTAM.R b/demoFZSTAM.R
new file mode 100644
index 0000000..8b92e73
--- /dev/null
+++ b/demoFZSTAM.R
@@ -0,0 +1,13 @@
+library(ggplot2); library(RODBC)
+
+channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13")
+test <- sqlQuery(channel, stringsAsFactors=F,
+                 "SELECT FZSTAM.FIRNR, FZSTAM.FAZFI
+                 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) )