About

Author bio

Hello! I’m a writer and journalist based in Hong Kong.

Statement on AI Use

  1. I used ChatGPT to generate lists of regions with specific country names.

  2. I then used ChatGPT to generate R codes that add a column of corresponding Region.

  3. I then used Grok to generate the code below to covert wide data to long data. ”

usage 1

prompt: turn this into a list in R called “Americas”: Belize Costa Rica Cuba Dominican Republic El Salvador Guatemala Haiti Honduras Jamaica Mexico Nicaragua Panama Trinidad and Tobago Canada United States of America Argentina Bolivia Brazil Chile Colombia Ecuador Guyana Paraguay Peru Uruguay Venezuela

response: Americas <- c( “Belize”, “Costa Rica”, “Cuba”, “Dominican Republic”, “El Salvador”, “Guatemala”, “Haiti”, “Honduras”, “Jamaica”, “Mexico”, “Nicaragua”, “Panama”, “Trinidad and Tobago”, “Canada”, “United States of America”, “Argentina”, “Bolivia”, “Brazil”, “Chile”, “Colombia”, “Ecuador”, “Guyana”, “Paraguay”, “Peru”, “Uruguay”, “Venezuela” )

usage 2

prompt: how to add a column named “region”, if i already have lists of countries belonging to that region

response: df <- df %>% mutate( region = case_when( country %in% Africa ~ “Africa”, country %in% Americas ~ “Americas”, country %in% Asia ~ “Asia”, country %in% Europe ~ “Europe”, country %in% Middle_East ~ “Middle East”, country %in% Oceania ~ “Oceania”, TRUE ~ “Other” # for unmatched countries ) )

usage 3

prompt: write r code to make this wide data to long data (after attaching exported df1 csv file)

response: library(readr) library(dplyr) library(tidyr)

Read the CSV file

df <- read_csv(“df1.csv”, na = c(“…”, ““))

Pivot from wide to long format

df_long <- df %>% pivot_longer( cols = 1949:2024, names_to = “Year”, values_to = “Value”, values_drop_na = FALSE # Keep NA values if desired ) %>% # Optional: Clean the Value column (remove % and convert to numeric) mutate( Value = as.numeric(gsub(“%”, ““, Value)) / 100 # Assuming values are percentages, convert to decimal )

View the long data

head(df_long)