Kirill Müller
pirms 7 gadiem
6 mainītis faili ar 155 papildinājumiem un 155 dzēšanām
+ 1
- 1
R/tidyr_spread_gather.R
Parādīt failu
| @@ -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ārs
images/static/png/tidyr-gather.png
Parādīt failu
| Pirms | Pēc |
|---|---|
|
|
| Platums: 1999 | Augstums: 1999 | Izmērs: 40KB | Platums: 2100 | Augstums: 2100 | Izmērs: 40KB |
Binārs
images/static/png/tidyr-spread.png
Parādīt failu
| Pirms | Pēc |
|---|---|
|
|
| Platums: 1999 | Augstums: 1999 | Izmērs: 32KB | Platums: 2100 | Augstums: 2100 | Izmērs: 32KB |
+ 83
- 83
images/static/svg/tidyr-gather.svg
Failā izmaiņas netiks attēlotas, jo tās ir par lielu
Parādīt failu
+ 71
- 71
images/static/svg/tidyr-spread.svg
Failā izmaiņas netiks attēlotas, jo tās ir par lielu
Parādīt failu
Binārs
images/tidyr-spread-gather.gif
Parādīt failu
| Pirms | Pēc |
|---|---|
|
|
| Platums: 480 | Augstums: 480 | Izmērs: 904KB | Platums: 480 | Augstums: 480 | Izmērs: 893KB |
Notiek ielāde…