shooting<-read.table("/Users/zhaohe/Desktop/shoot1.csv",header=TRUE,fill=TRUE,sep=",")
library(ggplot2)
library(maps)
all_places<-map_data("state")
p<-ggplot()
shoot<-shooting[(shooting$Longitude>-150),]
shoot<-shoot[complete.cases(shooting[,12:13]),]
shootlg<-shoot[(shooting$Total.victims>30),]
p<-p+geom_polygon(data=all_places,aes(x=long,y=lat,group=group),color="white",fill="grey10")
p<-p+geom_point(data=shoot,aes(x=Longitude,y=Latitude,size=Total.victims),color="red")+scale_size(name="Total.victims")

p<-p+geom_text(data=shootlg,fjust=0.5,vjust=-0.5,aes(x=Longitude,y=Latitude,label=Location),color="gold2",size=5)
## Warning: Ignoring unknown parameters: fjust
p
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_text).

shooting<-read.table("/Users/zhaohe/Desktop/shoot1.csv",header=TRUE,fill=TRUE,sep=",")
library(ggplot2)
library(maps)
all_places<-map_data("state")
p<-ggplot()
shoot<-shooting[(shooting$Longitude>-100),]
shoot<-shoot[complete.cases(shooting[,12:13]),]
shootlg<-shoot[(shooting$Total.victims>3),]
p<-p+geom_polygon(data=all_places,aes(x=long,y=lat,group=group),color="white",fill="grey10")
p<-p+geom_point(data=shoot,aes(x=Longitude,y=Latitude,size=Total.victims),color="red")+scale_size(name="Total.victims")
p
## Warning: Removed 97 rows containing missing values (geom_point).

In my project, my topic is related to the mass shooting that happened between 1966 and 2017. In the first graph, I narrowed down the longitude to the range that is greater than the “-100”. Additionally, to find the mass shootings that have greater number, greater than 30, I also add the words that label the names of the cities where the mass shooting happened.

Besides, I also made another graph about where the mass shooting happens frequently. And the result shows that the dense location is Eastern part of American. Therefore, I can plausibly assume that the Eastern part’s public safety cannot be protected and ensured and there are some necessary and appropriate actions that the local governments need to take.