Publications by Andrew
Diabetes analysis
# Establish working directory path getwd() ## [1] "/cloud/project/reports" # Establish folder path list.files("/cloud/project") ## [1] "analysis" "diabetes" "project.Rproj" "reports" # Establish files in the folder list.files("/cloud/project/diabetes") ## [1] "glucose_readings.csv" "medications.csv" "patients.csv" # Load the datasets...
69 sym R (16248 sym/60 pcs) 6 img
Real estate analysis report
# load r packages 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.1 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.4 ✔ ...
49 sym R (23994 sym/42 pcs) 4 img
HR department Analysis
#establish general directory getwd() ## [1] "/cloud/project" # list files in thespecific directory list.files("/cloud/project/hr_dept") ## [1] "HR_Employees.csv" "HR_Performance.csv" "HR_training.csv" ## [4] "HR_Turnover.csv" "salary_costs.csv" # load the 3 datasets in the specific directory #1 employees dataset employees <- read.csv("/clo...
85 sym R (18969 sym/72 pcs) 10 img
Heart Disease Analysis
# load dataset heart <- read.csv("/cloud/project/dataset/heart_disease.csv") head(heart) ## Age Gender Blood.Pressure Cholesterol.Level Exercise.Habits Smoking ## 1 56 Male 153 155 High Yes ## 2 69 Female 146 286 High No ## 3 46 Male 126 ...
47 sym R (11589 sym/39 pcs) 5 img
Analysis of Housing Dataset
# load packages 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) # Establish the general directory getwd() ## [1] "/cloud/project/housing" # Establi...
65 sym R (11590 sym/50 pcs) 12 img
Analysis Report Hospital Admissions datasets
# Establish main directory where data is stored getwd() ## [1] "/cloud/project/hospital" # Establish specific directory where data is stored list.files( "/cloud/project") ## [1] "Elective) #and ward assignment.R" "hospital" ## [3] "project.Rproj" list.files( "/cloud/project/hospital") ## [1] "Admissions.csv" ...
89 sym R (21969 sym/75 pcs) 11 img
Retail Demographics Analysis Report
# load dataset customer <- read.csv("/cloud/project/retail/customer_data.csv") head(customer) ## Age Gender Income SpendScore EducationLevel Region PurchasedProduct Rating ## 1 56 Male 41672 19 Bachelors South 0 1 ## 2 46 Female 78217 37 PhD West 1 5 ## 3 32 Female ...
65 sym R (13904 sym/50 pcs) 12 img
Market Lending Risks Analysis
# load packages install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1...
70 sym R (15049 sym/59 pcs) 8 img
Analysis of Solar Financing
install.packages("tidyverse") ## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4' ## (as 'lib' is unspecified) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcat...
74 sym R (15359 sym/59 pcs) 12 img
Document
# Load Jan jan_records <- read.csv("/cloud/project/call-center/Jan.csv") head(jan_records) ## Date AgentID TotalCalls AnsweredCalls AbandonedCalls SpeedOfAnswer ## 1 2024-01-16 A1504 119 107 12 51.14 ## 2 2024-01-10 A1030 170 69 101 46.05 ## 3 2024-01-29 A1200 ...
37 sym R (11140 sym/31 pcs) 3 img