切断功能中图

Question

我有一个简单的问题，似乎找不到答案。

我正在绘制下面的函数p，其中约束m≥0。

因此，我只想在域m∈[0，∞）中绘制函数p。

p <- function(m) (-m^2+9*m+1)/(1+m)
xrange <- c(-10, 10)
yrange <- c(-20,20)
plot(p, xlim=xrange, ylim=yrange)

如何从m <0截取情节？