如何根據r中的不同值組合行?

我想對某些行的值求和。例如,雖然ID是相同的,但當字母是a和b時,我們將對值求和。

  ID <- c(1,1,1,8,8,8,2,2,2,5,5,5,7,7,7)
  letter <- c("a","b","c","a","b","c","a","b","c","a","b","c","a","b","c")
  value <- c(111,75,94,37,85,86,76,55,72,62,56,35,85,44,65)
  dataframe <- data.frame(ID,letter,value)

結果如下

   ID letter value
1   1      a   111
2   1      b    75
3   1      c    94
4   8      a    37
5   8      b    85
6   8      c    86
7   2      a    76
8   2      b    55
9   2      c    72
10  5      a    62
11  5      b    56
12  5      c    35
13  7      a    85
14  7      b    44
15  7      c    65
? 最佳回答:

有了dplyr你可以做到這一點

library(dplyr)

dataframe %>% 
  group_by(ID) %>% 
  mutate(sum=sum(ifelse(letter=="a"|letter=="b",value,NA),na.rm=T)) %>% 
  ungroup()
# A tibble: 15 × 4
      ID letter value   sum
   <dbl> <chr>  <dbl> <dbl>
 1     1 a        111   186
 2     1 b         75   186
 3     1 c         94   186
 4     8 a         37   122
 5     8 b         85   122
 6     8 c         86   122
 7     2 a         76   131
 8     2 b         55   131
 9     2 c         72   131
10     5 a         62   118
11     5 b         56   118
12     5 c         35   118
13     7 a         85   129
14     7 b         44   129
15     7 c         65   129

或者更緊湊

dataframe %>% 
  group_by(ID) %>% 
  summarise(sum=sum(ifelse(letter=="a"|letter=="b",value,NA),na.rm=T))
# A tibble: 5 × 2
     ID   sum
  <dbl> <dbl>
1     1   186
2     2   131
3     5   118
4     7   129
5     8   122
主站蜘蛛池模板: 中日韩一区二区三区| 成人区精品一区二区不卡亚洲 | 亚洲福利视频一区二区三区| 无码人妻精品一区二区三区不卡| 亚洲一区二区三区香蕉| 精品一区二区三区影院在线午夜| 国产高清在线精品一区| 精品国产香蕉伊思人在线在线亚洲一区二区 | 亚洲一区无码中文字幕乱码| 亲子乱av一区二区三区| 好湿好大硬得深一点动态图91精品福利一区二区 | 美日韩一区二区三区| 精品乱码一区二区三区四区 | 久久久人妻精品无码一区| 日本精品一区二区三本中文| 亚洲一区二区三区久久| 亚洲一区二区三区高清| 久久精品一区二区三区资源网| 国产高清在线精品一区小说| 香蕉久久AⅤ一区二区三区| 国产suv精品一区二区6| 无码av不卡一区二区三区| 狠狠爱无码一区二区三区| 亚洲AⅤ无码一区二区三区在线 | 高清国产AV一区二区三区| 久久精品国产一区二区三区日韩| 亚洲线精品一区二区三区| 久久精品动漫一区二区三区| 精品人妻中文av一区二区三区| 精品视频一区二区三三区四区| 国产精品自拍一区| 亚洲日韩AV无码一区二区三区人| 日本精品无码一区二区三区久久久| 亚洲熟女乱色一区二区三区| 日韩三级一区二区| 中文字幕一区二区三区免费视频| 精品国产免费一区二区三区香蕉| 无码人妻品一区二区三区精99| 国产经典一区二区三区蜜芽| 性色av无码免费一区二区三区 | 在线观看午夜亚洲一区|