We extract the token immediately preceding “peace”.
# =========================
# Peace/Mир adjective mining + stopword filtering + EN/UKR unification + monthly dynamics
# =========================
# ---- packages ----
library(dplyr)
library(tidyr)
library(stringr)
library(stringi)
library(lubridate)
library(ggplot2)
library(scales)
library(stopwords)
library(RColorBrewer)
# ---- stopwords: EN + UK (ISO) ----
stop_en <- stopwords("en", source = "snowball")
stop_uk <- stopwords("uk", source = "stopwords-iso")
all_stops <- unique(c(stop_en, stop_uk)) %>% str_to_lower()
# ---- ensure we have text_lower + normalized text ----
# If text_lower already exists in msgs, it will be used; otherwise uses `text`.
msgs2 <- msgs %>%
mutate(
text_lower = if ("text_lower" %in% names(.)) text_lower else str_to_lower(text),
text_norm = stringi::stri_trans_nfc(text_lower)
)
# ---- ensure we have a parsed datetime column called `date` ----
# Tries common column names; adjust if needed.
date_col <- intersect(c("date", "created_at", "timestamp", "datetime", "time"), names(msgs2))[1]
if (is.na(date_col)) stop("No date column found. Add/rename a date column (e.g., date, created_at, timestamp).")
msgs2 <- msgs2 %>%
mutate(
date = .data[[date_col]],
date = case_when(
inherits(date, "POSIXt") ~ as.POSIXct(date),
inherits(date, "Date") ~ as.POSIXct(date),
TRUE ~ suppressWarnings(lubridate::ymd_hms(date, quiet = TRUE))
)
)
if (anyNA(msgs2$date)) {
missing_idx <- is.na(msgs2$date)
msgs2$date[missing_idx] <- as.POSIXct(
suppressWarnings(lubridate::ymd(msgs2[[date_col]][missing_idx], quiet = TRUE))
)
}
# ---- extract the word immediately before peace|мир (row-level, long) ----
adj_long <- msgs2 %>%
mutate(
adj = stringi::stri_extract_all_regex(
text_norm,
# safer than \\b for Unicode: grab letters preceded by non-letter, followed by peace/мир
"(?<!\\p{L})(\\p{L}+(?:[\\-–—]\\p{L}+)*)(?=\\s+[\"'«»„“”’)]*\\s*(?:peace|мир(?:у|ом|і|и|ів|ам|ами|ах)?)\\b)"
)
) %>%
tidyr::unnest_longer(adj) %>%
mutate(
adj = str_to_lower(stringi::stri_trans_nfc(adj))
) %>%
filter(!is.na(adj), adj != "", !(adj %in% all_stops))
# ---- unify EN <-> UKR equivalents (add Ukrainian where missing) ----
# Canonical labels = Ukrainian forms (where possible)
equiv_map <- c(
# =====================
# REAL — реальний
# =====================
"real" = "real",
"реальний"="real","реального"="real","реальному"="real","реальним"="real",
"реальним"="real","реальні"="real","реальна"="real","реальну"="real",
"реальною"="real","реальне"="real","реальних"="real","реальними"="real",
# =====================
# LASTING — тривалий
# =====================
"lasting"="lasting",
"тривалий"="lasting","тривалого"="lasting","тривалому"="lasting",
"тривалим"="lasting","тривалі"="lasting","тривала"="lasting",
"тривалу"="lasting","тривалою"="lasting","тривале"="lasting",
"тривалих"="lasting","тривалими"="lasting",
# =====================
# GLOBAL — глобальний
# =====================
"global"="global",
"глобальний"="global","глобального"="global","глобальному"="global",
"глобальним"="global","глобальні"="global","глобальна"="global",
"глобальну"="global","глобальною"="global","глобальне"="global",
"глобальних"="global","глобальними"="global",
# =====================
# UKRAINIAN — український
# =====================
"ukrainian"="ukrainian",
"український"="ukrainian","українського"="ukrainian","українському"="ukrainian",
"українським"="ukrainian","українські"="ukrainian","українська"="ukrainian",
"українську"="ukrainian","українською"="ukrainian","українське"="ukrainian",
"українських"="ukrainian","українськими"="ukrainian",
# =====================
# JUST — справедливий
# =====================
"just"="just",
"справедливий"="just","справедливого"="just","справедливому"="just",
"справедливим"="just","справедливі"="just","справедлива"="just",
"справедливу"="just","справедливою"="just","справедливе"="just",
"справедливих"="just","справедливими"="just",
# =====================
# TRUE — справжній
# =====================
"true"="true",
"справжній"="true","справжнього"="true","справжньому"="true",
"справжнім"="true","справжні"="true","справжня"="true",
"справжню"="true","справжньою"="true","справжнє"="true",
"справжніх"="true","справжніми"="true",
# =====================
# RELIABLE — надійний
# =====================
"reliable"="reliable",
"надійний"="reliable","надійного"="reliable","надійному"="reliable",
"надійним"="reliable","надійні"="reliable","надійна"="reliable",
"надійну"="reliable","надійною"="reliable","надійне"="reliable",
"надійних"="reliable","надійними"="reliable",
# =====================
# WORTHY — достойний
# =====================
"worthy"="worthy",
"достойний"="worthy","достойного"="worthy","достойному"="worthy",
"достойним"="worthy","достойні"="worthy","достойна"="worthy",
"достойну"="worthy","достойною"="worthy","достойне"="worthy",
"достойних"="worthy","достойними"="worthy"
)
adj_long2 <- adj_long %>%
mutate(
adj_group = recode(adj, !!!equiv_map, .default = adj)
)
# ---- overall counts (merged) ----
peace_adjectives_merged <- adj_long2 %>%
count(adj_group, sort = TRUE)
# show top results
peace_adjectives_merged %>%
filter(n >= 5) %>%
head(20)
#> # A tibble: 20 × 2
#> adj_group n
#> <chr> <int>
#> 1 just 196
#> 2 lasting 167
#> 3 формули 164
#> 4 саміту 148
#> 5 до 140
#> 6 true 77
#> 7 заради 73
#> 8 reliable 61
#> 9 real 56
#> 10 worthy 54
#> 11 саміті 54
#> 12 саміт 50
#> 13 наближення 38
#> 14 досягнення 29
#> 15 наблизити 26
#> 16 для 25
#> 17 формулу 25
#> 18 формула 24
#> 19 global 21
#> 20 в 21
# ---- monthly dynamics (merged) ----
target_groups <- unique(equiv_map)
monthly_adj_merged <- adj_long2 %>%
mutate(month = as.Date(floor_date(date, "month"))) %>%
filter(adj_group %in% target_groups) %>%
count(month, adj_group) %>%
arrange(month)
# ---- plot: proportional stacked area (100%) with ColorBrewer ----
# full month sequence
all_months <- seq.Date(
as.Date(floor_date(min(adj_long2$date, na.rm = TRUE), "month")),
as.Date(floor_date(max(adj_long2$date, na.rm = TRUE), "month")),
by = "1 month"
)
monthly_adj_merged <- adj_long2 %>%
mutate(month = as.Date(floor_date(date, "month"))) %>%
filter(adj_group %in% target_groups) %>%
count(month, adj_group) %>%
complete(
month = all_months,
adj_group = target_groups,
fill = list(n = 0)
) %>%
arrange(month)
ggplot(monthly_adj_merged, aes(x = month, y = n, color = adj_group, group = adj_group)) +
geom_path() +
scale_y_continuous() +
scale_color_brewer(palette = "Set1") + # You can change palette here
labs(
title = "Proportional Monthly Dynamics (Merged EN/UKR Equivalents)",
x = "Month",
y = "Count",
color = "Adjective (merged)"
) +
theme_minimal()
