R语言统计航班出现次数并找出最频繁和最不频繁航班

使用R语言统计航班出现次数并找出最频繁和最不频繁航班

想要统计每个航班出现的次数，并打印出现次数最多和最少的航班，可以使用table函数和max/min函数来实现。以下是示例代码：

# 假设航班数据存储在一个名为flights的数据框中，其中航班编号存储在一个名为flight_number的列中
flight_counts <- table(flights$flight_number)

# 找到出现次数最多和最少的航班
max_count <- max(flight_counts)
min_count <- min(flight_counts)

# 打印出现次数最多和最少的航班
most_frequent_flights <- names(flight_counts)[flight_counts == max_count]
least_frequent_flights <- names(flight_counts)[flight_counts == min_count]

print(paste('Most frequent flights:', most_frequent_flights))
print(paste('Least frequent flights:', least_frequent_flights))

在上述代码中，我们首先使用table函数计算出每个航班出现的次数，并将结果存储在flight_counts中。然后，使用max和min函数找到出现次数最多和最少的航班次数。

接下来，使用names函数和逻辑运算符（==）找到出现次数等于最多和最少次数的航班编号，并将结果存储在most_frequent_flights和least_frequent_flights中。

最后，使用paste函数将结果打印出来。

请注意，上述代码假设航班数据存储在名为flights的数据框中，并且航班编号存储在名为flight_number的列中。你需要根据你的实际数据和列名进行相应的更改。