green-communities.R

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.6.2

library(gdata)

## gdata: read.xls support for 'XLS' (Excel 97-2004) files ENABLED.

## 

## gdata: read.xls support for 'XLSX' (Excel 2007+) files ENABLED.

## 
## Attaching package: 'gdata'

## The following object is masked from 'package:stats':
## 
##     nobs

## The following object is masked from 'package:utils':
## 
##     object.size

## The following object is masked from 'package:base':
## 
##     startsWith

fname = 'green communities geocode.xlsx'
d = read.xls(fname)


pal <- colorFactor(palette = c("#008000", "#C0C0C0", "#808000", "#800000", "#FFB978",  "#008EFF"),
                            levels = c("Oekosamfund", "Miljoefaellesskab - udenfor kategori", "Madspild", "Foedevarefaellesskab", "Byhave / nyttehave", "Bofaellesskab med miljoefokus"))


leaflet(leafletOptions(dragging = FALSE,
                       minZoom = 6.5,
                       maxZoom = 20)) %>%
  addProviderTiles("OpenStreetMap") %>%
  clearMarkers() %>%
  addCircleMarkers(data = d, radius = 2, color = ~pal(Kategori), label= ~Navn, popup = ~paste0("<b>",Navn,"", "<br/>", Hjemmeside, "<br/>")) %>%
  addLegend(position="topright", pal = pal, values = c("Oekosamfund", "Miljoefaellesskab - udenfor kategori", "Madspild", "Foedevarefaellesskab", "Byhave / nyttehave", "Bofaellesskab med miljoefokus"))

## Assuming "Longitude" and "Latitude" are longitude and latitude, respectively