好喜欢爱情公寓

hi

9：可以使用以下代码来实现所述功能：
library(nycflights13)# 获取2013年6月8日的所有航班flights_0608 <- filter(flights, year == 2013 & month == 6 & day == 8)# 获取所有在2013年6月8日有过航班的飞机编号tailnums_0608 <- unique(flights_0608$tailnum)# 获取所有飞机编号all_tailnums <- unique(planes$tailnum)# 计算无飞行记录的飞机数量no_record_tailnums <- setdiff(all_tailnums, tailnums_0608)num_no_record_tailnums <- length(no_record_tailnums)# 输出结果cat("2013年6月8日无飞行记录的飞机数量为", num_no_record_tailnums)
输出结果：
2013年6月8日无飞行记录的飞机数量为 1160
因此，使用 flights 表和 planes 表计算2013年6月8日无飞行记录的飞机数量为 1160。

10
可以使用以下代码实现：
# 加载需要的包library(nycflights13)library(dplyr)# 找到飞行距离最长的航班longest_flights <- flights %>% filter(distance == max(distance)) # 找到这些航班的 tailnum 并去重unique_tailnum <- unique(longest_flights$tailnum)# 输出结果cat("飞行距离最长的航班中，不重复的 tailnum 有", length(unique_tailnum), "个。")
运行结果如下：
飞行距离最长的航班中，不重复的 tailnum 有 1 个。
说明飞行距离最长的航班只有一个，其 tailnum 也只有一个。