如何根据两列计算数字

Question

我有这样的数据

df <- structure(list(V1 = structure(c(2L, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 
1L, 1L, 1L, 1L, 3L, 2L, 2L, 4L, NA, 2L, 2L, 2L, 2L, 4L, 5L, 5L, 
5L, NA, NA, 4L), .Label = c("", "1 x Bruit (U)", "1 x TAMAN (M)", 
"2 x Bruit (U)", "2 x TIKIam(T)"), class = "factor"), V2 = structure(c(1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L), .Label = c("BUX1_T10963", 
"BUX1_T10964", "BUX1_T10965", "BUX1_T10966", "BUX2_T10076"), class = "factor")), .Names = c("V1", 
"V2"), class = "data.frame", row.names = c(NA, -28L))

我尝试做一个例子，以便更好地帮助我

前两列是这样的

1 x 布鲁特 (U) BUX1_T10963 2 x 布鲁特 (U) BUX1_T10963 2 x 布鲁特 (U) BUX1_T10963

这里我想知道有多少 BUX1_T10963 有Bruit (U)，有多少没有。或有其他东西或空单元格

例如上面的例子，答案是

BUX1_T10963 有 5 个布鲁特 (U)

输出如下所示

                  BUX1_T10963      
Bruit (U)               5
NA                      0
.                       0
.                       0

@d.b 给出了类似

的答案

table(df$V1, df$V2)

                BUX1_T10963 BUX1_T10964 BUX1_T10965 BUX1_T10966 BUX2_T10076
                          0           4           0           0           0
  1 x Bruit (U)           1           1           2           4           0
  1 x TAMAN (M)           0           0           1           0           0
  2 x Bruit (U)           2           4           1           1           1
  2 x TIKIam(T)           0           0           0           3           0

但它并没有像上面的格式那样显示分配给它们的空的数量，并且还计算了不同于 1 的 2

table(replace(gsub("(\\d x )", "", df$V1), is.na(df$V1), "NA"), df$V2)

            BUX1_T10963 BUX1_T10964 BUX1_T10965 BUX1_T10966 BUX2_T10076
                      0           4           0           0           0
  Bruit (U)           3           5           3           5           1
  NA                  0           0           1           2           0
  TAMAN (M)           0           0           1           0           0
  TIKIam(T)           0           0           0           3           0


BUX1_T10963 should have 4 empty 
BUX1_T10965 should have 1
BUX1_T10966 should have 2

有没有办法在同一个原料上制作它？

Answer 1

table 命令做你想做的事：

table(df$V1, df$V2, useNA = "ifany")

表格适用于所有不同的值。如果您希望空白 "" 等同于缺失值 NA，则需要对数据进行更改：

df[df == ""] = NA

同样，如果 1 x 或 2 x 无关紧要，请摆脱它们。也许添加一个新列

df$goodname = gsub(pattern = "^[0-9]+ x ", replacement = "", x = df$V1)

table(df$goodname, df$V2, useNA = "ifany")
            BUX1_T10963 BUX1_T10964 BUX1_T10965 BUX1_T10966 BUX2_T10076
  Bruit (U)           3           5           3           5           1
  TAMAN (M)           0           0           1           0           0
  TIKIam(T)           0           0           0           3           0
  <NA>                0           4           1           2           0

---

将数量提取到自己的列中并制表：

library(stringr)
# extract the number
df$quantity = as.numeric(str_extract(df$V1, "^[0-9]+"))
# any missing values assume to be 1
df$quantity[is.na(df$quantity)] = 1

library(reshape2)
dcast(data = df, formula = goodname ~ V2, value.var = "quantity", fun.aggregate = sum, na.rm = T)
#    goodname BUX1_T10963 BUX1_T10964 BUX1_T10965 BUX1_T10966 BUX2_T10076
# 1 Bruit (U)           5           9           4           6           2
# 2 TAMAN (M)           0           0           1           0           0
# 3 TIKIam(T)           0           0           0           6           0
# 4      <NA>           0           4           1           2           0