按组对所有组使用group_by减去一个组的值
创始人
2024-09-02 20:30:55
0

假设有以下数据:

df <- data.frame(group = rep(letters[1:3], each = 4), value = 1:12)

要对于每个组,将第一个值减去第二个值。可以使用dplyr包中的group_by和mutate函数来实现:

library(dplyr)

df %>% 
  group_by(group) %>% 
  mutate(value = value - value[2])

这样,每个组的第一个值就会减去该组的第二个值,得到如下结果:

# A tibble: 12 x 2
# Groups:   group [3]
   group value
    
 1 a         -1
 2 a          0
 3 a          1
 4 a          2
 5 b         -1
 6 b          0
 7 b          1
 8 b          2
 9 c         -1
10 c          0
11 c          1
12 c          2

相关内容

热门资讯

程序员教你!超凡辅助app链接... 程序员教你!超凡辅助app链接(白金岛手游放炮罚有挂)切实有作弊器开挂辅助工具(有挂猫腻);白金岛手...
玩家必看教程!518互游辅助(... 【福星临门,好运相随】;玩家必看教程!518互游辅助(如何做方片十三张脚本)从前有作弊器开挂辅助黑科...
玩家必看教程!新海豚辅助工具(... 玩家必看教程!新海豚辅助工具(微友助手破解版)好像有作弊挂开挂辅助神器(有挂秘笈);1、让任何用户在...
分享一款!新众亿软件可以安装(... 分享一款!新众亿软件可以安装(福州十八扑外卦)一向有作弊挂开挂辅助下载(今日头条);分享一款!新众亿...
实测教程!新财神正版辅助挂(游... 实测教程!新财神正版辅助挂(游戏辅助器免费版)其实有作弊挂开挂辅助插件(有挂辅助);游戏辅助器免费版...
玩家必看!新九哥智能辅助软件(... 玩家必看!新九哥智能辅助软件(小程序能不能开挂)确实有作弊器开挂辅助神器(有挂技巧);新九哥智能辅助...
信息共享!火神工作室辅助大全(... 信息共享!火神工作室辅助大全(朋友圈辅助软件)果然有作弊挂开挂辅助神器(有挂工具);一、火神工作室辅...
玩家必看科普!樱花之盛免费挂(... 玩家必看科普!樱花之盛免费挂(边锋老友辅助)固有有作弊挂开挂辅助脚本(有挂秘籍);亲真的是有正版授权...
总算清楚!天天微友辅助神器(上... 总算清楚!天天微友辅助神器(上饶打炸辅助)最初有作弊器开挂辅助工具(确实有挂);天天微友辅助神器 a...
科技新动态!微友辅助神器下载(... 科技新动态!微友辅助神器下载(人海大厅脚本)最初有作弊挂开挂辅助神器(有挂头条);科技新动态!微友辅...