Publications by Patrick Ford
7 x 3D Surface Plots
# Load necessary libraries pacman::p_load(pacman, plotly, dplyr, viridis, akima) # List of file names with corresponding NCEI Accession numbers file_list <- list( "SAOcean20140607_20140717.csv" = "0157403", "SAOcean20170205_20170501.csv" = "0184841", "SAOcean20190107_20190122.csv" = "0208364(a)", "SAOcean20190223_20190414.csv" = "0208364(b...
4 sym
NCEI 0157403
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20140607_20140717.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7751 sym/2 pcs) 1 img
NCEI 0184481
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20170205_20170501.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7750 sym/2 pcs) 1 img
NCEI 0208364(a)
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20190107_20190122.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7747 sym/2 pcs) 1 img
NCEI 0208364(b)
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20190223_20190414.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7744 sym/2 pcs) 1 img
NCEI 0208364(c)
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20190806_20190827.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7736 sym/2 pcs) 1 img
NCEI 0208364(d)
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20191125_20191220.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (8088 sym/2 pcs) 1 img
NCEI 0225435
# Load required libraries pacman::p_load(pacman, dplyr, ggplot2, lubridate, gridExtra, viridis, tidyr, maps) # Load the dataset data <- read.csv("SAOcean20200108_20200202.csv") # Rename the time column to match the expected format names(data)[names(data) == "TIME_UTC_hh.mm.ss"] <- "TIME_UTC_hh:mm:ss" # Convert date and time to proper datetime fo...
6 sym Python (7746 sym/2 pcs) 1 img
BlackJack
# Load required libraries pacman::p_load(pacman, dplyr, grid, gridExtra, png) # Create the full deck of cards based on the number of decks suits <- c("Hearts", "Diamonds", "Clubs", "Spades") values <- c(2:10, "J", "Q", "K", "A") # Shuffle function to create a deck with multiple packs shuffle_deck <- function(num_decks = 1) { deck <- expand.grid...
4 sym Python (7045 sym/1 pcs)
A Collection of Stories by Frank William Ford
# Load required libraries pacman::p_load(pacman, tidytext, dplyr, tidyr, ggplot2, readr, topicmodels, udpipe, gridExtra, wordcloud, RColorBrewer, quanteda, quanteda.textstats) # Load the CSV file ford_data <- read_csv("The_Ford_Family.csv", col_names = FALSE) ## Rows: 987 Columns: 1 ## ── Column specification ───────────...
36 sym Python (17113 sym/26 pcs) 7 img