我有一个60000行的数据框.在其中一列中,值在"着陆"和"起飞"之间交替.

Movements Flight number Destination
take-off 011 Paris
landing 011 Paris
take-off 053 Ibiza
landing 053 Ibiza
take-off 067 Mans
take-off 123 Geneva
landing 123 Geneva

但也有一些错误,就像这里的第5排.在这个例子中,我有起飞排,但没有降落排.

在R或Excel中有什么方法可以突出显示或 Select 这些行吗? 具体地说:航班号并不是唯一的,在整个过程中会多次出现.

谢谢!

我试过这个:

data() <- read.csv("Flight data.csv")

# Tried to find the positions where values don't alternate correctly
incorrect_positions <- which(data$event[-1] == data$event[-length(data$event)]) + 1

if (length(incorrect_positions) == 0) {
  print("The values in the 'event' column alternate correctly.\n")
} else {
  print("The values in the 'event' column do not alternate correctly at positions:", incorrect_positions, "\n")
}

它没有给我一个错误,但显然不符合我想要的-当我知道事实并非如此时,它一直打印所有值正确交替.

推荐答案

先用as.factor再用as.integergo 掉关卡.diff个错误应该是-1或1;所以取abs将有助于识别which个错误.

> f <- \(x) c(1L, abs(diff(as.integer(as.factor(x)))))
> f(dat$Movements)
[1] 1 1 1 1 1 0 1
> which(f(dat$Movements) != 1)
[1] 6

Data:

> dput(dat)
structure(list(Movements = c("take-off", "landing", "take-off", 
"landing", "take-off", "take-off", "landing"), Flight.number = c(11L, 
11L, 53L, 53L, 67L, 123L, 123L), Destination = c("Paris", "Paris", 
"Ibiza", "Ibiza", "Mans", "Geneva", "Geneva")), class = "data.frame", row.names = c(NA, 
-7L))

R相关问答推荐

使用map()内的公式()创建多个公式

了解.groups的目的= dØr的摘要功能中的删除

我可以截断10字节的扩展数并转换为8字节的double吗?

在R中使用自定义函数时如何删除该函数的一部分?

带有gplot 2的十字舱口

为什么当我try 在收件箱中使用合并功能时会出现回收错误?

R Tidymodels textercipes-使用spacyR进行标记化-如何从生成的标记列表中删除标点符号

任意列的欧几里得距离

如何将dygraph调用到R Markdown作为一个shiny 的react 对象的参数?

修改用R编写的用户定义函数

如何在emmeans中计算连续变量的对比度

R s iml包如何处理语法上无效的因子级别?'

如何自定义3D散点图的图例顺序?

通过在colname中查找其相应值来创建列

如何提取所有完美匹配的10个核苷酸在一个成对的匹配与生物字符串在R?>

Data.table';S GForce-将多个函数应用于多列(带可选参数)

跨列查找多个时间报告

观察器中的inaliateLater的位置

TidyVerse中长度不等的列结合向量

将美学添加到ggploy中的文本标签