在 R 中绘制不等式

Question

我在 R 中遇到问题，非常感谢您的帮助。

我必须针对以下约束绘制可行性区域：

constrains:
5*x + 3*y >=  210
x + y <= 110
4*x + y <= 200

有任何想法吗？我还需要为可行的区域着色。

Answer 1

除了评论中的链接之外，一种方法是使用geom_ribbon特别足够的方法来绘制具有线性约束的区域。

library(ggplot2)

fun1 <- function(x) 210/3 -5/3*x
fun2 <- function(x) 110 -x
fun3 <- function(x) 200 -4*x
x1 = seq(-5,100)
mydf = data.frame(x1, y1=fun1(x1), y2=fun2(x1),y3= fun3(x1))
mydf <-  transform(mydf, z = pmax(y1,pmin(y2,y3)))
ggplot(mydf, aes(x = x1)) + 
  geom_line(aes(y = y1), colour = 'blue') +
  geom_line(aes(y = y2), colour = 'green') +
  geom_line(aes(y = y3), colour = 'red') +
  geom_ribbon(aes(ymin=y1,ymax = z), fill = 'gray60')