Publications by Patrick Ford
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
Global Energy Investment
Global Energy Investment Dashboard: 2015-2023; 2024 (predicted). Patrick Ford — 2024-07-25 Row Row Row...
162 sym 2 img
EV Sales Analysis
# Load necessary libraries pacman::p_load(pacman, tidyverse, ggplot2, scales, readr, knitr, gridExtra, grid) # Load the data IEA_Global_EV_Data_2024 <- read_csv("IEA Global EV Data 2024.csv") ## Rows: 12654 Columns: 8 ## ── Column specification ─────────────────────────────────�...
7 sym Python (5250 sym/3 pcs) 1 img