R 如果列中存在相同的字符串，则对行值进行总和

library(dplyr)

df %>% 
  group_by(Sample, Domain = sub("(.*dentified).*", "\\1", Domain)) %>% 
  summarize(Value = sum(Value), .groups="drop")
# A tibble: 2 × 3
  Sample Domain              Value
  <chr>  <chr>               <int>
1 S1     Domain_Identified      37
2 S1     Domain_Unidentified    18

setNames(aggregate(df$Value, by=
           list(df$Sample, sub("(.*dentified).*", "\\1", df$Domain)), \(x) 
             sum(x)), c(colnames(df)[c(1,3)], "Value"))
  Sample              Domain Value
1     S1   Domain_Identified    37
2     S1 Domain_Unidentified    18

R相关问答推荐

如何提高以键ID为列的表中键查找的效率？

在R中使用自定义函数时如何删除该函数的一部分？

geom_raster不适用于x比例中超过2，15的值

过滤矩阵以获得R中的唯一组合

如何求解arg必须为NULL或deSolve包的ode函数中的字符向量错误

如何在Chart_Series()中更改轴值的 colored颜色 ？

如何从R ggplot图片中获取SVG字符串？

R函数，用于生成伪随机二进制序列，其中同一数字在一行中不出现超过两次

如何通过ggplot2添加短轴和删除长轴？

线性模型斜率在减少原始数据时提供NA

从服务器在Shiny中一起渲染图标和文本

如何将SAS数据集的列名和列标签同时包含在r中GT表的表首？

有没有一种方法可以同时对rhandsontable进行排序和从rhandsontable中删除？

按列中显示的配对组估算NA值

如何预测原始数据集并将值添加到原始数据集中

替换在以前工作的代码中有x行&q；错误(geom_sf/gganimate/dow_mark)

如何使用循环从R中的聚合函数创建列，而不会在名称中给出&q；$&q；？

如何在不使用SHINY的情况下将下拉滤镜列表添加到ggploy？

对一个数据帧中另一个数据帧中的值进行计数

修复标签重叠和ggploy内的空间