分面和填写R

Question

我试图绘制总延迟（以分钟为单位）与飞机名称图表相差12个月。我使用的数据集（p）有一些变量，如总延迟，天气延迟（分钟），载波延迟（分钟），飞机名称。 （总延迟= 2个变量的总和天气延迟+载波延迟） 我想填2个变量（天气延迟，载波延迟等） 我可以绘制与飞机相比的总延迟，但不知道如何用2变量weather_delay和载波延迟的值填充每个柱。

ggplot(subset(p, airport %in% c( "IAD")) + 
       aes(x= aircraft_name, y = total_delay, color = airport) + 
       geom_histogram(stat ="identity",binwidth=1) + 
       facet_grid(~month,scales='free')

我面临的问题是数据集包含天气延迟，载波延迟，安全延迟等变量，总计延迟时间。我希望将每个总延迟条显示为3个延迟的一部分。填充部分应包含3个变量延迟。