java中which怎么用,使用mutate_at和which.max对数据帧的选定列进行操作

标准的 dplyr 方式是:

df_want %

group_by(Species) %>%

mutate(Sepal.Length = Sepal.Length[which.max(Petal.Width)],

Sepal.Width = Sepal.Width[which.max(Petal.Width)])

df_attempt %

group_by(Species) %>%

mutate_at(vars(Sepal.Length, Sepal.Width), funs(.[which.max(Petal.Width)]))

Result:

# A tibble: 150 x 5

# Groups: Species [3]

Sepal.Length Sepal.Width Petal.Length Petal.Width Species

1 5 3.5 1.4 0.2 setosa

2 5 3.5 1.4 0.2 setosa

3 5 3.5 1.3 0.2 setosa

4 5 3.5 1.5 0.2 setosa

5 5 3.5 1.4 0.2 setosa

6 5 3.5 1.7 0.4 setosa

7 5 3.5 1.4 0.3 setosa

8 5 3.5 1.5 0.2 setosa

9 5 3.5 1.4 0.2 setosa

10 5 3.5 1.5 0.1 setosa

# ... with 140 more rows

> identical(df_want, df_attempt)

[1] TRUE

Note:

使用 vars ,您可以使用NSE引用变量 .

使用 funs ,您可以使用 . 引用每个列,这相当于 function(x) x

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值