如何绘制函数定义域

Question

我想在图中绘制我的函数定义的域，如下面的

在R中有没有很好的方法呢？

更新：我不想绘制我想要绘制域名描述的功能（如legend或text） 下面的图片

Answer 1

例如，使用text和一些plotmath魔术：

curve(ifelse(x==0,0,1/x))
text(0.8,60,expression(f(x)~"="~bgroup("{",
                        atop(1/x~~~x!=0, ~~0~~~~~x==0), "")
                        ),cex=2,col='red'
     )

PS 我做了一些修改以获得更好的结果，始终保持第一个想法。

Answer 2

试试这个：

plot(0)
legend("topleft", bty = "n",
  legend =  ~ f(x) == bgroup("{", atop(1/x ~~ x != 0, 0 ~~~~~ x == 0), ""))

修改以将其置于绘图区域内。