Question

我有如下数据

|年份Qrtrs |类型|频率|

| 1950年| JAS | BS | 1 |

| 1950年| OND | BS | 1 |

| 1950年| OND | BY | 2 |

我想这样制作

+------+------+-----+----+----+
| Year | Qrts | All | BS | BY |
+------+------+-----+----+----+
| 1950 | JAS  |   1 |  1 |  0 |
| 1950 | OND  |   4 |  2 |  2 |
+------+------+-----+----+----+

我尝试使用tapply，但没有得到我想要的。

谢谢！

Answer 1

您的示例数据，可复制和可用：

dat <- read.table(header=TRUE, stringsAsFactors=FALSE, text='
Year Qrtrs Month Type freq
1 1950 JAS 9 BS 1
2 1950 OND 10 BS 1
3 1950 OND 11 BS 1
4 1950 OND 12 BY 1 ')

使用dplyr：

library(dplyr)
dat %>%
  group_by(Year, Qrtrs, Type) %>%
  summarize(count = sum(freq)) %>%
  tidyr::spread(Type, count, fill=0) %>%
  mutate(All = sum(BS:BY))
# # A tibble: 2 x 5
# # Groups:   Year, Qrtrs [2]
#    Year Qrtrs    BS    BY   All
#   <int> <chr> <dbl> <dbl> <int>
# 1  1950 JAS       1     0     1
# 2  1950 OND       2     1     3

使用data.table：

library(data.table)
DT <- as.data.table(dat)
dcast(DT[,.(count = sum(freq)), by=c("Year", "Qrtrs", "Type")],
      Year + Qrtrs ~ Type, value.var = "count", fun=sum)[
       , All := BS+BY,][]
#    Year Qrtrs BS BY All
# 1: 1950   JAS  1  0   1
# 2: 1950   OND  2  1   3

我认为您上面的预期输出不正确，BS和BY的计数不一致。

从某处开始就有base-R解决方案

aggregate(freq ~ Year + Qrtrs + Type , data=dat, FUN=sum)

但是我已经没时间了...

将多行与R中的相同条目合并

1 个答案: