José's questions

在绘制红色曲线的增加部分时，有没有办法使用另一种颜色，我的意思是，我想从青色点开始更改颜色，即增加的部分，只是为了说明它是供给曲线。

我提供复制的代码：

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}

ggplot(data.frame(x=c(0,11)), aes(x=x))+
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_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))

我正在尝试绘制函数 x^2+y^2 的 3D 图表，并添加等高线以尝试与使用 Matlab 构建的该图具有相同的方面：

但是，我无法在轴中添加轮廓线、网格线和数学符号。这是我使用该函数提供的代码得到的图persp：

library(rgl)
library(rsm)

# Generate data for the plot
x <- seq(-5, 5, length.out = 25)
y <- seq(-5, 5, length.out = 25)
z <- outer(x, y, function(x, y) x^2 + y^2)

jet.colors <- colorRampPalette( c("blue", "red") ) 
pal <- jet.colors(100)
col.ind <- cut(z,100) 

# Create the plot
persp(x, y, z, 
zlab = "Q1(x1,x2)",
xlab = expression(x^2), #not working
ylab = "x1",
theta = 50, phi = 20, expand = 0.5, 
ticktype = "detailed",
contour(x, y, z),
col = pal[col.ind])

我正在使用包see和ggraphinR来绘制相关图，但我无法添加绘图的标题，也无法更改调色板。提供的MWE如下：

library(tidyverse) # for `%>%` and probably others
library(see) # for plotting
library(ggraph) # needs to be loaded
library(correlation) # obviously for `correlation`, which I noticed was installed as a dependency of pkg:see but apparently not loaded with it.

mtcars %>% 
correlation(partial = TRUE) %>% 
plot()