firstmap

Farmers Markets Directory and Geographic Data

setwd("W:/datagov")
mymapdata <- read.csv("Export.csv",header = TRUE,sep = ",")
head(mymapdata)

##      FMID                                       MarketName      city
## 1 1018261  Caledonia Farmers Market Association - Danville  Danville
## 2 1018318                Stearns Homestead Farmers' Market    Parma 
## 3 1009364                106 S. Main Street Farmers Market  Six Mile
## 4 1010691              10th Steet Community Farmers Market    Lamar 
## 5 1002454                             112st Madison Avenue  New York
## 6 1011100                          12 South Farmers Market Nashville
##            State         x        y Seafood Herbs Jams Plants Trees
## 1        Vermont -72.14034 44.41104       N     Y    Y      N     Y
## 2           Ohio -81.73394 41.37480       N     Y    Y      N     N
## 3 South Carolina -82.81870 34.80420       N     N    N      N     N
## 4       Missouri -94.27462 37.49563       N     Y    Y      Y     N
## 5       New York -73.94930 40.79390       N     Y    Y      N     N
## 6      Tennessee -86.79071 36.11837       N     Y    Y      N     N

Now select the data you need to prepare the report.

subsetdata <- subset(mymapdata,select = c("MarketName","city","x","y") )
headData <- head(subsetdata)

colnames(headData) <- c("Market","city","longitude","latitude")
head(headData)

##                                             Market      city longitude
## 1  Caledonia Farmers Market Association - Danville  Danville -72.14034
## 2                Stearns Homestead Farmers' Market    Parma  -81.73394
## 3                106 S. Main Street Farmers Market  Six Mile -82.81870
## 4              10th Steet Community Farmers Market    Lamar  -94.27462
## 5                             112st Madison Avenue  New York -73.94930
## 6                          12 South Farmers Market Nashville -86.79071
##   latitude
## 1 44.41104
## 2 41.37480
## 3 34.80420
## 4 37.49563
## 5 40.79390
## 6 36.11837

Map data of some of the Farmers markets.

mymap <- headData %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(weight = 10,popup = strwrap(headData$Market))

## Assuming 'longitude' and 'latitude' are longitude and latitude, respectively

mymap