如何解决如何将行的一部分移到R中的新行?
我有一个问题,我不知道是否有解决办法。我有一个需要处理的大型电子表格(20000行和500列),当应该将数据放入第二行和第三行时,会将数据放入其他列中。 每个条目跨越一个大行,而不是应有的3个小行。所以现在我需要在每个现有行之后创建两个新行。然后从C-H到C-L列中获取数据,并将其移至以下行。
C-A C-B C-C C-D C-E C-F C-G C-H C-I C-J C-K C-L
A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12
B1 B2 B3 B4 B5 B6 B7 B8 B9 B10 B11 B12
如何将C-H中的观察结果通过C-L移到包含一些现有数据的新行中,所以看起来像这样:
C-A C-B C-C C-D C-E C-F C-G C-H C-I C-J C-K C-L
A1 A2 A3 A4 A5 A6
A1 A2 A3 A7 A8 A9
A1 A2 A3 A10 A11 A12
B1 B2 B3 B4 B5 B6
B1 B2 B3 B7 B8 B9
B1 B2 B3 B10 B11 B12
依此类推,直到20,000行变成60,000行。在那里对我有帮助吗?
提前谢谢!
解决方法
一种方法是获取长格式的数据,分别创建3个值的组,然后再次获取宽格式的数据。
library(dplyr)
library(tidyr)
df %>%
pivot_longer(cols = -(`C-A`:`C-C`)) %>%
group_by(`C-A`,`C-B`,`C-C`) %>%
mutate(grp = ceiling(row_number()/3),name = rep(paste0('col',1:3),length.out = n())) %>%
pivot_wider() %>%
ungroup %>%
select(-grp)
# `C-A` `C-B` `C-C` col1 col2 col3
# <chr> <chr> <chr> <chr> <chr> <chr>
#1 A1 A2 A3 A4 A5 A6
#2 A1 A2 A3 A7 A8 A9
#3 A1 A2 A3 A10 A11 A12
#4 B1 B2 B3 B4 B5 B6
#5 B1 B2 B3 B7 B8 B9
#6 B1 B2 B3 B10 B11 B12
数据
df <- structure(list(`C-A` = c("A1","B1"),`C-B` = c("A2","B2"),`C-C` = c("A3","B3"),`C-D` = c("A4","B4"),`C-E` = c("A5","B5"),`C-F` = c("A6","B6"),`C-G` = c("A7","B7"),`C-H` = c("A8","B8"),`C-I` = c("A9","B9"),`C-J` = c("A10","B10"),`C-K` = c("A11","B11"),`C-L` = c("A12","B12")),class = "data.frame",row.names = c(NA,-2L))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。