如何在 ggplot2 中用另一种颜色填充曲线的增加部分？[重复]

一种选择是使用两个stat_functions并设置x_lim来限制曲线范围。我还将您的geom_label调用更改为annotate，并删除了重复调用的第一个实例scale_x/y_continuous。此外，您不必在 . 内使用引号library。Size也已弃用，linewidth应该使用 。

编辑一下，这个帖子可以作为重复帖子直接关闭。不过我在 limey 找到重复帖子之前就已经发过了，所以还是把它保留在可见状态吧，万一有人明确想用stat_function两种颜色。

library(ggplot2)

mc_cc<-function(x){3*x^2-8*x+10}
ac_cc<-function(x){x^2-4*x+10+10/x}
atc_cc<-function(x){x^2-4*x+10}

ggplot(data.frame(x=c(0,11)), aes(x=x))+
  stat_function(fun = mc_cc, xlim = c(0, 2), color = "red", linewidth = 2) +
  stat_function(fun = mc_cc, xlim = c(2, 5.5), color = "darkred", linewidth = 2) +
  annotate("label", x = 4.3, y = mc_cc(4.1), label = "CMg(q)", size = 5, color = "red")+
  stat_function(fun=ac_cc, geom="line", linewidth=2, color = "blue")+
  annotate("label", x=4.6,y=ac_cc(5), color = "blue", label = "CTMe(q)", size = 5)+
  stat_function(fun=atc_cc, geom="line", linewidth=2, color = "deepskyblue")+
  annotate("label", x=4.6,y=atc_cc(4.5), color = "deepskyblue", label = "CVMe(q)", size = 5)+
  geom_segment(x=0, xend=2, y=6.1, yend=6.1, linewidth=1, linetype="longdash", color = "cyan")+
  geom_segment(x=3.3, xend=3.3, y=0, yend=16, linewidth=1, linetype="dotted")+
  geom_segment(x=0, xend=3.3, y=16, yend=16, linewidth=1, linetype="dotted")+
  geom_segment(x=4, xend=4, y=0, yend=26, linewidth=1, linetype="dotted")+
  geom_segment(x=0, xend=4, y=26, yend=26, linewidth=1, linetype="dotted")+
  annotate("point", x = 2, y = 6.1, color = "cyan", size = 4) +
  annotate("text", x = 2, y = 3.5, label = "Punto de\n cierre de\n la empresa", colour = "deepskyblue", size = 4)+
  annotate("text", x = 3.4, y = 20, label = "Curva de Oferta", colour = "darkgreen", size = 6, angle = 63)+
  annotate("point", x = 3.3, y = 16, color = "black", size = 4) +
  annotate("point", x = 4, y = 26, color = "black", size = 4) +
  guides(fill="none")+
  labs(title = "Representative Firm",  x = "Producción", y = "Precio")+
  theme_classic(base_family = "Fira Sans Condensed", base_size=20) +
  scale_x_continuous(breaks=c(0,2, 3.3, 4),
                     labels=c(0, expression(""), expression(q["1"]), expression(q["2"])),
                     limits=c(0,5),
                     expand=c(0,0))+
  scale_y_continuous(breaks=c(0, 6.1, 16, 26),
                     labels=c(0,expression("P=CVMe"), expression(P["1"]), 
                              expression(P["2"])),
                     limits=c(0,30),
                     expand=c(0,0))

您可以将x值与y计算出的一起atc_cc放入数据框中，并创建一个指示变量，该变量在 时切换x > 2。然后，您可以使用geom_line并将指示变量映射到color美学上，并使用scale_color_manual来更改颜色并隐藏图例：

library("tidyverse")
library("mosaic")
library("ggrepel")
library("fontawesome")

mc_cc<-function(x){3*x^2-8*x+10}
ac_cc<-function(x){x^2-4*x+10+10/x}
atc_cc<-function(x){x^2-4*x+10}

## Create a dataframe with x values, y values for the curve and indicator variable

df <- data.frame(x = seq(0, 11, len = 100)) |> 
  mutate(y = atc_cc(x),
         z = factor(ifelse(x < 2, 0, 1)))

ggplot(data = df, aes(x = x)) + ## Use the dataset just created
stat_function(fun=mc_cc, geom="line", size=2, color = "red")+
geom_label(aes(x=4.3,y=mc_cc(4.1)), color = "red", label="CMg(q)", size = 5)+
stat_function(fun=ac_cc, geom="line", size=2, color = "blue")+
geom_label(aes(x=4.6,y=ac_cc(5)), color = "blue", label = "CTMe(q)", size = 5)+
## stat_function(fun=atc_cc, geom="line", size=2, color = "deepskyblue")+
geom_line(aes(y = y, color = z), size = 2) + # instead of stat_function()
scale_color_manual(values = c("green", "deepskyblue"), guide = "none") + # Change colors and suppress legend
geom_label(aes(x=4.6,y=atc_cc(4.5)), color = "deepskyblue", label = "CVMe(q)", size = 5)+
geom_segment(x=0, xend=2, y=6.1, yend=6.1, size=1, linetype="longdash", color = "cyan")+
geom_segment(x=3.3, xend=3.3, y=0, yend=16, size=1, linetype="dotted")+
geom_segment(x=0, xend=3.3, y=16, yend=16, size=1, linetype="dotted")+
geom_segment(x=4, xend=4, y=0, yend=26, size=1, linetype="dotted")+
geom_segment(x=0, xend=4, y=26, yend=26, size=1, linetype="dotted")+
annotate("point", x = 2, y = 6.1, color = "cyan", size = 4) +
annotate("text", x = 2, y = 3.5, label = "Punto de\n cierre de\n la empresa", colour = "deepskyblue", size = 4)+
annotate("text", x = 3.4, y = 20, label = "Curva de Oferta", colour = "darkgreen", size = 6, angle = 63)+
annotate("point", x = 3.3, y = 16, color = "black", size = 4) +
annotate("point", x = 4, y = 26, color = "black", size = 4) +
scale_x_continuous(#breaks=NULL,
                 limits=c(0,5.5),
                 expand=expand_scale(mult=c(0,0.1)))+
scale_y_continuous(#breaks=NULL,
                 limits=c(0,30),
                 expand=expand_scale(mult=c(0,0.1)))+
guides(fill=F)+
labs(#title = "Representative Firm",
   x = "Producción",
   y = "Precio")+
theme_classic(base_family = "Fira Sans Condensed", base_size=20) +
scale_x_continuous(breaks=c(0,2, 3.3, 4),
                 labels=c(0, expression(""), expression(q["1"]), expression(q["2"])),
                 limits=c(0,5),
                 expand=c(0,0))+
scale_y_continuous(breaks=c(0, 6.1, 16, 26),
                 labels=c(0,expression("P=CVMe"), expression(P["1"]), 
expression(P["2"])),
                 limits=c(0,30),
                 expand=c(0,0))