Erot

Tämä näyttää erot valitun ja nykyisen version kesken tästä sivusta.

--- tilasto:r [2012/02/20 15:41] – [Frekvenssit ja ristiintaulukot] aurelius
+++ tilasto:r [2016/01/20 19:31] (nykyinen) – ulkoinen muokkaus 127.0.0.1
@@ Rivi 1: / Rivi 1: @@
-====== Omat R-skriptit ======
+====== Omat R-skriptit (21.2.2012)======
 Kokoan tänne omassa tutkimuksessa usein käyttämiäni skriptejä lähinnä oman työn tueksi. Laajempia ja yleisimpiä ohjeita löytyy mm. täältä:
@@ Rivi 17: / Rivi 17: @@
 ===== Frekvenssit ja ristiintaulukot =====
+Kahden muuttujan (ikalk * supu) frekvenssit
 <code>
-df$health <- recode(df$PH010, "1='e)very good';2='d)good';3='c)fair';
+tbl <- table(df$ikalk,df$supu)
-='b)bad';5='a)very bad'")
+tbl # tulosta taulu
+</code>
-health <- scale_fill_manual(values=c("#CC0000",
+Kahden muuttujan rivi- ja sarakeprosentit
-                                    "#CC6633",
+<code>
-                                    "#FFFF00",
+library(xtable)
-                                    "#99CC33",
+tbl <- table(df$ikalk,df$supu)
-                                    "#66FF00"))
+prop.table(tbl,1) # riviprosentit
+prop.table(tbl,2) # sarakeprosentit
+</code>
+Sama kuin yllä mutta kolmannen muuttujan luokissa (maa)
+<code>
+tbl3 <- table(df$maa,df$supu,df$ikalk) # valitaan muuttujat ja järjestys
+ftable(tbl3) # frekvenssit
+ftable(prop.table(tbl3, c(1,3))*100)) # prosentit
+</code>
+Otsikko
+<code>
+</code>
+Otsikko
+<code>
+</code>
+Otsikko
+<code>
+</code>
+Otsikko
+<code>
-ggplot(df, aes(factor(ageclass), fill=(factor(health)))) +
-  geom_bar(position="fill") + facet_grid(~PB020) + health
 </code>
 ===== Graafit =====