Ero sivun ”Hiekkalaatikko2” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Ei muokkausyhteenvetoa |
Ei muokkausyhteenvetoa |
||
| Rivi 3: | Rivi 3: | ||
library(ggplot2) | library(ggplot2) | ||
dat <- opbase.data("Op_fi4524", subset = 'Kysely') | dat <- opbase.data("Op_fi4524", subset = 'Kysely') | ||
dat <- dat[dat$Kysymys == "Rokotevalinta A200 B500", ] | pois <- opbase.data("Op_fi4524", subset = 'Poistot') | ||
#dat <- dat[dat$Result != "", ] | |||
#dat <- dat[dat$Kysymys == "Rokotevalinta A200 B500", ] | |||
#ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + coord_flip() | #ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + coord_flip() | ||
dat <- as.vector(table(factor(dat$Result))) | #dat <- as.vector(table(factor(dat$Result))) | ||
#oprint(dat) | #oprint(pois) | ||
pois <- as.numeric(pois$Result) | |||
dat <- dat[dat$KyselyID %in% pois , ] | |||
oprint(dat) | |||
oprint(pois) | |||
#hist(dat, labels=c("A","B","C","D")) | #hist(dat, labels=c("A","B","C","D")) | ||
barplot(dat) | #barplot(dat) | ||
</rcode> | </rcode> | ||