时间戳

首页 > 解决方案 > 使用ggplot不同的交叉线之间的阴影区域

r - 使用ggplot不同的交叉线之间的阴影区域

问题描述

我想用不同的颜色遮蔽下图的区域。我想在绿线的右边用绿色遮住它，在它的左边用红色遮住它。

我已经看过这个类似的问题，但我想在 ggplot 中做： 类似的问题

#Break-even Chart
Q <- seq(0,50,1)
FC <- 50
P <- 7
VC <- 3.6
total_costs <- (FC + VC*Q)
total_revenues <- P*Q
BEP <- round(FC / (P-VC) + 0.5)

df_bep_chart <- as.data.frame(cbind(total_costs, total_revenues, Q))

ggplot(df_bep_chart, aes(Q, total_costs)) + 
  geom_line(group=1, size = 1, col="darkblue") + 
  geom_line(aes(Q, total_revenues), group=1, size = 1, col="darkblue") + 
  theme_bw() + 
  geom_ribbon(aes(ymin = total_revenues, ymax = total_costs), fill = "blue", alpha = .5) +
  geom_vline(aes(xintercept = BEP), col = "green") +
  geom_hline(aes(yintercept = FC), col = "red") +
  labs(title = "Break-Even Chart",
       subtitle = "BEP in Green, Fixed Costs in Red") + 
  xlab("Quanity") + 
  ylab("Money")

在此处输入图像描述

标签： rggplot2geom-ribbon

解决方案

尝试这个。您必须确定填充颜色Q是在左侧还是在右侧，并用于scale_fill_manual设置填充颜色：

#Break-even Chart
Q <- seq(0,50,1)
FC <- 50
P <- 7
VC <- 3.6
total_costs <- (FC + VC*Q)
total_revenues <- P*Q
BEP <- round(FC / (P-VC) + 0.5)

df_bep_chart <- as.data.frame(cbind(total_costs, total_revenues, Q))

library(ggplot2)

ggplot(df_bep_chart, aes(Q, total_costs)) + 
  geom_line(group=1, size = 1, col="darkblue") + 
  geom_line(aes(Q, total_revenues), group=1, size = 1, col="darkblue") + 
  theme_bw() + 
  geom_ribbon(aes(ymin = total_revenues, ymax = total_costs, fill = ifelse(Q <= BEP, "red", "green")), alpha = .5) +
  scale_fill_manual(values = c(red = "red", green = "green")) +
  guides(fill = FALSE) +
  geom_vline(aes(xintercept = BEP), col = "green") +
  geom_hline(aes(yintercept = FC), col = "red") +
  labs(title = "Break-Even Chart",
       subtitle = "BEP in Green, Fixed Costs in Red") + 
  xlab("Quanity") + 
  ylab("Money")

由reprex 包于 2020-06-16 创建(v0.3.0)

推荐阅读