使用grep子集数据

Question

我有一个名为Schedule的数据框，其中包含多家航空公司的数据。我运行表函数只是为了获得航空公司的记录细分。这是答案

table(Schedule$airline)

 AA  AS  B6  BA  DL  F9  FI  LH  NK  QR  UA  WN 
757   4  14   2  65  24   2   2  18   2  36  60 

现在我使用grep对这些数据进行子集化以获得一个数据帧，该数据帧在特定的感兴趣的终端中具有门，在这种情况下是终端F

Gated_Schedule <- Schedule[grep("F", Schedule$gate), ]

当我在这里运行表格以获得细分时，

table(Gated_Schedule$airline)

 AA  AS  B6  BA  DL  F9  FI  LH  NK  QR  UA  WN 
362   0   0   0   0   0   0   0   0   0   0   0

理想情况下，输出应该只有AA，如：

 AA  
362

如何消除这种差异？