1. # Need a function to draw circle
2. circle_fun <- function(center=c(0,0), diameter=1, npoints=500, start=0, end=2){
3. tt <- seq(start*pi, end*pi, length.out=npoints)
4. data.frame(
5. x = center[1] + diameter / 2 * cos(tt),
6. y = center[2] + diameter / 2 * sin(tt)
7. )
8. }
9. # Need symmetry
10. rev_y <- function(y) 94-y
11. # Create data frame containing coordinates of polygons
12. new_coords <- function(x, y, group, descri){
13. new_coords_df <- data.frame(x = x, y = y)
14. new_coords_df$group <- group
15. new_coords_df$side <- 1
16. group <- group + 1
17. # The same thing for the opposite side
18. new_coords_df2 <- data.frame(x = x, y = rev_y(y))
19. new_coords_df2$group <- group
20. new_coords_df2$side <- 2
21. group <<- group + 1
22. # On reunit les donnees
23. new_coords_df <- rbind(new_coords_df, new_coords_df2)
24. new_coords_df$descri <- descri
25. return(new_coords_df)
26. }
27. #Circles we need
28. # Restricted area
29. cercle_np_out <- circle_fun(center = c(25,5+3/12), diameter = (4+1/6)*2)
30. cercle_np_in <- circle_fun(center = c(25,5+3/12), diameter = 4*2)
31. # Three point
32. cercle_3pts_out <- circle_fun(center = c(25,5+3/12), diameter = (23+9/12)*2)
33. cercle_3pts_in <- circle_fun(center = c(25,5+3/12), diameter = (23+7/12)*2)
34. # Hoop
35. cercle_ce <- circle_fun(center = c(25,5+3/12), diameter = 1.5)
36. # Free Throws
37. cercle_lf_out <- circle_fun(center = c(25,19), diameter = 6*2)
38. cercle_lf_in <- circle_fun(center = c(25,19), diameter = (6-1/6)*2)
39. # Center Circle
40. cercle_mil_out <- circle_fun(center = c(25,47), diameter = 6*2)
41. cercle_mil_in <- circle_fun(center = c(25,47), diameter = (6-1/6)*2)
42. # Small Center Circle
43. cercle_mil_petit_out <- circle_fun(center = c(25,47), diameter = 2*2)
44. cercle_mil_petit_in <- circle_fun(center = c(25,47), diameter = (2-1/6)*2)
45. #We need to assign the first value of the variable group. Then, each use of new_coords increments group value by one.
46. group <- 1
47. court <- new_coords(c(0-1/6,0-1/6,50 + 1/6,50 + 1/6), c(0 - 1/6,0,0,0 - 1/6), group = group, descri = "ligne de fond")
48. court <- rbind(court, new_coords(x = c(0-1/6,0-1/6,0,0), y = c(0,47-1/12,47-1/12,0), group = group, descri = "ligne gauche"))
49. court <- rbind(court, new_coords(x = c(50,50,50+1/6,50+1/6), y = c(0,47-1/12,47-1/12,0), group = group, descri = "ligne droite"
50. court <- rbind(court, new_coords(x = c(0,0,3,3), y = c(28,28+1/6,28+1/6,28), group = group, descri = "marque entraineur gauche"
51. Tutorial 4
52. court <- rbind(court, new_coords(x = c(47,47,50,50), y = c(28,28+1/6,28+1/6,28), group = group, descri = "marque entraineur dro
53. court <- rbind(court, new_coords(x = c(3,3,3+1/6,3+1/6), y = c(0,14,14,0), group = group, descri = "3pts bas gauche"))
54. court <- rbind(court, new_coords(x = c(47-1/6,47-1/6,47,47), y = c(0,14,14,0), group = group, descri = "3pts bas droit"))
55. court <- rbind(court, new_coords(x = c(17,17,17+1/6,17+1/6), y = c(0,19,19,0), group = group, descri = "LF bas gauche"))
56. court <- rbind(court, new_coords(x = c(33-1/6,33-1/6,33,33), y = c(0,19,19,0), group = group, descri = "LF bas droit"))
57. court <- rbind(court, new_coords(x = c(17,17,33,33), y = c(19-1/6,19,19,19-1/6), group = group, descri = "LF tireur"))
58. court <- rbind(court, new_coords(x = c(14-1/6,14-1/6,14,14), y = c(0,1/2,1/2,0), group = group, descri = "marque fond gauche"))
59. court <- rbind(court, new_coords(x = c(36,36,36+1/6,36+1/6), y = c(0,1/2,1/2,0), group = group, descri = "marque fond droit"))
60. court <- rbind(court, new_coords(x = c(19,19,19+1/6,19+1/6), y = c(0,19,19,0), group = group, descri = "LF gauche interieur"))
61. court <- rbind(court, new_coords(x = c(31-1/6,31-1/6,31,31), y = c(0,19,19,0), group = group, descri = "LF droite interieur"))
62. court <- rbind(court, new_coords(x = c(22, 22, 28, 28), y = c(4-1/6,4,4,4-1/6), group = group, descri = "planche"))
63. court <- rbind(court, new_coords(x = c(cercle_3pts_out[31:220,"x"], rev(cercle_3pts_in[31:220,"x"])),
64. y = c(cercle_3pts_out[31:220,"y"], rev(cercle_3pts_in[31:220,"y"])), group = group, descri = "
65. court <- rbind(court, new_coords(x = c(cercle_np_out[1:250,"x"], rev(cercle_np_in[1:250,"x"])),
66. y = c(cercle_np_out[1:250,"y"], rev(cercle_np_in[1:250,"y"])), group = group, descri = "cercle
67. court <- rbind(court, new_coords(x = c(20+1/6,20+1/6,20+8/12,20+8/12), y = c(13,13+1/6,13+1/6,13), group = group, descri = "mar
68. court <- rbind(court, new_coords(x = c(30-8/12,30-8/12,30-1/6,30-1/6), y = c(13,13+1/6,13+1/6,13), group = group, descri = "mar
69. court <- rbind(court, new_coords(x = c(cercle_lf_out[1:250,"x"], rev(cercle_lf_in[1:250,"x"])),
70. y = c(cercle_lf_out[1:250,"y"], rev(cercle_lf_in[1:250,"y"])), group = group, descri = "cercle
71. court <- rbind(court, new_coords(x = c(cercle_lf_out[250:269,"x"], rev(cercle_lf_in[250:269,"x"])),
72. y = c(cercle_lf_out[250:269,"y"], rev(cercle_lf_in[250:269,"y"])), group = group, descri = "ce
73. court <- rbind(court, new_coords(x = c(cercle_lf_out[288:308,"x"], rev(cercle_lf_in[288:308,"x"])),
74. y = c(cercle_lf_out[288:308,"y"], rev(cercle_lf_in[288:308,"y"])), group = group, descri = "ce
75. court <- rbind(court, new_coords(x = c(cercle_lf_out[327:346,"x"], rev(cercle_lf_in[327:346,"x"])),
76. y = c(cercle_lf_out[327:346,"y"], rev(cercle_lf_in[327:346,"y"])), group = group, descri = "ce
77. court <- rbind(court, new_coords(x = c(cercle_lf_out[365:385,"x"], rev(cercle_lf_in[365:385,"x"])),
78. y = c(cercle_lf_out[365:385,"y"], rev(cercle_lf_in[365:385,"y"])), group = group, descri = "ce
79. court <- rbind(court, new_coords(x = c(cercle_lf_out[404:423,"x"], rev(cercle_lf_in[404:423,"x"])),
80. y = c(cercle_lf_out[404:423,"y"], rev(cercle_lf_in[404:423,"y"])), group = group, descri = "ce
81. court <- rbind(court, new_coords(x = c(cercle_lf_out[442:462,"x"], rev(cercle_lf_in[442:462,"x"])),
82. y = c(cercle_lf_out[442:462,"y"], rev(cercle_lf_in[442:462,"y"])), group = group, descri = "ce
83. court <- rbind(court, new_coords(x = c(cercle_lf_out[481:500,"x"], rev(cercle_lf_in[481:500,"x"])),
84. y = c(cercle_lf_out[481:500,"y"], rev(cercle_lf_in[481:500,"y"])), group = group, descri = "ce
85. court <- rbind(court, new_coords(x = c(17-0.5,17-0.5,17,17), y = c(7,7+1/6,7+1/6,7), group = group, descri = "marque 1 LF gauch
86. court <- rbind(court, new_coords(x = c(17-0.5,17-0.5,17,17), y = c(8+1/6,8+1/3,8+1/3,8+1/6), group = group, descri = "marque 2
87. court <- rbind(court, new_coords(x = c(17-0.5,17-0.5,17,17), y = c(11+1/3,11.5,11.5,11+1/3), group = group, descri = "marque 3
88. court <- rbind(court, new_coords(x = c(17-0.5,17-0.5,17,17), y = c(14.5,14.5+1/6,14.5+1/6,14.5), group = group, descri = "marqu
89. court <- rbind(court, new_coords(x = c(33,33,33+0.5,33+0.5), y = c(7,7+1/6,7+1/6,7), group = group, descri = "marque 1 LF droit
90. court <- rbind(court, new_coords(x = c(33,33,33+0.5,33+0.5), y = c(8+1/6,8+1/3,8+1/3,8+1/6), group = group, descri = "marque 2
91. court <- rbind(court, new_coords(x = c(33,33,33+0.5,33+0.5), y = c(11+1/3,11.5,11.5,11+1/3), group = group, descri = "marque 3
92. court <- rbind(court, new_coords(x = c(33,33,33+0.5,33+0.5), y = c(14.5,14.5+1/6,14.5+1/6,14.5), group = group, descri = "marqu
93. court <- rbind(court, new_coords(x = c(0-1/6,0-1/6,50+1/6,50+1/6), y = c(94/2-1/12,94/2, 94/2, 94/2-1/12), group = group, descr
94. court <- rbind(court, new_coords(x = c(cercle_mil_out[250:500,"x"], rev(cercle_mil_in[250:500,"x"])),
95. y = c(cercle_mil_out[250:500,"y"], rev(cercle_mil_in[250:500,"y"])), group = group, descri = "
96. court <- rbind(court, new_coords(x = c(cercle_mil_petit_out[250:500,"x"], rev(cercle_mil_petit_in[250:500,"x"])),
97. y = c(cercle_mil_petit_out[250:500,"y"], rev(cercle_mil_petit_in[250:500,"y"])), group = group
98. court <- rbind(court, new_coords(x = cercle_ce[,"x"], y = cercle_ce[,"y"], group = group, descri = "anneau"))
99. #Create the graph
100. P <- ggplot() + geom_polygon(data = court, aes(x = x, y = y, group = group), col = "black") +
101. coord_equal() +
102. ylim(-2,96) +
103. xlim(-5,55) +
104. scale_x_continuous(breaks = c(0, 12.5, 25, 37.5, 50)) +
105. scale_y_continuous(breaks = c(0, 23.5, 47, 70.5, 94)) +
106. xlab("") + ylab("") +
107. theme(axis.text.x = element_blank(),
108. axis.text.y = element_blank(), axis.ticks.x = element_blank(),
109. axis.ticks.y = element_blank(), axis.title = element_blank()
110. )
111. P
112. halfP <- P + coord_cartesian(ylim = c(-2, 44.7))
113. halfP