This paste brought to you by Pastebin. View Raw

  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)
  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