Code:
library(tidyr)
library(dplyr)
test_scores <- data_frame(student = c("Amy", "Belle", "Candice"),
score = c("75-81-86", "77-70-82", "90-91-91"))
test_scores
Output:
# A tibble: 3 x 2
student score
<chr> <chr>
1 Amy 75-81-86
2 Belle 77-70-82
3 Candice 90-91-91
Code:
separate(test_scores, score, c("score1", "score2", "score3")) %>%
gather(key, score, -student) %>%
select(-key)
Output:
# A tibble: 9 x 2
student score
<chr> <chr>
1 Amy 75
2 Belle 77
3 Candice 90
4 Amy 81
5 Belle 70
6 Candice 91
7 Amy 86
8 Belle 82
9 Candice 91
Code:
separate_rows(test_scores, score)
Output:
# A tibble: 9 x 2
student score
<chr> <chr>
1 Amy 75
2 Amy 81
3 Amy 86
4 Belle 77
5 Belle 70
6 Belle 82
7 Candice 90
8 Candice 91
9 Candice 91