如何根据R中的分类列的条件总和列

Question

我在r中有一个名为house_expenss的数据框，看起来像这样（2列：描述和金额）：

DESCRIPTION             AMOUNT
-----------            ---------
COUCH                    $801.713

TV                       $4999.996

TV_MOUNT                 $575.867

ENTERTAINMENT_SYSTEM     $1102.392

MATTRESS                 $1225.893

BEDFRAME                 $356.789

PILLOWS                  $528.989

我想为具有总和的数据框架创建两个额外的列，并将其四舍五入为2个小数点

1. ：沙发，电视，TV_Mount，Entertainment_System），= 2）
2. 卧室= sum（圆形（床垫，床架，枕头），= 2）

我尝试过

house_expenses  <- house_expenses %>%

                   group_by(DESCRIPTION) %>%

                   mutate(LIVING_ROOM_COSTS  = sum(round(DESCRIPTION == "COUCH" &
                                                         DESCRIPTION == "TV" &
                                                         DESCRIPTION == "TV_MOUNT" &
                                                         DESCRIPTION == "ENTERTAINMENT_SYSTEM" , digits = 2)),
                    mutate(BEDROOM_COSTS = sum(round(DESCRIPTION == "MATTRESS" &
                                                     DESCRIPTION == "BEDFRAME" &
                                                     DESCRIPTION == "PILLOWS", digits = 2)))

但不幸的是，这没有起作用。以前有人遇到过这个问题吗？

Answer 1

要获取解决方案，您想做一些子集，
description％in％c（“ couch”，“电视”，“ TV_Mount”，“ Entertainment_System”）
根据该行获得真或错误，然后您的子集金额
金额[Description％in％C（“ Couch”，“ TV”，“ TV_Mount”，“ Entertainment_System”）]

然后，将值包装在一个和围绕：

df$LIVING_ROOM_COSTS = with(df, round(sum(Amount[Description %in% c("COUCH", "TV","TV_MOUNT","ENTERTAINMENT_SYSTEM")]), 2))
df$BEDROOM_COSTS = with(df, round(sum(Amount[Description %in% c("MATRESS", "BEDFRAME","PILLOWS")]), 2))

这给了我们数据。框架：

           Description   Amount LIVING_ROOM_COSTS BEDROOM_COSTS
1                COUCH  801.713           7479.97        885.78
2                   TV 4999.996           7479.97        885.78
3             TV_MOUNT  575.867           7479.97        885.78
4 ENTERTAINMENT_SYSTEM 1102.392           7479.97        885.78
5             MATTRESS 1225.893           7479.97        885.78
6             BEDFRAME  356.789           7479.97        885.78
7              PILLOWS  528.989           7479.97        885.78

使用使用允许我们在不使用$的情况下参考列名，

因为没有足够答案的原因是因为给出的格式化所需的额外工作和人类是通常懒惰。

如果您已经格式化了data.frame。这样：

           Description   Amount
1                COUCH  801.713
2                   TV 4999.996
3             TV_MOUNT  575.867
4 ENTERTAINMENT_SYSTEM 1102.392
5             MATTRESS 1225.893
6             BEDFRAME  356.789
7              PILLOWS  528.989

或使用函数dput：

structure(list(Description = c("COUCH", "TV", "TV_MOUNT", "ENTERTAINMENT_SYSTEM", 
"MATTRESS", "BEDFRAME", "PILLOWS"), Amount = c(801.713, 4999.996, 
575.867, 1102.392, 1225.893, 356.789, 528.989)), class = "data.frame", row.names = c(NA, 
-7L))

它会迅速回答。