R：如何在数据框的不同列中查找对应的值

Madina Tultabayeva 发表于 Dev

麦地那（Madina Tultabayeva）

我是R的新手，我真的很喜欢上东西，这对您来说似乎很容易。我有一个数据帧，其中包含大量数据，例如AGE，它与特定的人有关，因此重复进行。我必须将其划分为多个范围，并查看每个组中有多少人。所以我有这个

[,1]
(1,23]  5912
(23,26] 5579
(26,28] 3314
(28,33] 6693
(33,37] 4682
(37,41] 4514
(41,46] 5169
(46,51] 4812
(51,57] 4236
(57,76] 4031`

现在，我还有G / B列，该列指示该人是BAD还是GOOD（分别为1,0）。需要计算1和0中有多少，即，每组人中的“坏”和“好”不同年龄段。所以数据应该像

           Total    Bad   Good
`(1,23]    5912    2912   3000 `.

等等希望得到帮助。

阿克伦

也许你可以尝试

library(data.table)
setDT(dat1)[,list(Total=.N, Bad=sum(GB), Good=sum(!GB)), keyby=range]

#       range Total Bad Good
# 1:    (0,1]    16   7    9
# 2:   (1,23]   257 132  125
# 3:  (23,26]    29  16   13
# 4:  (26,28]    19   8   11
# 5:  (28,33]    60  34   26
# 6:  (33,37]    52  30   22
# 7:  (37,41]    41  19   22
# 8:  (41,46]    56  25   31
# 9:  (46,51]    65  27   38
#10:  (51,57]    57  28   29
#11:  (57,76]   196 110   86
#12:  (76,85]   101  44   57
#13: (85,100]    51  24   27

或使用 dplyr

library(dplyr)
 dat1 %>%
      group_by(range) %>%
      summarise(Total=n(), Bad=sum(GB), Good=sum(!GB))

或使用aggregate从base R

  res <- do.call(`data.frame`,aggregate(GB~range, dat1,
                FUN=function(x) c(length(x), sum(x), sum(!x))))

数据

set.seed(42)
dat <- data.frame(AGE= sample(1:90, 1000, replace=TRUE),
                         GB=sample(0:1, 1000, replace=TRUE))

dat1 <- transform(dat, range=cut(AGE, 
           breaks=c(0,1,23,26,28,33,37,41,46,51,57,76,85,100)))

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。