Сравнение строк в 2 смежных строках фрейма данных в R

Question

У меня есть фрейм данных с 627 наблюдениями и 16 переменными. Я рассматриваю один столбец под названием «ZoneDivison», который имеет факторы: Северо-Восток, Восток и Юго-Восток Итак, я хочу сравнить значения соседних строк и создать новый столбец с 1, если две смежные строки имеют одинаковые зоны, или 0, если соседние строки различны.

Я нашел следующие ссылки, чтобы найти выход: [здесь] Соответствие двум столбцам в R [здесь] сравнить значения строк по нескольким строкам (R)

library(dplyr)
a <- c(rep("Eastern",3),rep ("North Eastern", 6),rep("South Eastern", 3))
a=data.frame(a)
colnames(a)="ZoneDivision"

#comparing the zones
library(plyr)
ddply(n, .(ZoneDivision),summarize,ZoneMatching=Position(isTRUE,ZoneDivision))

Expected Result

   ZoneDivision ZoneMatching
 1      Eastern       NA
 2      Eastern       1
 3       Eastern      1               
 4 North Eastern      0
 5 North Eastern      1
 6 North Eastern      1
 7 North Eastern      1
 8 North Eastern      1
 9 North Eastern      1
 10 South Eastern     0
 11 South Eastern     1
 12 South Eastern     1

Actual Result
    ZoneDivision ZoneMatching
1       Eastern           NA
2 North Eastern           NA
3 South Eastern           NA

Как мне поступить? Пожалуйста, помогите !!

Answer 1

путь data.table:

a <- c(rep("Eastern",3),rep ("North Eastern", 6),rep("South Eastern", 3))
dt <- as.data.table(a)

dt[,'ZoneMatching' := as.numeric(.SD[,a] == shift(.SD[,a],1))]

Где вы добавляете новый столбец ZoneMatching в качестве числовых значений логического сравнения между столбцом a и запаздывающими значениями, генерируемыми shift () функция.

Answer 2

Используя базу R, мы можем сделать

as.numeric(c(NA, a$ZoneDivision[-1] == a$ZoneDivision[-nrow(a)]))
#[1] NA  1  1  0  1  1  1  1  1  0  1  1

Answer 3

Вы можете использовать lag, чтобы получить:

library(dplyr)
a %>%
  mutate(ZoneMatching = as.numeric((ZoneDivision == lag(ZoneDivision, 1))))
    ZoneDivision ZoneMatching
1        Eastern           NA
2        Eastern            1
3        Eastern            1
4  North Eastern            0
5  North Eastern            1
6  North Eastern            1
7  North Eastern            1
8  North Eastern            1
9  North Eastern            1
10 South Eastern            0
11 South Eastern            1
12 South Eastern            1

Answer 4

Мы можем использовать base R

with(a, c(NA, +(head(ZoneDivision, -1) == tail(ZoneDivision, -1))))
#[1] NA  1  1  0  1  1  1  1  1  0  1  1