OpasnetUtils/Ograph

This page is a method. The page identifier is Op_en5933
Moderator:Nobody (see all) Click here to sign up.
Give your opinion to the peer rating of the content of this page. {{ #opasnet_rater: }}
Upload data

This code is depreciated. Instead, use

objects.latest("Op_en6007", code_name = "answer") # OpasnetUtils/Drafts

in your code to fetch official draft objects.

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) }