시프트 셀 값이 하나의 타임 스탬프에서 다른 셀로 이동 R

Question

한 데이터 열에서 한 셀의 데이터를 한 타임 스탬프에서 다른 데이터를 잃지 않고 시계열 데이터로 다른 셀로 이동할 수 있습니까? 나는 시프트 및 슬라이드 기능을 시도했지만 NA 값으로 데이터를 대체합니다. 나는 돌연변이 기능을 사용하려고했지만 전체 column.Is 변경 기능 또는 조작을 수행하는 방법?

Date_Time | x | y  
01-01-2016 | 1 | 2  
02-01-2016 | 3 | 4 
03-01-2016 | 5 | 6 
04-01-2016 | 2 | 5 

에 :

예컨대는, 변환

Date_Time | x | y 
01-01-2016 | 5 | 2 
02-01-2016 | 3 | 4 
03-01-2016 | 1 | 6 
04-01-2016 | 2 | 5 

또는 데이터를 임시 변수에 하나를 보유 할 필요가 수직

Date_Time | x | y 
01-01-2016 | 2 | 2 
02-01-2016 | 1 | 4 
03-01-2016 | 3 | 6 
04-01-2016 | 5 | 5 

Answer 1

두 스왑 두 개의 값을 밀어 넣습니다. dplyr와

your_data$x = swap(your_data$x, which.min(your_data$x), which.max(your_data$x)) 

Answer 2

다른 두 옵션 :

library(dplyr) 

df %>% 
    mutate(x = case_when(
    x == max(x) ~ min(x), 
    x == min(x) ~ max(x), 
    TRUE ~ x 
)) 

df %>% 
    mutate(x = replace(x, c(which.max(x), which.min(x)), c(min(x), max(x)))) 

이 원하는 결과를 제공하기 위해 다음과 같이 작동합니다, 데이터에

swap = function(x, i, j) { 
    stopifnot(length(i) == length(j)) 
    temp = x[i] 
    x[i] = x[j] 
    x[j] = temp 
    return(x) 
} 

: 우리는 간단한 기능을 쓸 수 있습니다 결과 :

Date_Time x y 
1 01-01-2016 5 2 
2 02-01-2016 3 4 
3 03-01-2016 1 6 
4 04-01-2016 2 5 

,

시프 x 세로 :

df %>% 
    mutate(x = c(x[-1], x[1])) 

또는

df %>% 
    mutate(x = c(x[length(x)], x[-length(x)])) 

결과 :

> df %>% 
+ mutate(x = c(x[-1], x[1])) 
    Date_Time x y 
1 01-01-2016 3 2 
2 02-01-2016 5 4 
3 03-01-2016 2 6 
4 04-01-2016 1 5 

> df %>% 
+ mutate(x = c(x[length(x)], x[-length(x)])) 
    Date_Time x y 
1 01-01-2016 2 2 
2 02-01-2016 1 4 
3 03-01-2016 3 6 
4 04-01-2016 5 5 

데이터 :

df = read.table(text = "Date_Time | x | y  
01-01-2016 | 1 | 2  
02-01-2016 | 3 | 4 
03-01-2016 | 5 | 6 
04-01-2016 | 2 | 5", header = TRUE, sep = "|")