R：使用另一列的差异和百分比值创建 2 列答案

【问题标题】：R: Create 2 columns with difference and percentages values of another columnR：使用另一列的差异和百分比值创建 2 列
【发布时间】：2015-09-04 17:41:12
【问题描述】：

我有一个这样的数据框

ID <- c(101,101,101,102,102,102,103,103,103)
Pt_A <- c(50,100,150,20,30,40,60,80,90)
df <- data.frame(ID,Pt_A)

+-----+------+
| ID  | Pt_A |
+-----+------+
| 101 |   50 |
| 101 |  100 |
| 101 |  150 |
| 102 |   20 |
| 102 |   30 |
| 102 |   40 |
| 103 |   60 |
| 103 |   80 |
| 103 |   90 |
+-----+------+

我想使用从 Pt_A 列计算的值创建 2 个新列。

df$Del_Pt_A <- NthRow(Pt_A) - 1stRow(Pt_A) grouped by ID, where n = 1,2,...n
df$Perc_Pt_A <- NthRow(Del_Pt_A) / 1stRow(Pt_A) grouped by ID, where n = 1,2,...n

这是我想要的输出

+-----+------+---------+-----------+
| ID  | Pt_A | Del_Pt_A | Perc_Pt_A|
+-----+------+---------+-----------+
| 101 |   50 | 0       | 0         |
| 101 |  100 | 50      | 1.0       |
| 101 |  150 | 100     | 2.0       |
| 102 |   20 | 0       | 0         |
| 102 |   30 | 10      | 0.5       |
| 102 |   40 | 20      | 1.0       |
| 103 |   60 | 0       | 0         |
| 103 |   80 | 20      | 0.3       |
| 103 |   90 | 30      | 0.5       |
+-----+------+---------+-----------+

我目前在 MS Excel 中得到了想要的结果，但我想学习在 R 中做它以提高我的工作效率。我遇到了 dplyr、plyr、data.table 等软件包，但我无法使用它们解决它。有人可以帮我弄清楚如何解决这个问题。

【问题讨论】：

仅供参考，NthRow(Del_Pt_A) / 1stRow(Pt_A) 简化为 NthRow(Pt_A)/1stRow(Pt_A) - 1。这就是您在下面的答案中看到它的原因。
谢谢@Frank，我现在注意到了。

标签： r dataframe data.table plyr dplyr

【解决方案1】：

这里是基础 R 中的另一个选项：

cbind(df,
      do.call(rbind,by(df,df$ID,
   function(x)
           setNames(data.frame(x$Pt_A-x$Pt_A[1],
                      x$Pt_A/x$Pt_A[1]-1),
                    c('Del_Pt_A','Perc_Pt_A')))))

#        ID Pt_A Del_Pt_A Perc_Pt_A
# 101.1 101   50        0 0.0000000
# 101.2 101  100       50 1.0000000
# 101.3 101  150      100 2.0000000
# 102.1 102   20        0 0.0000000
# 102.2 102   30       10 0.5000000
# 102.3 102   40       20 1.0000000
# 103.1 103   60        0 0.0000000
# 103.2 103   80       20 0.3333333
# 103.3 103   90       30 0.5000000

我正在使用：

by按组应用函数，结果是一个列表
do.call(rbind, list_by) 将列表转换为 data.frame
cbind 将结果添加到初始data.frame

【讨论】：

您可以使用with(x,...) 摆脱x$ 和data.frame(del=...,perc=...) 摆脱setNames...？
@Frank 当然..这是我在最后一分钟转换为基本解决方案的 data.table 解决方案....虽然，我会注意使用with（个人喜好），但是肯定将$ 转换为[。

【解决方案2】：

这是一个data.table的方式：

library(data.table)
setDT(df)[,`:=`(
    del       = Pt_A - Pt_A[1],
    perc      = Pt_A/Pt_A[1]-1
),by=ID]

给了

    ID Pt_A del      perc
1: 101   50   0 0.0000000
2: 101  100  50 1.0000000
3: 101  150 100 2.0000000
4: 102   20   0 0.0000000
5: 102   30  10 0.5000000
6: 102   40  20 1.0000000
7: 103   60   0 0.0000000
8: 103   80  20 0.3333333
9: 103   90  30 0.5000000

【讨论】：

优秀的解决方案！！我要使用这个。 Data.table 非常方便且易于解释。