OpasnetUtils/Ograph

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3710
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3710}}

Kysymys

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.

Vastaus

+ Näytä koodi- Piilota koodi ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen. ovariable, x, y = paste(ovariable@name, "Result", sep = ""), type = character(), fill = NA, ... ) { if(length(ovariable@output == 0) ovariable <- EvalOutput(ovariable) if(length(type) == 0) { 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) }