Publications by Patrick Ford
Tabby's Star
# Load necessary libraries pacman::p_load(pacman, ggplot2, gridExtra, lomb) # Load the data data <- read.csv("TabbysStarFlux.csv") # Rename the 'Time.BJD.2454833.' column to 'time' names(data)[names(data) == 'Time.BJD.2454833.'] <- 'time' # Ensure the 'time' column is numeric data$time <- as.numeric(data$time) # Create a scatter plot with a lin...
8 sym Python (4165 sym/3 pcs) 2 img
An Apple a Day: Which Bacteria Do We Eat With Organic and Conventional Apples?
# Load necessary libraries pacman::p_load(pacman, tidyverse, reshape2, gridExtra) # Define the roles of each bacterial genus bacterial_roles <- data.frame( Bacterial_Genera = c("Methylobacterium", "Hymenobacter", "Spirosoma", "Zymomonas", "Bdellovibrio", "Kineococcus", "Deinococcus", "Amnibacterium", ...
11 sym Python (5569 sym/5 pcs) 3 img
Flower of Life & Apple Core Plots
# Load required libraries pacman::p_load(pacman, ggplot2, dplyr, ggforce) # Function to create a pentagon (approximation of apple's cross-section) create_pentagon <- function(radius = 0.5, center_x = 0, center_y = 0) { angles <- seq(0, 2 * pi, length.out = 6) # 5 points + 1 to close data.frame( x = center_x + radius * cos(angles), y ...
8 sym 2 img
Impact of Zen Meditation on Word Processing
Zen meditation neutralises emotional evaluation, but not implicit affective processing of words # Load necessary libraries pacman::p_load(pacman, ggplot2, dplyr, GGally, readxl) # Read the datasets MWT_B_Intelligence_Test <- read_excel("MWT-B, Intelligence Test , Lusnig, Radach, Mueller, Hofmann, 2020.xlsx") D2_R_Concentration_Capacity_Test <- rea...
131 sym 6 img
Top Companies Analysis
# Load necessary libraries pacman::p_load(pacman, readr, tidyr, forcats, dplyr, ggplot2, patchwork, reshape2, scales, gridExtra) # Function to load and clean datasets load_and_clean_data <- function(file_path) { data <- read_csv(file_path) %>% filter(!is.na(country)) return(data) } # Load the datasets from the CSV files Companies_ranked_b...
27 sym Python (12531 sym/20 pcs) 4 img
Higher or Lower.
# Load required libraries pacman::p_load(pacman, dplyr, grid, png) # Create the full deck of cards suits <- c("Hearts", "Diamonds", "Clubs", "Spades") values <- c(2:10, "J", "Q", "K", "A") # Shuffle function shuffle_deck <- function() { deck <- expand.grid(Value = values, Suit = suits, stringsAsFactors = FALSE) deck <- deck[sample(nrow(deck))...
6 sym Python (4854 sym/2 pcs) 1 img
Earthquake Map Plot2
# Load necessary libraries pacman::p_load(pacman, readr, ggplot2, maps, mapdata) # Load the CSV file earthquake_1995_2023 <- read_csv("earthquake_data.csv") ## Rows: 782 Columns: 19 ## ── Column specification ─────────────────────────────────────────────...
7 sym Python (1670 sym/3 pcs) 1 img
Live Earthquake Map
# Load necessary libraries pacman::p_load(pacman, websocket, jsonlite, later, logging, lubridate, ggplot2, maps, gridExtra) # Initialise earthquake data quake_data <- data.frame( mag = numeric(), location = character(), timestamp = character(), longitude = numeric(), latitude = numeric(), depth = numeric(), stringsAsFactors = FALSE )...
4 sym Python (3409 sym/1 pcs)
Earthquake Map Plot
# Load necessary libraries pacman::p_load(pacman, readr, ggplot2, maps, mapdata) # Load the CSV file earthquake_1995_2023 <- read_csv("earthquake_1995-2023.csv") ## Rows: 1000 Columns: 19 ## ── Column specification ───────────────────────────────────────────...
7 sym Python (1676 sym/3 pcs) 1 img
Oldest Humans Who Have Ever Lived (as of 2022)
pacman::p_load(pacman, readr, ggplot2, RColorBrewer, gridExtra) # Read the CSV file Oldest_Humans_Who_Have_Ever_Lived_2022 <- read_csv("Oldest_Humans_Who_Have_Ever_Lived_2022.csv") ## Rows: 18 Columns: 4 ## ── Column specification ──────────────────────────────────────...
15 sym Python (2346 sym/7 pcs) 5 img