Talvez isso te ajude, utilizando dplyr
Data frame de teste
dados <- data.frame(coluna_1 = c(558.8, 584.3, 603.3))
A lógica
library(dplyr)
dados <- dados %>% mutate(coluna_2 = case_when(
coluna_1 - lag(coluna_1, n = 2) >= lag(coluna_1, n = 2) * 0.02 ~ 1,
coluna_1 - lag(coluna_1, n = 2) <= (-lag(coluna_1, n = 2)) * 0.02 ~ -1,
T ~ 0
))
dados$coluna_2[1:2] <- 1
Com mutate criamos uma coluna nova chamada coluna_2, o case_when serve para fazer algo quando uma condição é aceita, o lag serve para dar um atraso, neste caso damos um lag de 2 que seriam duas linhas acima. O T ~ 0 é quando nenhuma condição foi encontrada então preenchemos com 0.
Obs: Como o calculo é feito voltando duas linhas os primeiros resultados vão ser zero, pois não tem como calcular.
Uma possibilidade em Python utilizando o pandas
import pandas as pd
dados = pd.DataFrame({'coluna_1': [558.8, 584.3, 603.3]})
dados.loc[dados['coluna_1'] - dados['coluna_1'].shift(2) >= dados['coluna_1'].shift(2) * 0.02, 'coluna_2'] = 1
dados.loc[dados['coluna_1'] - dados['coluna_1'].shift(2) <= -dados['coluna_1'].shift(2) * 0.02, 'coluna_2'] = -1
dados['coluna_2'].iloc[0:2] = 1
dados.fillna(0)