| [show] |
|---|
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Millainen on koodi peruskuvaajan piirtämiseen Opasnetissa? Sen on tarkoitus tuottaa yleisesti käytettyjä muuttujien kuvaajia mahdollisimman yksinkertaisella parametrisoinnilla. Mitään erityisiä kommervenkkeja ei tarvita.
ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen.
ovariable,
x,
y = paste(ovariable@name, "Result", sep = ""),
type = NA,
fill = NA, ...
) {
ovariable <- EvalOutput(ovariable)
if(is.na(type)) {
if("Iter" %in% colnames(ovariable@output)) type <- geom_boxplot() else type <- geom_bar()
}
out <- ggplot(ovariable@output, aes_string(x = x, y = y, fill = fill)) + # Määritellään kuvan sarakkeet
type +
theme_grey(base_size=24) + # Fontin kokoa suurennetaan
labs(
title = ovariable@name,
y = paste(unique(ovariable@output[[paste(ovariable@name, "Yksikkö", sep = "")]]), sep = "", collapse = ", ")
) +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat
return(out)
}
|