Edgeworth Box

# Load required libraries
library(ggplot2)

# Dummy data for private and public goods
private_good <- seq(0, 100, by = 1)
public_good <- seq(0, 100, by = 1)

# Create data frame for ggplot
data <- expand.grid(private_good = private_good, public_good = public_good)
data$utility_alice <- data$private_good + data$public_good
data$utility_bob <- data$private_good + data$public_good

# Plotting the Edgeworth Box
ggplot(data, aes(x = private_good, y = public_good)) +
  geom_tile(aes(fill = (utility_alice + utility_bob)), alpha = 0.8) +
  scale_fill_gradientn(colors = c("white", "blue")) +
  geom_contour(aes(z = utility_alice + utility_bob), bins = 10, color = "red") +
  labs(
    title = "Edgeworth Box for Public and Private Goods",
    x = "Private Good (Apples)",
    y = "Public Good (Public Park)",
    fill = "Total Utility"
  ) +
  theme_minimal()