获取与前一个值和下一个值的差异答案

【问题标题】：Get difference with previous value and with next value获取与前一个值和下一个值的差异
【发布时间】：2020-02-20 23:38:37
【问题描述】：

我有一个这样的数据框。一个小样本实际上df更大：

LOW   1  4  NA 
MID   3  4  4
HIG   2  5  4

并且想用 MID 获得 LOW 和 HIG 的区别，所以结尾的 df 是这样的：

LOW   2  0  NA 
MID   3  4  4
HIG   1  1  0

所以你得到：LOW = 3 - 1 = 2 和 HIG = 3 - 2 = 1。我可以通过 VBA 宏来做到这一点，但想用 R 进行扩展。

【问题讨论】：

数学对我来说不是很清楚。如果您希望从 MID 中减去 LOW 和 HIG，那么您的 HIG 的最后一行不应该是 1, -1, 0 而不是 1, 1, 0？
列名是 id v1 v2 v3

标签： r dplyr tidyverse

【解决方案1】：

可以用mutate_if/mutate_at完成

library(dplyr)
df1 %>%
   mutate_if(is.numeric, ~ case_when(grp != 'MID' ~ 
         abs(. - .[grp == 'MID']), TRUE ~ .))
#   grp v1 v2 v3
#1 LOW  2  0 NA
#2 MID  3  4  4
#3 HIG  1  1  0

或在base R

i1 <- df1$grp == 'MID'
df1[!i1, -1] <- abs(df1[!i1, -1] - rep(unlist(df1[i1, -1]), each = sum(!i1)))

数据

df1 <- structure(list(grp = c("LOW", "MID", "HIG"), v1 = c(1L, 3L, 2L
), v2 = c(4L, 4L, 5L), v3 = c(NA, 4L, 4L)), class = "data.frame", row.names = c(NA, 
-3L))

【讨论】：

它有效...不知道为什么！但它的工作原理无法相信 R 可以如此神秘。

【解决方案2】：

您可以在减去'MID' 后更改'LOW'、'HIG' 行：

df1[df1$grp == 'LOW', -1] <- abs(df1[df1$grp == 'MID',-1]- df1[df1$grp == 'LOW',-1])
df1[df1$grp == 'HIG', -1] <- abs(df1[df1$grp == 'MID',-1]- df1[df1$grp == 'HIG',-1])

df1
#  grp v1 v2 v3
#1 LOW  2  0 NA
#2 MID  3  4  4
#3 HIG  1  1  0

【讨论】：