-
Notifications
You must be signed in to change notification settings - Fork 0
/
README.Rmd
68 lines (49 loc) · 3.7 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r setup, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%",
message = FALSE
)
```
[](https://travis-ci.org/openvolley/peranavolley)
[](https://www.tidyverse.org/lifecycle/#stable)
# peranavolley
An R package for reading [Perana Sports VBStats](http://peranasports.com/software/vbstatshd/) volleyball scouting files as well as [Perana Sports VideoTagger](http://peranasports.com/software/videotagger/) files.
See also [datavolley](https://github.com/openvolley/datavolley), which provides similar functionality for reading DataVolley files into R. The conventions (data structures, variable naming, etc) used in the peranavolley package follow those of the datavolley package.
## Installation
```{r eval = FALSE}
options(repos = c(openvolley = "https://openvolley.r-universe.dev",
CRAN = "https://cloud.r-project.org"))
install.packages("peranavolley")
## or
## install.packages("remotes") ## if needed
remotes::install_github("openvolley/peranavolley")
```
## Example
Read one of the example data files bundled with the package:
```{r}
library(peranavolley)
x <- pv_read(pv_example_file())
summary(x)
```
Number of serves by team:
```{r}
serve_idx <- which(plays(x)$skill == "Serve")
table(plays(x)$team[serve_idx])
```
Attack kill rate by player, using `dplyr`:
```{r}
library(dplyr)
plays(x) %>% dplyr::filter(skill == "Attack") %>%
group_by(team, player_name, player_id) %>%
dplyr::summarize(`N attacks` = n(), `Kill rate` = mean(evaluation == "Winning attack", na.rm = TRUE)) %>%
ungroup %>%
dplyr::arrange(desc(`Kill rate`)) %>% dplyr::select(-player_id)
```