Skip to content
GitLab
An error occurred while loading the file. Please try again.
Switch branch/tag
Find file BlameHistoryPermalink
make_soccer_map.R 4.18 KiB
Open in Web IDE
1 
make_soccer_map_pp <- function(rcg) {
2 
    soocer_field = c(6000,104,68)
3 
    names(soocer_field) = c("time","length","width")
4 
    soccer_map <- array(0, dim = c(6000,13,104,68))
5
6 
    for(i in seq_along(rcg)){
7 
        # SP - (x,y) location	1 on attacking players’ location (x,y)
8 
        px <- round(rcg$x[i])+soocer_field["length"]/2
9 
        py <- round(rcg$y[i])+soocer_field["width"]/2
10 
        bx <- round(rcg$ball_x[i])+soocer_field["length"]/2
11 
        by <- round(rcg$ball_y[i])+soocer_field["width"]/2
12 
        step <- rcg$step[i]
13 
        if(rcg$side[i]=="l"){
14 
            soccer_map[step,1,px,py] = rcg$unum[i]
15 
            soccer_map[step,3,px,py] = rcg$vx[i]
16 
            soccer_map[step,4,px,py] = rcg$vy[i]
17 
        }else if (rcg$side[i]=="r"){
18 
            soccer_map[step,2,px,py] = rcg$unum[i]
19 
            soccer_map[step,5,px,py] = rcg$vx[i]
20 
            soccer_map[step,6,px,py] = rcg$vy[i]
21 
        }
22 
        soccer_map[step,7,px,py] = atan(py/(soocer_field["length"]/2 - px))
23 
        dist_p_b = sqrt((bx-px)^2+(by-py)^2)
24 
        dist_p_g = sqrt(((soocer_field["length"]/2)-px)^2+(py)^2)
25
26 
        soccer_map[step,8,px,py] = (py-by) / dist_p_b
27 
        soccer_map[step,9,px,py] = (px-bx) / dist_p_b
28 
        soccer_map[step,10,px,py] = py / dist_p_g
29 
        soccer_map[step,11,px,py] = px / dist_p_g
30 
        soccer_map[step,12,px,py] = dist_p_b
31 
        soccer_map[step,13,px,py] = dist_p_g
32 
    }
33 
    return(soccer_map)
34 
}
35
36 
make_soccer_map_ps <- function(rcg) {
37 
    soocer_field = c(6000,104,68)
38 
    names(soocer_field) = c("time","length","width")
39 
    soccer_map <- array(0, dim = c(6000,13,104,68))
40
41 
    for(i in seq_along(rcg)){
42 
        # SP - (x,y) location	1 on attacking players’ location (x,y)
43 
        px <- round(rcg$x[i])+soocer_field["length"]/2
44 
        py <- round(rcg$y[i])+soocer_field["width"]/2
45 
        bx <- round(rcg$ball_x[i])+soocer_field["length"]/2
46 
        by <- round(rcg$ball_y[i])+soocer_field["width"]/2
47 
        step <- rcg$step[i]
48 
        if(rcg$side[i]=="l"){
49 
            soccer_map[step,1,px,py] = rcg$unum[i]
50 
            soccer_map[step,3,px,py] = rcg$vx[i]
51 
            soccer_map[step,4,px,py] = rcg$vy[i]
52 
        }else if (rcg$side[i]=="r"){
53 
            soccer_map[step,2,px,py] = rcg$unum[i]
54 
            soccer_map[step,5,px,py] = rcg$vx[i]
55 
            soccer_map[step,6,px,py] = rcg$vy[i]
56 
        }
57 
        soccer_map[step,7,px,py] = atan(py/(soocer_field["length"]/2 - px))
58 
        dist_p_b = sqrt((bx-px)^2+(by-py)^2)
59 
        dist_p_g = sqrt(((soocer_field["length"]/2)-px)^2+(py)^2)
60
61 
        soccer_map[step,8,px,py] = (py-by) / dist_p_b
62 
        soccer_map[step,9,px,py] = (px-bx) / dist_p_b
63 
        soccer_map[step,10,px,py] = py / dist_p_g
64 
        soccer_map[step,11,px,py] = px / dist_p_g
65 
        soccer_map[step,12,px,py] = dist_p_b
66 
        soccer_map[step,13,px,py] = dist_p_g
67 
    }
68 
    return(soccer_map)
69 
}
70
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
make_soccer_map_pe <- function(rcg) { soocer_field = c(6000,104,68) names(soocer_field) = c("time","length","width") soccer_map <- array(0, dim = c(6000,13,104,68)) for(i in seq_along(rcg)){ # SP - (x,y) location 1 on attacking players’ location (x,y) px <- round(rcg$x[i])+soocer_field["length"]/2 py <- round(rcg$y[i])+soocer_field["width"]/2 bx <- round(rcg$ball_x[i])+soocer_field["length"]/2 by <- round(rcg$ball_y[i])+soocer_field["width"]/2 step <- rcg$step[i] if(rcg$side[i]=="l"){ soccer_map[step,1,px,py] = rcg$unum[i] soccer_map[step,3,px,py] = rcg$vx[i] soccer_map[step,4,px,py] = rcg$vy[i] }else if (rcg$side[i]=="r"){ soccer_map[step,2,px,py] = rcg$unum[i] soccer_map[step,5,px,py] = rcg$vx[i] soccer_map[step,6,px,py] = rcg$vy[i] } soccer_map[step,7,px,py] = atan(py/(soocer_field["length"]/2 - px)) dist_p_b = sqrt((bx-px)^2+(by-py)^2) dist_p_g = sqrt(((soocer_field["length"]/2)-px)^2+(py)^2) soccer_map[step,8,px,py] = (py-by) / dist_p_b soccer_map[step,9,px,py] = (px-bx) / dist_p_b soccer_map[step,10,px,py] = py / dist_p_g soccer_map[step,11,px,py] = px / dist_p_g soccer_map[step,12,px,py] = dist_p_b soccer_map[step,13,px,py] = dist_p_g } return(soccer_map) }