# Load libraries
library(ggplot2)

# Data Source: https://www.kaggle.com/datasets/samuelotiattakorah/agriculture-crop-yield?resource=download

df <- read.csv("crop_yield.csv", header = TRUE, sep = ",")
ftable(df$Crop)
df <- df[df$Crop == "Maize", ]

# Scatter plot: Price vs Units_Sold
ggplot(df, aes(x = Rainfall_mm, y = Yield_tons_per_hectare)) +
  geom_point(color = "#D44803", alpha = 0.6) +
  labs(title = "Scatter Plots with PikBioStat: Rainfall vs Maize Yield",
       x = "Rainfall (mm)",
       y = "Yield tons per Hectare") +
  theme_minimal() +
  theme(
    panel.grid = element_blank()
  )