Question 2

#Question 2 Provide your answer to Question 1 as a graph #Set up working path and export paths summary <- read.csv(“C:/Users/bridg/OneDrive/Desktop/Collage/GIS-461/Final Exam/Maricopa/Maricopa_2002_2022_TempSummary.csv”) head(summary)

jpeg(“C:/Users/bridg/OneDrive/Desktop/Collage/GIS-461/Final Exam/TemperaturePlot.jpeg”, width = 800, height = 600) plot(summary\(Year, summary\)Avg_Daily_High_Temp, type = “o”, col = “blue”, pch = 16, lwd = 2, main = “Average Daily High Temperature (2002–2022)”, xlab = “Year”, ylab = “Avg Daily High Temp (C)”)

dev.off()