r - 如何解开r中行数奇数的长列并命名列

Question

我在一长列中有一个嵌套数据。数据代表不同商店库存的不同商品。每个项目有 6 个值，编号、项目、到期日期、制造商、数量、单价、折扣和总价。这些物品以数字 1,2,3 列出，然后从新商店 1,2 开始，然后是下一个 1,2,3 等。我的目标是在一行中收集一家商店的所有物品，并且无论何时是 1 开始新行

1
ABC RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
2
ABC RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
1
BCD
Amp
Apr 2024
XYZ
280
$2.00 
$0 
$ 2 555.0
2
BCD RH --
Amp
Mar 2024
ABC D --
280
$5.20 
$0 
$ 1 456.0
3
BCD RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
1
1. HJK
Pack
Mar 2023
D --
80
$0.20 
$0 
$ 3 456.0
2
2. BCD
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
3
BCD RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
4
BCD RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
5
BCD RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0
6
BCD RH --
Pack
Mar 2022
ABC D --
280
$5.20 
$0 
$ 1 456.0

这就是我要显示的内容

 |No |Item  | Size |Exp     |Manuf |Qty  |Unit |Dis |Total    |No| Item|
 |1  |ABC RH| Pack |Mar 2022| ABC D| 280 |$5.20|$0  |$ 1 456.0|2 | ABC |
 |1  |BCD RH| Amp  |Apr 2024| XYZ  | 280 |$2.00|$0  |$ 2 555.0|2 | BCD |
 |1  |1. HJK| Pack |Mar 2023| D -- | 80  |$0.20|$0  |$ 3 456.0|2.| BCD |

谢谢您的帮助

Answer 1

你可以试试 tidyverse

library(tidyverse)
as.data.frame(df) %>% 
  mutate(V2 = cumsum(df == "1")) %>% 
  group_by(V2) %>%
  mutate(V4 = 1:n()) %>% 
  pivot_wider(names_from = V4, values_from = df, names_prefix = "Item") %>% 
  ungroup() %>% 
  select(-V2)
  # A tibble: 3 x 9
  Item1 Item2 Item3 Item4 Item5 Item6 Item7 Item8 Item9
  <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 1     A     B     C     2     A     B     NA    NA   
2 1     A     B     C     D     NA    NA    NA    NA   
3 1     A     2     A     B     C     3     A     B   

Answer 2

使用基础 R 的可能解决方案：

df=c('1','A','B','C','2','A','B','C','1','A','B','C','1','A','B','C','2','A','B','C','3','A','B','C')
df <- data.frame(V=df)

idx <- which(df$V == 1)
n <- length(idx)

leng <- idx[-1]-idx[-n]
leng <- c(leng,length(df$V)-idx[n]+1)

l <- split(df$V, rep(1:n, leng))
l <- lapply(l, `length<-`, max(lengths(l)))

as.data.frame(do.call(rbind,l))