This is a brief look at the percent of wells in Maine towns that tested above the guidelines for acceptable levels of arsenic and flouride. The data comes from the Maine Tracking Network. This report only covers locations with more than 20 wells tested.

There was an interesting short article in the Portland Press Herald published in August 2014 that discussed the high flouride levels, especially in Hancock County. Here is a link to that article - (http://www.pressherald.com/2014/08/20/fluoride-levels-high-in-maines-well-water/).

The first table displayed here is of the top twenty towns that tested above the guidelines for the acceptable levels of arsenic. The second table shows the top twenty towns that tested above the guidelines for the acceptable levels of flouride. The last shows those towns that were in both the top twenty that tested above the acceptable guidelines for arsenic and for flouride.

arsenic <- read.csv("~/Desktop/MBA 676-R/arsenic.csv")
library(dplyr)
library(knitr)
arsenic20 <- arsenic %>% select(location,percent_wells_above_guideline) %>% head(20)
names(arsenic20) <- c("Maine Town", "Percent of Wells Above Guidelines for Arsenic")
output <- arsenic20
kable(output)
Maine Town Percent of Wells Above Guidelines for Arsenic
Manchester 58.9
Gorham 50.1
Columbia 50.0
Monmouth 49.5
Eliot 49.3
Columbia Falls 48.0
Winthrop 44.8
Hallowell 44.6
Buxton 43.4
Blue Hill 42.7
Litchfield 42.0
Hollis 41.4
Orland 40.7
Surry 40.3
Danforth 40.0
Mariaville 40.0
Readfield 39.8
Otis 39.6
Dayton 37.7
Sedgwick 37.3 
flouride <- read.csv("~/Desktop/MBA 676-R/flouride.csv")
flouride20 <- flouride %>% select(location,percent_wells_above_guideline) %>% head(20)
names(flouride20) <- c("Maine Town", "Percent of Wells Above Guidelines for Flouride")
output2 <- flouride20
kable(output2)
Maine Town Percent of Wells Above Guidelines for Flouride
Otis 30.0
Dedham 22.5
Denmark 19.6
Surry 18.3
Prospect 17.5
Eastbrook 16.1
Mercer 15.6
Fryeburg 15.4
Brownfield 15.2
Stockton Springs 14.3
Clifton 14.0
Starks 13.6
Marshfield 12.9
Kennebunk 12.7
Charlotte 12.5
York 12.4
Chesterville 12.3
Stoneham 12.0
Sedgwick 11.2
Mechanic Falls 11.1 
arsenicflouride <- inner_join(arsenic20, flouride20, by = "Maine Town")
names(arsenicflouride) <- c("MaineTown", "Percent of Wells Above Guidelines for Arsenic","Percent of Wells Above Guidelines for Flouride" )
output3 <- arsenicflouride 
kable(output3)
MaineTown Percent of Wells Above Guidelines for Arsenic Percent of Wells Above Guidelines for Flouride
Surry 40.3 18.3
Otis 39.6 30.0
Sedgwick 37.3 11.2

```