Hi,
df <- tibble::tribble(
~Area, ~Recent, ~Previous,
"A", 1629.2, 2627.2,
"B", 5171.9, 6759.7,
"C", 29157.7, 43021.5,
"D", 16723.3, 25762.5,
"E", 25019.9, 46898.5
)
t.test(df$Recent, df$Previous, paired = TRUE)
Have a read on interpreting the results: t-Tests (berkeley.edu)
Note: edited following @FJCC's comment
Also, next time have a look at this in terms of reproducible examples