將 R 中的兩個密度圖合並為一個 plot

Question

我想將我在 Rstudio 中創建的兩個單獨的密度圖組合成一個顯示兩者的 plot。

我使用以下代碼創建了兩個單獨的密度圖：

1 # create density plot for total sales
dens_plot_sales <- final_data %>%
drop_na(tot_sales, firm_size) %>%
ggplot()+
geom_density(aes(x = tot_sales, colour = firm_size)) +
labs(title = "Density plot of total sales across firm size levels", 
x = "Total sales", y = "Density", col= "Firm size") +
theme_classic()

2 # create density plot for total costs
dens_plot_costs <- final_data %>%
drop_na(tot_costs, firm_size) %>%
ggplot()+
geom_density(aes(x = tot_costs, colour = firm_size)) +
labs(title = "Density plot of total costs across firm size levels", 
x = "Total costs", y = "Density", col= "Firm size") +
theme_classic()

如何將 plot 1 (dens_plot_sales)和 plot 2 ( dens_plot_costs ) 合二為一？ （見附圖供參考）

謝謝！

Answer 1

# create density plot for total sales and costs
dens_plot_sales <- final_data %>%
drop_na(tot_sales, firm_size) %>%
ggplot()+
geom_density(aes(x = tot_sales, colour = firm_size)) +
geom_density(aes(x = tot_costs, colour = firm_size)) + # It's that simple
labs(title = "Density plot of total sales and costs across firm size levels", 
x = "Total sales/costs ($)", y = "Density", col= "Firm size") +
theme_classic()

在不知道final_data是什么的情況下，我無法對其進行全面測試，但這應該可行