OpasnetUtils/Ograph

[show] This page is a knowledge crystal of subtype method. The page identifier is Op_en5933
Moderator:Nobody (see all) Click here to sign up.
Upload data {{#opasnet_base_link:Op_en5933}}

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

+ Show code- Hide code ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen. ovariable, x, y = character(), type = character(), other = character(), fill = NA, ... ) { 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("Iter" %in% colnames(data)) type <- geom_boxplot() else type <- geom_bar(stat = "identity") } out <- ggplot(data, aes_string(x = x, y = y, fill = fill)) # Määritellään kuvan sarakkeet out <- out + type out <- out + theme_grey(base_size=24) # Fontin kokoa suurennetaan out <- out + labs( title = title, y = paste(unique(data[[paste(title, "Yksikkö", sep = "")]]), sep = "", collapse = ", ") ) out <- out + theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat if(length(other) != 0) out <- out + other return(out) }