Frontera de Posibilidades
Graficaremos la frontera de posibilidades con valores aleatorios.
#Cargamos la libreria
library(ggplot2)
library(pander)
#Cantidades maximas:
m_cocos<-200
m_peces<-200
#Generar datos
cocos<-seq(0, m_cocos, by=10)
peces<-m_peces-(m_peces/m_cocos)*cocos
#Crear base de datosa:
produccion<-data.frame(coco2=cocos, peces2=peces)
pander(produccion)| coco2 | peces2 |
|---|---|
| 0 | 200 |
| 10 | 190 |
| 20 | 180 |
| 30 | 170 |
| 40 | 160 |
| 50 | 150 |
| 60 | 140 |
| 70 | 130 |
| 80 | 120 |
| 90 | 110 |
| 100 | 100 |
| 110 | 90 |
| 120 | 80 |
| 130 | 70 |
| 140 | 60 |
| 150 | 50 |
| 160 | 40 |
| 170 | 30 |
| 180 | 20 |
| 190 | 10 |
| 200 | 0 |
#calculamos contornos:
hull<-chull(produccion$coco2)
hull_point<-produccion[hull, ]
pander(hull_point)| coco2 | peces2 | |
|---|---|---|
| 1 | 0 | 200 |
| 21 | 200 | 0 |
ggplot(produccion, aes(x=coco2, peces2))+
geom_point(alpha=14, color="purple")+
geom_line(data = produccion, aes(x=coco2, y=peces2), color="deeppink", size=0.1, linetype="dashed")+
labs(title = "FFP de Robison",
x="Produccion de cocos",
y="Produccion de Peces")+
theme_classic()