Ero sivun ”OpasnetUtils/Ograph” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→Vastaus) |
|||
| Rivi 9: | Rivi 9: | ||
<rcode name="answer"> | <rcode name="answer"> | ||
ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen. | ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen. | ||
ovariable, | ovariable, | ||
x, | x, | ||
y = | y = character(), | ||
type = character(), | type = character(), | ||
fill = NA, | fill = NA, | ||
... | ... | ||
) { | ) { | ||
if( | if(class(ovariable) == "ovariable") { | ||
if(nrow(ovariable@output) == 0) ovariable <- EvalOutput(ovariable) | |||
data <- ovariable@output | |||
title <- ovariable@name | |||
if(length(y) == 0) y <- paste(title, "Result", sep = "") | |||
} else { | |||
data <- ovariable | |||
title <- character() | |||
if(length(y) == 0) y <- "Result" | |||
} | |||
if(length(type) == 0) { | if(length(type) == 0) { | ||
if("Iter" %in% colnames( | if("Iter" %in% colnames(data)) type <- geom_boxplot() else type <- geom_bar(stat = "identity") | ||
} | } | ||
out <- ggplot( | out <- ggplot(data, aes_string(x = x, y = y, fill = fill)) + # Määritellään kuvan sarakkeet | ||
type + | type + | ||
theme_grey(base_size=24) + # Fontin kokoa suurennetaan | theme_grey(base_size=24) + # Fontin kokoa suurennetaan | ||
labs( | labs( | ||
title = | title = title, | ||
y = paste(unique( | y = paste(unique(data[[paste(title, "Yksikkö", sep = "")]]), sep = "", collapse = ", ") | ||
) + | ) + | ||
theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat | theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat | ||
return(out) | return(out) | ||
} | } | ||
</rcode> | </rcode> | ||
Versio 30. maaliskuuta 2013 kello 04.49
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
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.