我有一个很大的数据帧，我想从各个列创建几个新的数据帧.每个新的数据帧应该由前两列加上后面的一列组成.
我可以手动完成此操作；我想要的虚拟产品是subA、subB和subC.
library(tidyverse)
# dummy dataframe
chr1 <- letters[1:4]
chr2 <- letters[23:26]
A <- 1:4
B <- 5:8
C <- 9:12
data <- tibble(chr1, chr2, A, B, C)
# manual subsetting
subA <- data %>%
select(chr1, chr2, A)
subB <- data %>%
select(chr1, chr2, B)
subC <- data %>%
select(chr1, chr2, C)
但是，我的原始dataframe大约有700列，所以我正在寻找某种简单的迭代，最好是tidyVerse(Purrr)，它足够灵活，可以通过管道补充到其他函数中.
在base年中:
lapply(split.default(data[-c(1,2)], names(data[-c(1,2)])), function(x)
cbind(data[c(1,2)], x))
或tidyverse分:
data %>%
pivot_longer(-c(1, 2)) %>%
split(., .$name) %>%
map(., ~pivot_wider(.x))
#> $A
#> # A tibble: 4 x 3
#> chr1 chr2 A
#> <chr> <chr> <int>
#> 1 a w 1
#> 2 b x 2
#> 3 c y 3
#> 4 d z 4
#>
#> $B
#> # A tibble: 4 x 3
#> chr1 chr2 B
#> <chr> <chr> <int>
#> 1 a w 5
#> 2 b x 6
#> 3 c y 7
#> 4 d z 8
#>
#> $C
#> # A tibble: 4 x 3
#> chr1 chr2 C
#> <chr> <chr> <int>
#> 1 a w 9
#> 2 b x 10
#> 3 c y 11
#> 4 d z 12
如果要将这些数据帧保存为单独的数据帧:
list2env(
lapply(split.default(data[-c(1,2)], paste0("sub", names(data[-c(1,2)]))), function(x)
cbind(data[c(1,2)], x)),
envir=.GlobalEnv)
创建于2024-01-16年第reprex v2.0.2页