-
Notifications
You must be signed in to change notification settings - Fork 0
/
lesson-2.R
63 lines (38 loc) · 1004 Bytes
/
lesson-2.R
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
## Tidy data concept
counts_df <- data.frame(
day = c("Monday", ...),
wolf = c(2, 1, 3),
hare = c(...),
...
)
## Reshaping multiple columns in category/value pairs
library(tidyr)
counts_gather <- gather(counts_df, ...)
counts_spread <- spread(counts_gather, ...)
## Exercise 1
...
## Read comma-separated-value (CSV) files
surveys <- ...
## Subsetting and sorting
library(dplyr)
surveys_1990_winter <- filter(...)
surveys_1990_winter <- select(surveys_1990_winter, ...)
sorted <- ...(surveys1990_winter, ...)
## Exercise 2
...
## Grouping and aggregation
surveys_1990_winter_gb <- group_by(...)
counts_1990_winter <- summarize(..., count = n())
## Exercise 3
...
## Transformation of variables
prop_1990_winter <- mutate(...)
## Exercise 4
...
## Chainning with pipes
prop_1990_winter_piped <- surveys %>%
filter(year == 1990, month %in% 1:3)
... # select all columns but year
... # group by species_id
... # summarize with counts
... # mutate into proportions