(v1.0.1.9000) first PCA implementation

2025-07-08 18:01:50 +02:00 · 2020-03-07 21:48:21 +01:00
parent f444c24ed3
commit fa0d9c58d9
40 changed files with 2224 additions and 172 deletions
--- a/data-raw/country_analysis.R
+++ b/data-raw/country_analysis.R
@ -154,7 +154,11 @@ data %>%
                                              origin = 'iso2c', 
                                              destination = 'country.name')) %>%
  summarise(first = min(timestamp_server)) %>%
-  arrange(desc(first))
+  arrange(desc(first)) %>% 
+  mutate(frame = case_when(first <= as.POSIXct("2019-06-30") ~ "Q1-Q2 2019",
+                           first <= as.POSIXct("2019-12-31") ~ "Q3-Q4 2019", 
+                           TRUE ~ "Q1-Q2 2020")) %>% 
+  View()
 # 
 # p1 <- data %>%
 #   group_by(country) %>%