R 如何绘制函数定义域

我想在图中画出我的函数定义域，如下所示

有没有一个很好的方法可以在R内完成

---

更新：我不想绘制我想绘制的域描述（作为

图例

或

文本

）的函数，例如使用

文本

和一些

绘图数学

魔术：

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我做了一些编辑，以获得更好的结果，始终保持第一个想法。

例如，使用

文本和一些
绘图数学
魔术：

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我做了一些编辑，以获得更好的结果，始终保持第一个想法。
试试这个：

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


修改后将其放在绘图区域内。
尝试以下操作：

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


修改后将其放在绘图区域内。
您能再解释一下吗？你的例子是为所有实数定义的。请看更新的问题。你能解释更多吗？您的示例是针对所有实数定义的。请参阅更新的问题，您在那里几乎被0除；）您在那里几乎除以0；）