叠加几何图形上的密度曲线？[包括代码和图像] #使用ggplot创建叠加条形图 分区图、程序图、数据表百分比 过滤器（ORD_DOW==‘星期一’）%>% 总结（订单=n_不同（订单跟踪键））%>% 变异（Flag=“Promise”） #创建逻辑以创建叠加条形图的并集 地块面积百分比 重命名（承诺=E2E_总线天）%%>% 组员（承诺）%>% 过滤器（ORD_DOW==‘星期一’）%>% 总结（订单=n_不同（订单跟踪键））%>% 变异（Flag=“Delv”） #创建联合以创建重叠条形图 union_df_prom_delv_Mon

用于添加透明区域的命令：

dist_plot_prom_delv <-  ggplot(union_df_prom_delv,aes(x=Promise,y=Orders,fill=Flag)) + 
        geom_bar(stat="identity",position = "identity", alpha= .50, show.legend = FALSE)+
  theme_economist()+
  scale_x_continuous(breaks=seq(0,30,1))+
         geom_density(fill="darkgrey", alpha=0.3)+
  xlab("Promise & Delv Days") +
  ylab("Count of Orders") +
 scale_fill_manual(values = c("sandybrown", "cadetblue4"))+
  ggtitle("E2E Promise & Delv Distribution Comparison 2020 YTD ")+
   theme(plot.title = element_text(size=12), axis.text=element_text(size=11), 
        axis.title=element_text(size=11), strip.text = element_text(size=11),
        axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
        axis.title.x = element_text(margin = margin(t = 15, r = 15, b = 0, l = 0)))




plot_prom2_Mon <- step1_fix %>% 
  rename(Promise = E2E_PROMISE_DAYS) %>% 
  group_by(Promise) %>% 
  filter(ORD_DOW == 'Monday') %>% 
  summarise(Orders = n_distinct(ORD_TRACK_KEY)) %>% 
  mutate(Flag = "Promise")

# Creating Logic to create union for overlayed bar chart 
plot_delv2_Mon <- step1_fix %>% 
  rename(Promise = E2E_BUS_DAYS) %>% 
  group_by(Promise) %>% 
  filter(ORD_DOW == 'Monday') %>% 
  summarise(Orders = n_distinct(ORD_TRACK_KEY)) %>% 
  mutate(Flag = "Delv")

# Creating union to create overlayed barchart
union_df_prom_delv_Mon <- union_all(plot_prom2_Mon, plot_delv2_Mon)

---

请将您的数据更新为代码，以便我能看到发生了什么。我的意思是将数据集发布为代码，您发布了一个打印屏幕，显示的是

union\u df\u prom\u delv\u Mon

，但为了使用它运行代码，我们需要它作为文本。使用

dput（union\u df\u prom\u delv\u Mon）

或

dput（union\u df\u prom\u delv\u Mon[1:20，]）

如果它太大。没问题，但还不完全是这样。为了回答这个问题，我们需要您的代码的重要部分，以及您的代码使用的数据（可能是其中的一个子集）。通常情况下，数据是如何获得的并不重要，我只需要数据的实际数量来运行代码，尝试使用

dput

函数，该函数将数据输出为文本，您可以复制并粘贴到此处。关于如何写一个好问题的mor技巧，请检查：如果有帮助，您可以使用

colnames（df）=NULL省略列名。理想情况下，在帖子中，添加这些区块的方式与添加这些区块的方式相同，但如果您不想这样做，我可以创建一个聊天室，然后您将其发送到那里
dist_plot_prom_delv <-  ggplot(union_df_prom_delv,aes(x=Promise,y=Orders,fill=Flag)) + 
        geom_bar(stat="identity",position = "identity", alpha= .50, show.legend = FALSE)+
  theme_economist()+
  scale_x_continuous(breaks=seq(0,30,1))+
         geom_density(fill="darkgrey", alpha=0.3)+
  xlab("Promise & Delv Days") +
  ylab("Count of Orders") +
 scale_fill_manual(values = c("sandybrown", "cadetblue4"))+
  ggtitle("E2E Promise & Delv Distribution Comparison 2020 YTD ")+
   theme(plot.title = element_text(size=12), axis.text=element_text(size=11), 
        axis.title=element_text(size=11), strip.text = element_text(size=11),
        axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
        axis.title.x = element_text(margin = margin(t = 15, r = 15, b = 0, l = 0)))




plot_prom2_Mon <- step1_fix %>% 
  rename(Promise = E2E_PROMISE_DAYS) %>% 
  group_by(Promise) %>% 
  filter(ORD_DOW == 'Monday') %>% 
  summarise(Orders = n_distinct(ORD_TRACK_KEY)) %>% 
  mutate(Flag = "Promise")

# Creating Logic to create union for overlayed bar chart 
plot_delv2_Mon <- step1_fix %>% 
  rename(Promise = E2E_BUS_DAYS) %>% 
  group_by(Promise) %>% 
  filter(ORD_DOW == 'Monday') %>% 
  summarise(Orders = n_distinct(ORD_TRACK_KEY)) %>% 
  mutate(Flag = "Delv")

# Creating union to create overlayed barchart
union_df_prom_delv_Mon <- union_all(plot_prom2_Mon, plot_delv2_Mon)

geom_area(aes(color=Fill), alpha=0.3, position="identity") +
theme(legend.position = "none") #for deleting the legend