Ethan Campbell HW3

Fort Worth Climate data.

Importing data

Importing and viewing the data to determine major cleaning changes that need to be made.

Fort_Worth <- read.csv("Fort_Worth_climate.csv", skip = 18)

#head(Fort_Worth)

#view(Fort_Worth)
#str(Fort_Worth)

Month_combined <- Fort_Worth %>%
pivot_longer(
  cols = c(NOV, JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, DEC),
  names_to = "MONTH",
  values_to = "Month_AVG",
)

Month_combined

# A tibble: 4,800 x 5
   PARAMETER  YEAR   ANN MONTH Month_AVG
   <chr>     <int> <dbl> <chr>     <dbl>
 1 PS         1981  98.6 NOV        98.8
 2 PS         1981  98.6 JAN        99.2
 3 PS         1981  98.6 FEB        99  
 4 PS         1981  98.6 MAR        98.5
 5 PS         1981  98.6 APR        98.6
 6 PS         1981  98.6 MAY        98.2
 7 PS         1981  98.6 JUN        98.3
 8 PS         1981  98.6 JUL        98.5
 9 PS         1981  98.6 AUG        98.4
10 PS         1981  98.6 SEP        98.6
# ... with 4,790 more rows

Month_combined %>%
select("PARAMETER", "YEAR", "MONTH", "Month_AVG", "ANN")

# A tibble: 4,800 x 5
   PARAMETER  YEAR MONTH Month_AVG   ANN
   <chr>     <int> <chr>     <dbl> <dbl>
 1 PS         1981 NOV        98.8  98.6
 2 PS         1981 JAN        99.2  98.6
 3 PS         1981 FEB        99    98.6
 4 PS         1981 MAR        98.5  98.6
 5 PS         1981 APR        98.6  98.6
 6 PS         1981 MAY        98.2  98.6
 7 PS         1981 JUN        98.3  98.6
 8 PS         1981 JUL        98.5  98.6
 9 PS         1981 AUG        98.4  98.6
10 PS         1981 SEP        98.6  98.6
# ... with 4,790 more rows

str(Month_combined)

tibble [4,800 x 5] (S3: tbl_df/tbl/data.frame)
 $ PARAMETER: chr [1:4800] "PS" "PS" "PS" "PS" ...
 $ YEAR     : int [1:4800] 1981 1981 1981 1981 1981 1981 1981 1981 1981 1981 ...
 $ ANN      : num [1:4800] 98.6 98.6 98.6 98.6 98.6 ...
 $ MONTH    : chr [1:4800] "NOV" "JAN" "FEB" "MAR" ...
 $ Month_AVG: num [1:4800] 98.8 99.2 99 98.5 98.6 ...

Types of data

• parameter = CHR
• year = Int
• Months = NUM
• Month_AVG = NUM
• ANN or AnnualAVG = NUM

The questions I want to answer with this data is

• Does precipitation increase or decrease over the years and when was it the highest and lowest.
• Is there a change in humidity and does it correlate with the change in precipitation, wind, and temperature.
• Does the temperature increase over the years or is it decreasing and does it correlate to the other variables?
• When considering all variables is there a noticeable change in the climate?