OpasnetUtils/Ograph

ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen. ovariable, x, y = paste(ovariable@name, "Result", sep = ""), type = geom_boxplot(), fill = NA, ... ) { 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@outputpaste(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) }