Compare commits
7 Commits
62aa22a678
...
developer
| Author | SHA1 | Date | |
|---|---|---|---|
| c49f1364b9 | |||
| 1a6df64a6d | |||
| 4d6c216b0d | |||
| 31c96cfa99 | |||
| 672300019d | |||
| 3158fefa3a | |||
| 49bb0ddc29 |
16
demoFZSTAM.R
Normal file
16
demoFZSTAM.R
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
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()
|
||||||
Reference in New Issue
Block a user