Kirill Müller
7 years ago
6 changed files with 155 additions and 155 deletions
+ 1
- 1
R/tidyr_spread_gather.R
View File
| @@ -67,7 +67,7 @@ sg_data <- bind_rows( | |||
| mutate( | |||
| label = ifelse(value %in% setdiff(colnames(wide), "id"), "key", label), | |||
| label = ifelse(value %in% c("key", "val"), "zzz", label), | |||
| .text_size = ifelse(grepl("label", .id), 8, 12) | |||
| .text_size = ifelse(grepl("label", .id) | .y == 0, 8, 12) | |||
| ) %>% | |||
| arrange(label, .id, value) %>% | |||
| mutate(frame = factor(frame, labels = c('spread(long, key, val)', 'gather(wide, key, val, x:z)'))) %>% | |||
BIN
images/static/png/tidyr-gather.png
View File
| Before | After |
|---|---|
|
|
| Width: 1999 | Height: 1999 | Size: 40KB | Width: 2100 | Height: 2100 | Size: 40KB |
BIN
images/static/png/tidyr-spread.png
View File
| Before | After |
|---|---|
|
|
| Width: 1999 | Height: 1999 | Size: 32KB | Width: 2100 | Height: 2100 | Size: 32KB |
+ 83
- 83
images/static/svg/tidyr-gather.svg
File diff suppressed because it is too large
View File
+ 71
- 71
images/static/svg/tidyr-spread.svg
File diff suppressed because it is too large
View File
BIN
images/tidyr-spread-gather.gif
View File
| Before | After |
|---|---|
|
|
| Width: 480 | Height: 480 | Size: 904KB | Width: 480 | Height: 480 | Size: 893KB |
Loading…