在R中，比较数据框中2行中的2个字段

Question

I am trying to compare 2 different fields across consecutive rows on a data frame in R and indicate the ones that are different. Below is the input data:-

 Start    End
1 Atl      Bos    
2 Bos      Har  
3 Har      NYC  
4 Stf      SFO
5 SFO      Chi

I am trying to establish a chain of movement and where the End doesn't match up to the Start of the next row I want to indicate that row. So for the above I would indicate row 4 as below:-

 Start    End    Ind
1 Atl      Bos   Y 
2 Bos      Har   Y
3 Har      NYC   Y
4 Stf      SFO   N
5 SFO      Chi   Y

I am pretty new to R, I have tried looking up this problem but cant seem to find a solution. Any help is appreciated.

Answer 1

An alternative would be:

> Ind <- as.character(dat$Start[-1]) == as.character(dat$End [-length(dat$End)])
> dat$Ind <- c(NA, ifelse(Ind==TRUE, "Y", "N")) 
> dat
  Start End  Ind
1   Atl Bos <NA>
2   Bos Har    Y
3   Har NYC    Y
4   Stf SFO    N
5   SFO Chi    Y

Note that your first item should be <NA>

Answer 2

You can do that with dplyr using mutate and lead . Note that the last item should be NA because there is no line 6 to compare SFO-CHI to.

library(dplyr)
df1  <- read.table(text=" Start    End
Atl      Bos
Bos      Har
Har      NYC
Stf      SFO
SFO      Chi", header=TRUE, stringsAsFactors=FALSE)

df1 %>%
mutate(Ind=ifelse(End==lead(Start),"Y","N"))

  Start End  Ind
1   Atl Bos    Y
2   Bos Har    Y
3   Har NYC    N
4   Stf SFO    Y
5   SFO Chi <NA>