Ero sivun ”OpasnetUtils/Ograph” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
|||
| (3 välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| Rivi 2: | Rivi 2: | ||
[[Luokka:OpasnetUtils]] | [[Luokka:OpasnetUtils]] | ||
{{metodi}} | {{metodi}} | ||
:'''This code is depreciated. Instead, use | |||
objects.latest("Op_en6007", code_name = "answer") # [[:op_en:OpasnetUtils/Drafts]] | |||
in your code to fetch official draft objects. | |||
==Kysymys== | ==Kysymys== | ||
| Rivi 32: | Rivi 36: | ||
if("Iter" %in% colnames(data)) type <- geom_boxplot() else type <- geom_bar(stat = "identity") | 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)) | 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, | title = title, | ||
y = paste(unique(data[[paste(title, "Yksikkö", sep = "")]]), sep = "", collapse = ", ") | 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) | return(out) | ||
} | } | ||
</rcode> | </rcode> | ||
Nykyinen versio 14. marraskuuta 2013 kello 14.39
| [show] |
|---|
- This code is depreciated. Instead, use
objects.latest("Op_en6007", code_name = "answer") # op_en: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.