可视化数值优化的结果

Question

我想使用R程序可视化线性编程问题的解决方案。

问题在于：   （使用图形方法将Z = 40X + 20Y最大化为3x + 2y <= 300, 2x + 4y <= 450, 5x + 7y <= 560

使用以下代码解决问题后

library(lpSolve) 

obj <- c(40,20) 
con.mat <- matrix(c(3,2,2,4,5,7),nrow=3,ncol=2,byrow=TRUE) 
con.dir <- c("<=") 
con.val <- c(300,450,560)

oursolution <- lp("max",obj,con.mat,con.dir,con.val) 

我需要帮助制作一个可视化我的解决方案的情节。