RecklingK/Demo
0
0
Fork 0
Code Issues Pull Requests Releases 1 Wiki Activity

plot chic gemacht

Browse Source
This commit is contained in:
Reckling
2019-12-20 11:15:15 +01:00
parent 3158fefa3a
commit 672300019d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
demoFZSTAM.R
View File

@@ -2,14 +2,15 @@ library(ggplot2); library(RODBC)
channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13") channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13")
test <- sqlQuery(channel, stringsAsFactors=F, test <- sqlQuery(channel, stringsAsFactors=F,
"SELECT FZSTAM.FIRNR, FZSTAM.FAZFI "SELECT FZSTAM.FIRNR, FZSTAM.FAZID, FZSTAM.FAZFI, FZSTAM.BAUJJ
FROM FZSTAM FROM FZSTAM
WHERE FZSTAM.FIRNR = 1 WHERE FZSTAM.FIRNR = 1
LIMIT 1000 LIMIT 1000
") ")
odbcCloseAll(); rm(channel) odbcCloseAll(); rm(channel)
ggplot(test, aes(x=FAZFI)) + ggplot(test, aes(x=FAZID)) +
geom_bar(color="blue", fill=rgb(0.1,0.4,0.5,0.7) ) + geom_line(aes(y=FAZFI)) +
geom_line(aes(y=BAUJJ), col="red") +
scale_fill_hue(c = 40) + scale_fill_hue(c = 40) +
theme_bw() theme_bw()