Hospitals with helicopter access
helipad <- subset(dat, helipad=="Y")
qmplot(x, y, data = helipad, legend = "none", colour= I('blue'), mapcolor = "color", extent = "panel",darken = 0.1, main = "Helicopter access Hospitals", xlab = "Longitude", ylab = "Latitude", source = 'google', maptype = 'roadmap', size = I(1), zoom = 7)
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.942648,-77.681828&zoom=7&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
Hospitals with helicopter access in Allegheny
helipadalle <- subset(helipad, county=="Allegheny")
qmplot(x, y, data = helipadalle, legend = "none", colour= I('blue'), mapcolor = "color", extent = "panel",darken = 0.1, main = "Helicopter access Hospitals In Allegheny", xlab = "Longitude", ylab = "Latitude", source = 'google', maptype = 'roadmap', zoom = 10)
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.467855,-79.913931&zoom=10&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
Hospitals in Allegheny with helicopter access and Chemo Therapy
Allegheny <- subset(helipadalle, chemo =="Y")
qmplot(x, y, data = Allegheny, legend = "none", colour= I('blue'), mapcolor = "color", extent = "panel", main = "Helicopter access Hospitals with Chemo In Allegheny", xlab = "Longitude", ylab = "Latitude", source = 'google', size=I(2), maptype = 'hybrid', zoom = 11)
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.467855,-79.901709&zoom=11&size=640x640&scale=2&maptype=hybrid&language=en-EN&sensor=false
Hospitals in Allegheny with helicopter access, Chemo Therapy and Neurology
Alleghenyneur <- subset(Allegheny, neurology =="Y")
qmplot(x, y, data = Alleghenyneur, legend = "none", colour= I('red'), mapcolor = "color", extent = "panel",darken = 0.1, main = "Helicopter access Hospitals with Chemo and Neurology In Allegheny", xlab = "Longitude", ylab = "Latitude", source = 'google', maptype = 'terrain')
## Using zoom = 11...
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.467855,-79.901709&zoom=11&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
Hospitals in Allegheny with helicopter access, Chemo Therapy, Neurology and Pharmacy
Alleghenyphar <- subset(Alleghenyneur, pharmacy =="Y")
qmplot(x, y, data = Alleghenyphar, legend = "none", colour= I('red'), mapcolor = "color", extent = "panel",darken = 0.1, main = "Helicopter access Hospitals with Chemo, Neurology and pharmacy In Allegheny", xlab = "Longitude", ylab = "Latitude", source = 'google', maptype = 'terrain', zoom = 10)
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.467855,-79.901709&zoom=10&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
