R - 如何检查一行中的值是否与前一行中的值不同？

Question

我想在我的表中添加一个列，将一个值与现有列“农场”中的前一个值进行比较（以检查它是否相同）；并且还控制当前行中的值是否为“NULL”。目标是当该行的“农场”列中的值与“农场”列的前一行中的值不同时，返回新列“切换”值“新”。 （除非farm中的值为“NULL”，然后我想取回“”）

在下面查看所需的输出：

farm    switch
A   
A   
NULL    
B   new
B   
B   
A   new
A   
A   
B   new
B   
B   
NULL    
A   new
A   

我尝试使用以下代码解决此问题：

#To add a new column switch
MyData["switch"] <- NA

#To check if the value is different from the previous row; and if the value is different from NULL
MyData$switch <- ifelse((MyData$farm == lag(MyData$farm))||MyData$farm=="NULL","",MyData$farm)

但是当我使用此代码时，我添加的列只有空值？ 有人可以澄清我做错了什么并帮助我编写可能有效的代码吗？

Answer 1

我们通过将当前行与下一行进行比较来创建一个逻辑索引 ('ind')（我们可以通过删除 'farm' 列的第一个和最后一个元素来进行比较），并且还包括以下条件该元素不是"NULL"。根据逻辑索引，我们可以用ifelse将TRUE改为'New'，FALSE改为''。

ind <- with(MyData, c(FALSE, farm[-1L]!= farm[-length(farm)]) & farm!='NULL')
MyData$switch <- ifelse(ind, 'New', '')

MyData
#   farm switch
#1     A       
#2     A       
#3  NULL       
#4     B    New
#5     B       
#6     B       
#7     A    New
#8     A       
#9     A       
#10    B    New
#11    B       
#12    B       
#13 NULL       
#14    A    New
#15    A       

为了理解[-1L]和-length的概念，假设我们有一个向量

v1 <- c(2, 2, 3, 1, 5)
v1[-1] #removes the first observation
#[1] 2 3 1 5

v1[-length(v1)]# removes the last one
#[1] 2 2 3 1

当我们比较这两者时，我们将当前行 (v1[-length(v1)]) 与下一行 (v1[-1]) 进行比较。由于长度比“v1”的原始长度小一，我们根据我们的逻辑条件附加一个“真”或“假”

 c(FALSE, v1[-1]!= v1[-length(v1)])

在您的情况下，有第二个条件断言该值不能是"NULL"。因此，当将这两者与& 结合使用时，只有两者中的TRUE 值得到'TRUE'，其余的都是'FALSE'。

数据

MyData <- structure(list(farm = c("A", "A", "NULL", "B", "B", "B", "A", 
"A", "A", "B", "B", "B", "NULL", "A", "A")), .Names = "farm",
class =  "data.frame", row.names = c(NA, -15L))