r - 保留所有不同的列,而不是一个 r
问题描述
我试图找到所有发送给 4 个或更多单独接收者(按名称)的发件人,其中发送给这些单独接收者的总金额超过 5000.00 美元,并寻找一种方法来告诉 r 维护包含不同名称的所有值,而不仅仅是一个。
例如,使用以下 data.frame:
sender<-c("tom","tom","kevin","frank","tom","chris","tom","tom","craig","louis",
"john", "tom","brian","tom","George")
reciever<-c("ryan","dave","sarah","kel","eric","ben","wayne","mike","brenda","christina",
"brianna","hal","sam","ryan","van")
amount<-as.numeric(c("200","100","300","3000","100","350","100","90","670","865","600",
"300","1300","5200","200"))
dF<-data.frame(sender,reciever,amount)
使用 dpylr 应用以下参数:
dF1<-dF%>%
distinct(reciever,.keep_all = TRUE)%>%
group_by(sender)%>%
summarise(
count=n(),
total = sum(amount)
)%>%
filter(count >= 4 & total>5000)
您会注意到示例发件人向量中的目标是 tom。tom 与 Ryan 有 2 笔交易,但是,由于 distinct 函数的性质,r 提取 ryan 对应的金额为 200 的第一列,并排除 ryan 的另一列,即 5200。这种排除提出了一个问题,因为排除的交易(如果包括)将满足过滤器中应用的 5000 美元阈值的逻辑。
有没有办法使用 distinct 函数告诉 r 保留所有涉及相似不同名称的事件?或者,我应该从一个完全不同的角度来解决这个问题吗?
谢谢!
解决方案
我们可以使用
library(dplyr)
dF %>%
group_by(sender) %>%
filter(n_distinct(reciever) >=4, sum(amount) >=5000) %>%
ungroup
-输出
# A tibble: 7 x 3
sender reciever amount
<chr> <chr> <dbl>
1 tom ryan 200
2 tom dave 100
3 tom eric 100
4 tom wayne 100
5 tom mike 90
6 tom hal 300
7 tom ryan 5200
如果我们只需要那些满足条件的对
dF %>%
group_by(sender) %>%
filter(n_distinct(reciever) >=4, sum(amount) >=5000) %>%
group_by(sender, reciever) %>% filter(sum(amount) >= 5000)
# A tibble: 2 x 3
# Groups: sender, reciever [1]
# sender reciever amount
# <chr> <chr> <dbl>
#1 tom ryan 200
#2 tom ryan 5200
推荐阅读
- oracle - 运行代码以创建从数据字典视图插入行的触发器时出现 ORA-00942 错误
- spring - Spring JPA 自定义查询参数排序不正确
- javascript - 以逗号分隔的输出数组,用 querySelector 分隔
- javascript - 如何从 Google 表格导出和验证数据?
- http - 为什么 HttpRequest 在 Dart 中返回 ProgressEvent 错误
- arrays - 从数组中获取指定对象并将其作为变量
- gitlab - 我可以对多个 gitlab 实例使用相同的 gitlab-runner 吗?
- sql - 如何在 SQL Server 中使用 CASE WHEN 函数
- css - 仅使用 css 如何选择第二级 li
- selenium - 使用自定义属性进行 Xunit 测试时,Selenium 浏览器启动两次