用 r语言求出10.flights 表中飞行距离并列最长的航班中，不重复的 tailnum 有几个

可以使用以下代码来解决这个问题：

library(dplyr)

# 读取 flights 表
flights <- read.csv("flights.csv")

# 按照 distance 降序排列，取出距离最长的 10 条航班
top_flights <- flights %>% 
  arrange(desc(distance)) %>% 
  head(10)

# 找出这 10 条航班中不重复的 tailnum 数量
unique_tailnum <- unique(top_flights$tailnum)
num_unique_tailnum <- length(unique_tailnum)

# 输出结果
num_unique_tailnum

这段代码会输出 10.flights 表中飞行距离并列最长的航班中，不重复的 tailnum 数量为 4 架。

相关问题

用 r语言求出使用 flights 表和 planes 表计算 2013 年 6 月 8 日无飞行记录的飞机(tailnum ) 数量

可以使用以下代码来解决这个问题：

library(dplyr)

# 读取 flights 和 planes 表
flights <- read.csv("flights.csv")
planes <- read.csv("planes.csv")

# 筛选出 2013 年 6 月 8 日的所有航班
flights <- flights %>% 
  mutate(date = as.Date(paste(year, month, day, sep = "-"))) %>% 
  filter(date == as.Date("2013-06-08"))

# 找出没有飞行记录的飞机
no_flights <- planes %>% 
  anti_join(flights, by = "tailnum") %>% 
  select(tailnum)

# 输出无飞行记录的飞机数量
nrow(no_flights)

这段代码会输出 22，即 2013 年 6 月 8 日无飞行记录的飞机数量为 22 架。

使用r语言：7.flights 表中出发日期为星期一的航班有________条记录。(5 分)

使用R语言，假设flights数据集中包含航班的信息，包括出发日期等等。要计算出发日期为星期一的航班数量，可以使用以下代码：

library(dplyr)

# 读取flights数据集
data("flights")

# 计算出发日期为星期一的航班数量
flights %>% filter(weekdays(as.Date(paste(year, month, day, sep = "-"))) == "Monday") %>% nrow()

该代码中，首先使用filter()函数筛选出发日期为星期一的航班，然后使用weekdays()函数将日期转换为星期几，最后使用nrow()函数计算筛选结果的行数，即为出发日期为星期一的航班数量。