make_graph <- function(p_data,teamname,num){
    p <- ggplot(data = p_data %>% filter(team==teamname,unum==num), aes(x = as.numeric(x), y = as.numeric(y))) +
    ggplot2::coord_fixed(xlim=c(-55,55),ylim =c(-35,35))+ 
    geom_hline(yintercept = -34.1, linetype = "solid")+
    geom_hline(yintercept = 34.1, linetype = "solid")+
    geom_hline(yintercept = 0, linetype = "solid")+
    geom_vline(xintercept = 52.6, linetype = "solid")+
    geom_vline(xintercept = -52.6, linetype = "solid")+
    geom_vline(xintercept = 0, linetype = "solid")+
    geom_point(size=0.1) +
    geom_density_2d_filled(alpha = 0.7)
    return(p)
}

#ggplot2::geom_path(size=1.2,aes(color =  as.numeric(step))) +
# +
#    ggplot2::geom_density2d(size = 0.25, colour = "black")