r - 两个事件之间的百分比差异

我有一个如下所示的数据框:

df1 <-

ID event  CONC
1   1      5
1   2      10
3   1      7
3   2      10

对于每一行，我想计算两个事件之间浓度的百分比差异并将其添加到新列中。

例如:对于 ID=1

diff <- (10-5)*100

我需要关于如何为每一行指定 (CONCrow2-CONCrow1) 的帮助。然后我可以使用以下内容通过 ID 应用它:

df2 <- df1 %>%
 group_by(ID) %>%
 mutate (percent = ....)

最佳答案

你可以试试

library(dplyr)
df1 %>%
    group_by(ID) %>%
    mutate(percent=100*(CONC-lag(CONC)))

或者使用 base R

transform(df1, percent=ave(CONC, ID, FUN=function(x) 100*c(NA, diff(x))))

或者使用 data.table

library(data.table)
setDT(df1)[, percent := 100*c(NA, diff(CONC)), ID]

更新

基于@Jan Gorecki 的评论，shift 是 data.table_1.9.5(开发版)中的一个新选项

 setDT(df1)[,percent := 100*(CONC - shift(CONC)), by=ID][]

关于r - 两个事件之间的百分比差异，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27812975/