Получить разницу с предыдущим значением и следующим значением - PullRequest
Новая
       2

Получить разницу с предыдущим значением и следующим значением

1 голос
/ 21 февраля 2020

У меня есть такой фрейм данных. Небольшая выборка на самом деле df больше: 

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

И хотел бы получить разницу для LOW и HIG с MID, чтобы конечный df был бы таким: 

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

Так вы получаете: LOW = 3 - 1 = 2 и HIG = 3 - 2 = 1. Я могу сделать это с помощью макросов VBA, но хочу масштабировать с помощью R.

Ответы [ 2 ]

2 голосов
/ 21 февраля 2020

Это можно сделать с помощью 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))
0 голосов
/ 21 февраля 2020

Вы можете изменить строки 'LOW', 'HIG' после вычитания на 'MID': 

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
...