Kirill Müller
7 年前
+ 1
- 1
R/tidyr_spread_gather.R
查看文件
| @@ -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)'))) %>% | |||
二进制
images/static/png/tidyr-gather.png
查看文件
| 之前 | 之后 |
|---|---|
|
|
| 宽度: 1999 | 高度: 1999 | 大小: 40KB | 宽度: 2100 | 高度: 2100 | 大小: 40KB |
二进制
images/static/png/tidyr-spread.png
查看文件
| 之前 | 之后 |
|---|---|
|
|
| 宽度: 1999 | 高度: 1999 | 大小: 32KB | 宽度: 2100 | 高度: 2100 | 大小: 32KB |
+ 83
- 83
images/static/svg/tidyr-gather.svg
文件差异内容过多而无法显示
查看文件
+ 71
- 71
images/static/svg/tidyr-spread.svg
文件差异内容过多而无法显示
查看文件
二进制
images/tidyr-spread-gather.gif
查看文件
| 之前 | 之后 |
|---|---|
|
|
| 宽度: 480 | 高度: 480 | 大小: 904KB | 宽度: 480 | 高度: 480 | 大小: 893KB |
正在加载...