在RStudio中绘制两个变量的非线性方程

Question

我想在RStudio中绘制0.2 * ln（x/40）-0.02（x-40）= - 0.04ln（y/100）+0.004（y-100）。我安装了“操纵”软件包并使用了plotFun，但它没有奏效。我尝试使用plot.function，但我找不到解决方案。请帮忙

Answer 1

由于您没有提供任何代码，因此不确定您尝试了什么。也许这可以帮助：解决您的方程Z（或设置= 0），然后给plotFun新的表达：

library(manipulate) 
library(mosaic) 

plotFun(0.2*log(x/40)- 0.02*(x-40) + 0.04*log(y/100) - 0.004*(y-100) ~ 
     y+x, surface=TRUE, ylim=c(0,5), xlim=c(0,5)) 

如果你只是想针对z = 0，则可以使用contour：

xyFun <- function(x,y){ 
    0.2*log(x/40)- 0.02*(x-40)+0.04*log(y/100) - 0.004*(y-100) 
} 

x <- y <- seq(0,5, by=0.1)  
z <- outer(x,y,xyFun) 

contour(x,y,z, levels=0) 

或只是

contour(x,y,z)