删除某些列上的重复行,并汇总数据。

我有一些数据。这里有一个虚拟数据框架作为例子。

Reference = c('A', 'A', 'A', 'B', 'C', 'D', 'E', 'E')
Company = c('Google', 'Google', 'Xbox', 'Nike', 'Apple', 'Samsung', 'Paypal', 'Paypal')
Method = c('Direct', 'Indirect', 'Direct', 'Direct', 'Direct', 'Indirect', 'Direct', 'Indirect')
Payments = c(500, 750, 100, 2000, 1100, 450, 100, 900)
DirectPayment = c(500, 0, 100, 2000, 1100, 0, 100, 0)
IndirectPayment = c(0, 750, 0, 0, 0, 450, 0, 900)

df = data.frame(Reference, Company, Method, Payments, DirectPayment, IndirectPayment)

enter image description here

如果你看REFERENCE A, Google有一个DIRECT和一个INDIRECT付款;在REFERENCE E, Paypal有一个间接和直接付款。

我需要去掉REFERENCE和COMPANY上的重复。例如,对于Google,我只需要在Reference A上有一行,直接付款在DirectPayment栏中,间接付款在IndirectPayment栏中,即。

anged

我怎么做呢?我已经尝试过pivot_wide,但不是,这并不完全是我需要在这里。

谢谢你

解决方案:

那这个呢?

library(dplyr)
df %>% 
  group_by(Reference, Company) %>% 
  summarise_if(is.numeric, sum, na.rm = TRUE)

它给出了。

# A tibble: 6 x 5
# Groups:   Reference [5]
  Reference Company Payments DirectPayment IndirectPayment
  <fct>     <fct>      <dbl>         <dbl>           <dbl>
1 A         Google      1250           500             750
2 A         Xbox         100           100               0
3 B         Nike        2000          2000               0
4 C         Apple       1100          1100               0
5 D         Samsung      450             0             450
6 E         Paypal      1000           100             900

给TA打赏
共{{data.count}}人
人已打赏
未分类

如何从动态对象中获取数据

2022-9-8 0:44:17

未分类

在JPEG压缩中进行色度子采样后的图像输出尺寸

2022-9-8 0:44:19

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索