编辑代码

# 创建数据框
air <- data.frame(
  Ozone = c(41, 36, 12, 18, NA, 28),
  Solar = c(190, 118, 149, 313, 200, 199),
  Wind = c(7.4, 8.0, 12.6, 11.5, 14.3, 14.9),
  Temp = c(67, 82, 74, 62, 86, 66),
  Data = c("2021/05/01", "2021/05/02", "2021/05/03", "2021/05/04", "2021/05/05","2021/05/06")
)

# 输出数据框
print("数据框 air:")
print(air)

# 使用summary()函数得到描述性统计信息
summary(air)

# 将 Data 属性转化为日期型数据
air$Data <- as.Date(air$Data, format = "%Y/%m/%d")

# 输出数据框
print("转化后的数据框 air:")
print(air)

# 去掉含有缺失值的行
air <- na.omit(air)

# 输出数据框
print("去掉缺失值后的数据框 air:")
print(air)