Clustering files

julianflowers · Feb 13, 2017 · 8e67073 · 8e67073
1 parent 48daa3a
commit 8e67073
Show file tree

Hide file tree

Showing 23 changed files with 4,543 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/cluster.csv b/cluster.csv
diff --git a/cluster1.html b/cluster1.html
diff --git a/cluster10.html b/cluster10.html
diff --git a/cluster11.html b/cluster11.html
diff --git a/cluster12.html b/cluster12.html
diff --git a/cluster13.html b/cluster13.html
diff --git a/cluster14.html b/cluster14.html
diff --git a/cluster15.html b/cluster15.html
diff --git a/cluster2.html b/cluster2.html
diff --git a/cluster3.html b/cluster3.html
diff --git a/cluster4.html b/cluster4.html
diff --git a/cluster5.html b/cluster5.html
diff --git a/cluster6.html b/cluster6.html
diff --git a/cluster7.html b/cluster7.html
diff --git a/cluster8.html b/cluster8.html
diff --git a/cluster9.html b/cluster9.html
diff --git a/geopractice.Rproj b/geopractice.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/hp.csv b/hp.csv
diff --git a/interactive_report.html b/interactive_report.html
diff --git a/loop.R b/loop.R
@@ -0,0 +1,11 @@
+library(rmarkdown)
+
+for(cluster in 1:15) {
+
+  render("interactive_report.Rmd",
+         output_file = paste0("cluster", cluster, ".html"),
+         params = list(cluster = cluster))
+
+
+
+}
diff --git a/point_map.R b/point_map.R
@@ -0,0 +1,55 @@
+library(readr)
+library(ggmap)
+library(janitor)
+library(leaflet)
+
+## Download GP data from data.gov.uk
+gpdata <- read_tsv("http://data.gov.uk/data/resource/nhschoices/GP.csv")
+
+gpdata <- gpdata %>% clean_names()
+
+loc <- gpdata %>% select(latitude, longitude)
+loc <- slice(loc, 5:30)
+mymap <- get_map("England", source = "google", maptype = "roadmap", zoom = 6)
+ggmap(mymap) + geom_jitter(aes( y = latitude, x= longitude), colour = organisationtype, 
+                          data = gpdata, size = 1, alpha = 0.5
+                          ) + coord
+
+
+### Leaflet
+
+gpdata %>%
+  leaflet() %>%
+  addTiles() %>%
+  addMarkers(~longitude, ~latitude, popup = ~organisationcode )
+###
+
+library(viridis)
+  gpclus <- read_csv("cluster.csv") %>% clean_names() %>% rename(organisationcode = x_area)
+
+gpdata1 <- gpdata %>% left_join(gpclus)
+
+mymap1 <- get_map("London", source = "google", maptype = "roadmap",  zoom = 10)
+map1 <- ggmap(mymap1) + geom_jitter(aes( y = latitude, x= longitude, colour = `_cluster`), 
+                           data = gpdata1, size = 1.5, alpha = 0.9) +
+  scale_color_viridis(option = "D") + coord_map()
+
+mymap2 <- get_map("Newcastle", source = "google", maptype = "roadmap",  zoom = 9)
+
+map2 <- ggmap(mymap2) + geom_jitter(aes( y = latitude, x= longitude, colour = as.character(`_cluster`)), 
+                                    data = gpdata1, size = 1.5, alpha = 0.9) +
+  scale_color_viridis(option = "D", discrete = TRUE) + coord_map()
+map2
+
+
+gpclus1 <- gpdata1 %>%
+  filter(`_cluster` == 15)
+
+clusmap <- get_map("England", source = "google", maptype = "roadmap",  zoom = 6)
+ggmap(clusmap) + geom_jitter(aes( y = latitude, x= longitude, colour = as.character(`_cluster`)), 
+                            data = gpclus1, size = 1.5, alpha = 0.9) +
+  scale_color_viridis(option = "D", discrete = TRUE) + coord_map() 
+
+gpdata1 %>% 
+  group_by(`_cluster`) %>%
+  count()
diff --git a/rsconnect/documents/test.Rmd/beta.rstudioconnect.com/julian_flowers/clustering.dcf b/rsconnect/documents/test.Rmd/beta.rstudioconnect.com/julian_flowers/clustering.dcf
@@ -0,0 +1,10 @@
+name: clustering
+title: Clustering
+account: julian_flowers
+server: beta.rstudioconnect.com
+appId: 2511
+bundleId: 5271
+url: https://beta.rstudioconnect.com/content/2511/
+when: 1486977128.72954
+asMultiple: FALSE
+asStatic: FALSE