Question

我有一个包含过去12个月库存数据的数据框。我在下面创建了一个模拟数据框三个月，这与我的数据集类似。

selection

我试图操纵数据框来生成一个报告，显示每个变量及其ID和SKU以及每个月的列，如下图所示。

重塑数据框我尝试使用dplyr和data.table库，但没有取得任何成功。如何将数据转换为每个月都有一列，就像我发布的图像一样？我对R来说还是个新人，所以对我很轻松。感谢。

Answer 1

ID = 4 and SKU = 115332H存在重复，因此我必须更改该值以删除重复项。

# Creating the data frame
inventory <- data.frame(ID=c(1,1,1,1,2,2,3,3,3,3,4,4,4), 
                        SKU=c("375F","375F","375F","375F","QX51","QX51","AEC","AEC","AEC","AEC","115332H","115332H","115332H"), 
                        inventory=c(3,4,14,5,18,5,4,13,4,10,3,2,2), sold=c(3,2,0,1,4,0,0,3,1,5,0,2,1), 
                        returned=c(1,0,2,0,0,0,1,0,1,1,0,2,0), 
                        month=c(0,1,2,3,0,2,3,0,1,2,1,2,3))

# Reshaping the data
  # Melting the data frame
  inv2 <- melt(inventory,id=c("ID","SKU","month"))
  # Reshaping
  inv2_wide <- reshape(inv2,v.names = "value",idvar = c("ID","SKU","variable"),
                       timevar = "month", direction = "wide")

# Ordering by ID variables
inv2_wide <- inv2_wide[order(inv2_wide$ID,inv2_wide$SKU),]

# Renaming the variables
names(inv2_wide) <- gsub("value\\.","Month",names(inv2_wide))


   ID     SKU  variable Month0 Month1 Month2 Month3
1   1    375F inventory      3      4     14      5
14  1    375F      sold      3      2      0      1
27  1    375F  returned      1      0      2      0
5   2    QX51 inventory     18     NA      5     NA
18  2    QX51      sold      4     NA      0     NA
31  2    QX51  returned      0     NA      0     NA
7   3     AEC inventory     13      4     10      4
20  3     AEC      sold      3      1      5      0
33  3     AEC  returned      0      1      1      1
11  4 115332H inventory     NA      3      2      2
24  4 115332H      sold     NA      0      2      1
37  4 115332H  returned     NA      0      2      0

Answer 2

我们可以使用tidyr

library(dplyr)
library(tidyr)
gather(inventory, Variable,value, inventory:returned)  %>% #reshape to long
       mutate(month = paste0("Month", month)) %>% #concat with "Month" string
       spread(month, value)#reshape to wide
#   ID     SKU  Variable Month0 Month1 Month2 Month3
#1   1    375F inventory      3      4     14      5
#2   1    375F  returned      1      0      2      0
#3   1    375F      sold      3      2      0      1
#4   2    QX51 inventory     18     NA      5     NA
#5   2    QX51  returned      0     NA      0     NA
#6   2    QX51      sold      4     NA      0     NA
#7   3     AEC inventory     13      4     10      4
#8   3     AEC  returned      0      1      1      1
#9   3     AEC      sold      3      1      5      0
#10  4 115332H inventory     NA      3      2      2
#11  4 115332H  returned     NA      0      2      0
#12  4 115332H      sold     NA      0      2      1

棘手的数据框整形

2 个答案: