r - 具有R的二维参数空间的图

Question

我用Mathematica作了一个图。
我猜想使用R可以使该图看起来更优雅。

如何在R中绘制这样的图？

关于函数M _ {\ pm}

M^2_\pm = \frac{y \pm \sqrt{14x + 6xy + y^2}}{2x}

以下是剧情展示

曲线M ^ 2_ + = M_-

曲线M ^ 2_ + = 0

曲线M ^ 2_- = 0

M ^ 2_ +和M ^ 2_-> 0

的阴影区域

一些点与文字

在新情节中

轴应像在R

中一样在图的外部

我欢迎图片中的文字和箭头使用更优雅的替代方法

附言在R的帮助页面中，我试图进行这种绘制，但是我并没有超出绘制和曲线的基本用途。

更新也许轮廓可以胜任

Answer 1

您可以执行以下操作:

f <- function(x,y){x*y}
x <- seq(0.2,2,length=1000)
objective <- 0.5
y <- c()
for(i in 1:length(x)){
  y[i] <- optimize(function(y){abs(f(x[i],y)-objective)},interval=c(0,4))$minimum
}
plot(x,y,type="l")

该图显示了x的函数x * y = 0.5(对于介于0.2和2之间的x)。这不适用于您的特定函数，但我希望这是一个有用的开始。请注意，这很容易破解，因为 optimize速度很慢，通常应尽可能在R中避免 for循环。