Publications by Patrick Ford
Hip Replacement Plots
# Load necessary libraries library(ggplot2) library(tidyr) # Read data from CSV file Sheet2 <- read.csv("Sheet2.csv") # Check the structure of the data str(Sheet2) ## 'data.frame': 9 obs. of 10 variables: ## $ Lookup : chr "EnglandEnglandHip ReplacementEQ VAS" "EnglandEnglandHip ReplacementEQ-5D Index" "EnglandEnglandHip ReplacementOxf...
9 sym R (2158 sym/4 pcs) 2 img
TESSARO_NONLOCAL_BACTERIA.sav - Plots
Bacterial biophotons as non-local information carriers: Species-specific spectral characteristics of a stress response. pacman::p_load(pacman, ggplot2, tidyr, dplyr, haven) # Read SPSS data my_data <- haven::read_sav("TESSARO_NONLOCAL_BACTERIA.sav") # Convert the INJ column to a factor my_data$INJ <- as.factor(my_data$INJ) # Convert columns to ...
1864 sym 4 img
TESSARO_NONLOCAL_BACTERIA.sav
pacman::p_load(pacman, skimr, haven) # Load the data set my_data <- haven::read_sav("TESSARO_NONLOCAL_BACTERIA.sav") # Basic Summary summary(my_data) ## WAVG F1 F2 F3 ## Min. : 46.75 Min. : 46.86 Min. : 47.42 Min. : 47.16 ## 1st Qu.: 92.03 1st Qu.: 92.98 1st Qu.: 93.41 ...
37 sym 2 tbl
Wind Farm Operational Capacity by Country and Year (MW)
# Load necessary libraries library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.0 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ...
9 sym R (2397 sym/5 pcs) 1 img
Wind Power (MW): Country vs Year (2000-2023)
# Load necessary libraries library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.0 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ...
9 sym R (2379 sym/5 pcs) 1 img
Multiple Moon Plot
# Installing and loading necessary packages install.packages("plotly") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3' ## (as 'lib' is unspecified) install.packages("ggplot2") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3' ## (as 'lib' is unspecified) library(plotly, ggplot2) ## Loading required pack...
15 sym R (2629 sym/11 pcs)
Planetary Bar Charts
# Define the data planets <- c("MERCURY", "VENUS", "EARTH", "MOON", "MARS", "JUPITER", "SATURN", "URANUS", "NEPTUNE", "PLUTO") mass <- c(0.33, 4.87, 5.97, 0.073, 0.642, 1898, 568, 86.8, 102, 0.013) diameter <- c(4879, 12104, 12756, 3475, 6792, 142984, 120536, 51118, 49528, 2376) density <- c(5429, 5243, 5514, 3340, 3934, 1326, 687, 1270, 1638, 1850...
7 sym Python (3780 sym/2 pcs) 2 img
Data Set Examination - ED.csv
install.packages("skimr") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats ...
74 sym R (4902 sym/17 pcs) 3 img 3 tbl
Excess Deaths by Country & Age
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1 ## ...
7 sym R (995 sym/3 pcs) 1 img
All Cardiovascular Death Rate & Diabetes Prevalence
library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(ggplot2) library(tidyr) # Load the data data <- read.csv("covid.csv") # Convert date column to Date format...
14 sym R (2271 sym/10 pcs) 1 img