munging

tlevine · Sep 20, 2012 · b4ffc8e · b4ffc8e
1 parent b096aa3
commit b4ffc8e
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 7 deletions.
diff --git a/analysis/munge/5-group.R b/analysis/munge/5-group.R
@@ -17,11 +17,5 @@ aff.grouped <- ddply(aff, 'zip', function(df){
 })
 
 yoga.grouped <- ddply(yoga, 'zip', function(df){
-  yoga.teachers <- nrow(df)
-
-  if (is.na(yoga.teachers)) {
-    0
-  } else {
-    yoga.teachers
-  }
+  c(yoga.teachers = nrow(df))
 })
diff --git a/analysis/munge/7-join.R b/analysis/munge/7-join.R
@@ -1 +1,2 @@
 quinoa <- join(aff.grouped, yoga.grouped, by = 'zip')
+quinoa$yoga.teachers[is.na(quinoa$yoga.teachers)] <- 0
diff --git a/analysis/munge/8-combine.R b/analysis/munge/8-combine.R
@@ -0,0 +1 @@
+quinoa$yoga.teachers.per.capita <- quinoa$yoga.teachers / quinoa$pop
diff --git a/analysis/munge/9-present.R b/analysis/munge/9-present.R
@@ -0,0 +1 @@
+yoga.top.100 <- quinoa[order(quinoa$yoga.teachers.per.capita, decreasing = T),][1:100,]