用2个或更多变量绘制R中的函数曲线

Question

如何为R中的vpd = function(k,D){exp(-k*D)}函数绘制曲线？

假设D是常数，我想要一个vpd与k（0：1）的情节。

我能找到的唯一问题是How to plot a function curve in R。我试过两个：

plot.function(vpd, from=0, to=1, n=101)

curve(vpd, from=0, to=1, n=101, add=FALSE, type = "l")

但只能得到

Error in -k * D : 'D' is missing

更新：解决了！

vpd <- function(D,k=0.05){exp(-k*D)} # D is the x axis 
plot(vpd, from=1, to=100, ylim=0:1)

Answer 1

虽然Mamoun Benghezal的答案适用于您自己定义的函数，但在某些情况下您可能需要绘制预期函数，该函数需要多于1个参数。在这种情况下，currying是一个解决方案：

library(functional)

k <- 0.05

vpd <- function(k,D){exp(-k*D)}
vpd_given_k <- Curry(vpd, k = 0.05)

curve(vpd_given_k, ylim = c(0, 1),
      from = 1, to = 100, 
      xlab = "D", ylab = paste("vpd | k = ", k))