ggplot für fazfi limit 1000

2019-12-20 11:05:32 +01:00
parent 62aa22a678
commit 49bb0ddc29
1 changed files with 13 additions and 0 deletions
--- a/demoFZSTAM.R
+++ 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) )