Publications by Patrick Ford
National Joint Registry (NJR)
# Load necessary libraries pacman::p_load(pacman, readr, ggplot2, tidyverse, summarytools, Amelia, gridExtra, RColorBrewer) # Load the datasets nhs_file_path <- "NHS.csv" ind_file_path <- "IND.csv" nhs_data <- read_csv(nhs_file_path) ## Rows: 64328 Columns: 27 ## ── Column specification ──────────────────�...
43 sym Python (13484 sym/24 pcs) 16 img
Knives Out1
Recorded Knife Crime Trends Over Time: England & Wales (Including Greater Manchester Police (GMP)), Last Year Excluding GMP, Apr 2010 - Mar 2024, Source Home Office Change in Ethnic Group Percentages by Group in England & Wales (2011 vs 2021) Ethnic Group Populations in England & Wales (2011 vs 2021) Possession of a Weapon with a Blade or Point ...
770 sym Python (14028 sym/20 pcs) 7 img 1 tbl
Rationale for Changing Medication
My Rationale for Changing the Medication Given to Me on Discharge After THA I was given Pradaxa (generic name: dabigatran etexilate) at a dose of 2x 110 mg in the morning, and Co-codamol (30 mg codeine and 500 mg paracetamol) at a dose of 2 tablets, 4 times a day. I received my first dose of Pradaxa on the day of discharge from the hospital. After ...
9546 sym
Lollipop Chart
# Load the necessary libraries pacman::p_load(pacman, dplyr, tidyr, ggplot2, readr) # Load the data DVT_TH_Characteristics <- read_csv("DVT_TH_Characteristics.csv") ## Rows: 13 Columns: 5 ## ── Column specification ───────────────────────────────────────────�...
9 sym 1 img
Adventures of Sherlock Holmes: Sentiment Analysis
pacman::p_load(pacman, tidytext, dplyr, tidyr, ggplot2, readr, topicmodels, gridExtra, wordcloud, RColorBrewer, quanteda, quanteda.textstats) # Load the CSV file sherlock_data <- read_csv("ADVENTURES_OF_SHERLOCK_HOLMES.csv", col_names = FALSE) ## Rows: 2570 Columns: 1 ## ── Column specification ────────────────�...
30 sym Python (6850 sym/22 pcs) 5 img
USA: Marijuana Tax Revenues
# Load necessary libraries pacman::p_load(pacman, readr, ggplot2, dplyr, scales, knitr, RColorBrewer) # Read the CSV files Marijuana_Legal_Status <- read_csv("Marijuana_Legal_Status.csv") ## Rows: 51 Columns: 2 ## ── Column specification ───────────────────────────────────�...
22 sym Python (5651 sym/14 pcs) 4 img 1 tbl
Body Armour Female Police Survey: England and Wales - 2016
The data was collated from over 2000 female police officers in relation to the wearing of body armour, bra type and size, discomfort and ability to perform simple tasks. The data relates to officers from the police forces of England and Wales only, collected in 2016. ###Original Survey cat(" Original Survey I confirm that I have been informed about...
319 sym Python (22299 sym/19 pcs) 57 img
Possession of a Weapon with a Blade or Point by Area: England & Wales 2021-2024
# Load necessary libraries pacman::p_load(pacman, ggplot2, dplyr, tidyr, gridExtra, knitr) # Load the data data_cL49V <- read.csv("data-cL49V.csv") # Convert columns data_cL49V <- data_cL49V %>% rename( Area = X.1, `2021/22` = `X2021.22`, `2022/23` = `X2022.23`, `2023/24` = `X2023.24`, Grand_Total = `Grand.Total`, Popul...
9 sym Python (4674 sym/3 pcs) 2 img 1 tbl
Bible and Quran Sentiment Analysis
# Load necessary libraries pacman::p_load(pacman, tidytext, dplyr, ggplot2, readr, topicmodels, textdata, gridExtra, wordcloud, RColorBrewer) # Function to process text data process_text_data <- function(file_path, text_col_name) { data <- read_csv(file_path) %>% mutate(document = row_number()) %>% # Add a document column for unique identifi...
37 sym Python (11372 sym/26 pcs) 8 img
Bible and Quran Sentiment Analysis
# Load necessary libraries pacman::p_load(pacman, tidytext, dplyr, ggplot2, readr, topicmodels, textdata, gridExtra, wordcloud, RColorBrewer) # Function to process text data process_text_data <- function(file_path, text_col_name) { data <- read_csv(file_path) %>% select(text = all_of(text_col_name)) %>% mutate(text = gsub("[0-9]+", "", t...
27 sym Python (9190 sym/18 pcs) 6 img