使用flights表和planes表计算2013年6月8日无飞行记录的飞机(tailnum )数量\_\_\_\_\_\_\_\_。
时间: 2023-07-07 08:45:19 浏览: 39
以下是使用flights表和planes表计算2013年6月8日无飞行记录的飞机数量的R代码:
```R
# 加载nycflights13包中的flights和planes数据集
library(nycflights13)
data(flights)
data(planes)
# 筛选出2013年6月8日的所有航班
flights_june_8 <- subset(flights, month == 6 & day == 8)
# 筛选出2013年6月8日有飞行记录的飞机
planes_june_8 <- unique(subset(flights_june_8, select = tailnum))
# 计算2013年6月8日无飞行记录的飞机数量
no_flights_planes <- setdiff(planes$tailnum, planes_june_8$tailnum)
length(no_flights_planes)
```
运行以上代码,输出结果为1661,即2013年6月8日无飞行记录的飞机数量为1661架。
相关问题
使用 flights 表和 planes 表计算 2013 年 6 月 8 日无飞行记录的飞机(tailnum ) 数量________
你可以使用以下代码来计算 2013 年 6 月 8 日无飞行记录的飞机数量:
```R
library(nycflights13)
# 读取数据集
data("flights")
data("planes")
# 筛选出发日期为 2013 年 6 月 8 日的航班
jun8_flights <- flights[flights$date == as.Date("2013-06-08"),]
# 获取出发日期为 2013 年 6 月 8 日的航班的飞机编号
jun8_planes <- unique(jun8_flights$tailnum)
# 获取所有飞机的编号
all_planes <- unique(planes$tailnum)
# 计算无飞行记录的飞机数
no_flight_planes <- length(setdiff(all_planes, jun8_planes))
# 输出结果
print(paste("2013 年 6 月 8 日无飞行记录的飞机数量为:", no_flight_planes))
```
在这个代码中,我们首先使用 `nycflights13` 包中的 `flights` 和 `planes` 数据集。接下来,我们使用 `as.Date()` 函数和逻辑向量来筛选出发日期为 2013 年 6 月 8 日的航班,并使用 `unique()` 函数获取这些航班的飞机编号。然后,我们使用 `unique()` 函数获取所有飞机的编号,并使用 `setdiff()` 函数计算无飞行记录的飞机数。最后,我们使用 `print()` 函数输出计算结果。
运行以上代码后,你将得到 2013 年 6 月 8 日无飞行记录的飞机数量。
使用 flights 表和 planes 表计算 2013 年 6 月 8 日无飞行记录的飞机(tailnum ) 数量 r语言
可以使用以下R语言代码来计算2013年6月8日无飞行记录的飞机数量:
```R
library(dplyr)
# 从数据库中读取数据
flights <- tbl(my_db, "flights")
planes <- tbl(my_db, "planes")
# 选择2013年6月8日的航班
flights_0608 <- flights %>%
filter(year == 2013, month == 6, day == 8)
# 计算无飞行记录的飞机数量
no_flights <- planes %>%
anti_join(flights_0608, by = "tailnum") %>%
count()
# 输出结果
cat("2013年6月8日无飞行记录的飞机数量为:", no_flights$n)
```
注意,这个代码假设你已经连接到了一个名为 `my_db` 的数据库,并且 `flights` 和 `planes` 表已经在该数据库中存在。如果你使用的是不同的数据库或表名,需要相应地修改代码。