用r语言写出三级事件中飞机号发生警告频率前5的的表，包含名称，选项，频率和百分比的表

好的，以下是使用 R 语言处理数据并输出前 5 飞机号，包含名称、选项、频率和百分比的代码：

# 读取数据，假设数据文件名为warnings.csv，包含飞机号和警告等信息
df <- read.csv("warnings.csv", header=TRUE, sep=",")

# 统计每个飞机号的警告次数
counts <- table(df$飞机号)

# 排序并取出前 5 个飞机号
top_5 <- head(sort(counts, decreasing=TRUE), 5)

# 计算频率和百分比
freq <- as.numeric(top_5)
percent <- round(freq / sum(freq) * 100, 2)

# 构建结果数据框
result <- data.frame(名称 = c("飞机号", "", "", "", ""),
                     选项 = c("警告次数", "频率", "百分比", "", ""),
                     频率 = freq,
                     百分比 = percent,
                     stringsAsFactors = FALSE)

# 输出结果表格
print(result)

这段代码与前面的代码基本相同，只是在最后增加了计算频率和百分比的步骤，并构建了一个包含名称、选项、频率和百分比的数据框 `result`。其中，名称列用于显示统计项的名称，选项列用于显示统计项的具体内容，频率列用于显示各项的频率，百分比列用于显示各项的百分比。最后使用 `print()` 函数输出结果表格。