This code, forked from Ed Küpfer, creates a shot chart. Building from the work of Asteves, this code rotates the court 90 degrees.

ggplot.nba.halfcourt

#Forked from Ed Küpfer and Asteves
#https://gist.github.com/edkupfer
#https://gist.github.com/asteves/7266330

#Updated to rotate half court 90 degrees

#Generate Data for the 3 point line
# Define the circle; add a point at the center if the 'pie slice' if the shape is to be filled
circleFun <- function(center=c(0,5.25), diameter=20.9, npoints=20000, start=0, end=1, filled=TRUE){
  tt <- seq(start*pi, end*pi, length.out=npoints)
  df <- data.frame(
    y = center[1] + diameter / 2 * cos(tt),
    x = center[2] + diameter / 2 * sin(tt)
  )
  return(df)
}

halfCircle <- circleFun(c(0, 5.25), 20.9*2, start=0, end=1, filled=FALSE)

ggplot(data=data.frame(y=1,x=1),aes(x,y))+
  ###outside boy:
  geom_path(data=data.frame(y=c(0,0,50,50,0),x=c(0,47,47,0,0)))+
  ###solid FT semicircle above FT line:
  geom_path(data=data.frame(y=c((-6000:(-1)/1000)+25,(1:6000/1000)+25),x=c(19+sqrt(6^2-c(-6000:(-1)/1000,1:6000/1000)^2))),aes(y=y,x=x))+
  ###dashed FT semicircle below FT line:
  geom_path(data=data.frame(y=c((-6000:(-1)/1000)+25,(1:6000/1000)+25),x=c(19-sqrt(6^2-c(-6000:(-1)/1000,1:6000/1000)^2))),aes(y=y,x=x),linetxpe='dashed')+
  ###kex:
  geom_path(data=data.frame(y=c(17,17,33,33,17),x=c(0,19,19,0,0)))+
  ###boy inside the kex:
  geom_path(data=data.frame(y=c(19,19,31,31,19),x=c(0,19,19,0,0)))+
  ###restricted area semicircle:
  geom_path(data=data.frame(y=c((-4000:(-1)/1000)+25,(1:4000/1000)+25),x=c(5.25+sqrt(4^2-c(-4000:(-1)/1000,1:4000/1000)^2))),aes(y=y,x=x))+
  ###halfcourt semicircle:
  geom_path(data=data.frame(y=c((-6000:(-1)/1000)+25,(1:6000/1000)+25),x=c(47-sqrt(6^2-c(-6000:(-1)/1000,1:6000/1000)^2))),aes(y=y,x=x))+
  ###rim:
  geom_path(data=data.frame(y=c((-750:(-1)/1000)+25,(1:750/1000)+25,(750:1/1000)+25,(-1:-750/1000)+25),x=c(c(5.25+sqrt(0.75^2-c(-750:(-1)/1000,1:750/1000)^2)),c(5.25-sqrt(0.75^2-c(750:1/1000,-1:-750/1000)^2)))),aes(y=y,x=x))+
  ###backboard:
  geom_path(data=data.frame(y=c(22,28),x=c(4,4)),lineend='butt')+
  ###three-point line:
  # geom_path(data=data.frame(y=c(-21,-21,-21000:(-1)/1000,1:21000/1000,21,21),x=c(0,169/12,5.25+sqrt(23.75^2-c(-21000:(-1)/1000,1:21000/1000)^2),169/12,0)),aes(y=y,x=x))+
  ###fiy aspect ratio to 1:1
  geom_path(data=halfCircle,aes(x=x,y=y+25))+
  
  ###Complete the three-point line 
  geom_path(data=data.frame(y=c(4.1,4.1,45.9,45.9),x=c(5.25,0,0,5.25)))+
  coord_fixed()+
  
  ###Clean up the Court 
  theme_bw()+theme(panel.grid=element_blank(), legend.title=element_blank(), panel.border=element_blank(),axis.text=element_blank(),axis.ticks=element_blank(),axis.title=element_blank(),legend.position="top")+ggtitle("Convex Area Plot")