Question

我有一张表格如下：

   Rptname     Score

    Bebo23        8
    Bebo22        9
    Bebo19        10
    Alt88         12
    Alt67         11
    Jimm          5
    Jimm2         7

等。我想将那些相似的行分成几组。即

     Bebo         27
     Alt          22
     Jimm         12

行名称的开头始终是与组相似的部分，但相似的字符数可能会有所不同。我很欣赏我必须定义组并可能使用某种正则表达式，但我不确定如何在此基础上进行分组和求和。感谢您的帮助

Answer 1

您可以使用sub删除最后的数字并执行aggregate

do.call(`data.frame`, aggregate(Score~cbind(Rptname=sub('\\d+$', '', 
                        Rptname)), df, sum))
#    Rptname Score
#1     Alt    23
#2    Bebo    27
#3    Jimm    12

或transform与aggregate一起使用（由@docendo discimus建议）

aggregate(Score ~ Rptname, transform(df, Rptname = sub("\\d+$", 
                        "", Rptname)), sum)

或data.table

的选项

library(data.table)
 setDT(df)[, .(Score=sum(Score)),
           by=list(Rptname=sub('\\d+$','', Rptname))]

或使用rowsum（@alexis_laz建议

with(df, rowsum(Score, sub('\\d+$', '', Rptname)))
#     [,1]
#Alt    23
#Bebo   27
#Jimm   12

更新

如果分组基于前三个字符，则可以使用substr

aggregate(Score~Rptname, transform(df, Rptname=substr(Rptname, 1,3)), sum)
#   Rptname Score
#1     Alt    23
#2     Beb    27
#3     Jim    12

Answer 2

使用dplyr：

library(dplyr)
DF %>% group_by(Rptname = sub("\\d+$", "", Rptname)) %>% summarise(Score = sum(Score))
#Source: local data frame [3 x 2]
#
#  Rptname Score
#1     Alt    23
#2    Bebo    27
#3    Jimm    12

更新

如果要按＆＃34; Rptname＆＃34;中的前三个字母分组，可以在dplyr中使用以下代码：

DF %>% group_by(Rptname = substr(Rptname, 1, 3)) %>% summarise(Score = sum(Score))
#Source: local data frame [3 x 2]
#
#  Rptname Score
#1     Alt    23
#2     Beb    27
#3     Jim    12

如何在R中对类似的行进行分组

2 个答案:

更新