Reverse cooling order

Author: mine-cetinkaya-rundel

R/data-duke_forest.R

@@ -13,7 +13,7 @@
 #'    \item{type}{Type of home (all are Single Family).}
 #'    \item{year_built}{Year the home was built.}
 #'    \item{heating}{Heating sytem.}
-#'    \item{cooling}{Cooling system (`central` or `other`).}
+#'    \item{cooling}{Cooling system (`other` or `central`).}
 #'    \item{parking}{Type of parking available and number of parking spaces.}
 #'    \item{lot}{Area of the entire property, in acres.}
 #'    \item{hoa}{If the home belongs to an Home Owners Association, the associted fee (`NA` otherwise).}

data-raw/duke_forest/duke_forest-dataprep.R

@@ -15,7 +15,8 @@ duke_forest <- duke_forest_raw %>%
       cooling == "Central" ~ "central",
       cooling == "Central, Other" ~ "central",
       TRUE ~ "other"
-      )
+      ),
+    cooling = fct_rev(cooling)
     ) %>%
   rename(url = link) %>%
   relocate(url, .after = last_col())