r - 在R中绘制轴

Question

我应该绘制以下函数:

h <- function(x) 0.08-0.06*(1-exp((-x)/(1.5)))/((x)/(1.5))-0.3*((1-exp((-x)/(1.5)))/((x)/(1.5))-exp(-((x)/(1.5)))+0.6*((1-exp((-x)/(0.5)))/((x)/(0.5))-exp(-((x)/(0.5)))))

所以我做了:

plot(-1:24, h(-1:24), type="l")

这将是X轴。但我不知道如何将其更改为y。
对于x，我想将其从-1绘制到24，对于y将其从-0.5绘制到0.2。
有人可以帮忙吗？

Answer 1

函数的问题在于，该函数未定义为0，因此您在x == -1处得到一个单点，然后加一个空格直到x == 1。您会得到更多点的更好的情节，例如

x <- seq(-1, 24, len=200)
plot(x, h(x), type = "l")

(它永远不会将其评估为正好为零，因此不会出现差距)。
如果仍然要更改轴限制，请使用

x <- seq(-1, 24, len=200)
plot(x, h(x), type = "l", ylim = c(-0.5, 2))