gravatar

Moses-L

Moses Luke

Recently Published

Moses learning Shiny
A reporducible code on R
Plot
> library(tidyverse) > d = tibble::tribble( + ~classification, ~metric, + "Scientist", 7, + "Member", 2, + "Scientist", 19, + "Scientist", 44, + "Scientist", 76, + "Researcher", 21, + "Member", 2, + "Researcher", 38, + "Member", 1, + "Member", 4, + "Scientist", 40, + "Scientist", 20, + "Researcher", 5, + "Member", 13, + "Scientist", 84, + "Member", 9, + "Member", 5, + "Member", 1, + "Member", 9, + "Researcher", 8, + "Scientist", 39, + "Member", 6, + "Researcher", 39, + "Member", 3, + "Researcher", 10, + "Researcher", 8, + "Researcher", 32, + "Scientist", 56, + "Member", 12, + "Member", 14, + "Researcher", 39, + "Member", 2, + "Member", 4, + "Member", 2, + "Researcher", 17, + "Member", 5, + "Member", 10, + "Scientist", 40, + "Researcher", 30, + "Researcher", 5, + "Researcher", 5, + "Member", 1, + "Scientist", 23, + "Researcher", 9, + "Member", 22, + "Scientist", 54, + "Scientist", 12, + "Researcher", 30, + "Member", 3, + "Member", 2, + "Member", 18, + "Member", 1, + "Researcher", 35, + "Member", 5, + "Member", 11, + "Researcher", 10, + "Member", 1, + "Researcher", 9, + "Member", 3, + "Researcher", 10, + "Member", 6, + "Scientist", 16, + "Member", 8, + "Researcher", 12, + "Member", 2, + "Member", 10, + "Scientist", 40, + "Researcher", 29, + "Scientist", 34, + "Scientist", 27, + "Researcher", 13, + "Researcher", 17, + "Researcher", 12, + "Scientist", 18, + "Researcher", 7, + "Member", 2, + "Scientist", 19, + "Researcher", 8, + "Researcher", 14, + "Researcher", 31, + "Scientist", 50, + "Researcher", 9, + "Scientist", 14, + "Member", 3, + "Member", 8, + "Scientist", 47, + "Researcher", 20, + "Scientist", 19, + "Member", 20, + "Member", 6, + "Researcher", 36, + "Member", 8, + "Researcher", 10, + "Member", 8, + "Researcher", 5, + "Member", 8, + "Scientist", 42, + "Researcher", 31, + "Researcher", 22, + "Researcher", 10, + "Researcher", 57, + "Scientist", 19, + "Scientist", 76, + "Member", 10, + "Scientist", 79, + "Member", 60, + "Researcher", 22, + "Researcher", 14, + "Researcher", 32, + "Member", 2, + "Member", 5, + "Member", 0, + "Scientist", 59, + "Researcher", 4, + "Member", 5, + "Scientist", 27, + "Scientist", 32, + "Member", 7, + "Researcher", 18, + "Member", 3, + "Researcher", 5, + "Scientist", 24, + "Member", 5, + "Researcher", 10, + "Researcher", 28, + "Member", 9, + "Member", 12, + "Scientist", 12, + "Researcher", 2, + "Researcher", 7, + "Member", 13, + "Member", 2, + "Member", 17, + "Scientist", 32, + "Member", 18, + "Researcher", 12, + "Scientist", 43, + "Member", 3, + "Researcher", 6, + "Researcher", 15, + "Scientist", 21, + "Member", 4, + "Researcher", 23 + ) > d = tibble::tribble( + ~classification, ~metric, + "Scientist", 7, + "Member", 2, + "Scientist", 19, + "Scientist", 44, + "Scientist", 76, + "Researcher", 21, + "Member", 2, + "Researcher", 38, + "Member", 1, + "Member", 4, + "Scientist", 40, + "Scientist", 20, + "Researcher", 5, + "Member", 13, + "Scientist", 84, + "Member", 9, + "Member", 5, + "Member", 1, + "Member", 9, + "Researcher", 8, + "Scientist", 39, + "Member", 6, + "Researcher", 39, + "Member", 3, + "Researcher", 10, + "Researcher", 8, + "Researcher", 32, + "Scientist", 56, + "Member", 12, + "Member", 14, + "Researcher", 39, + "Member", 2, + "Member", 4, + "Member", 2, + "Researcher", 17, + "Member", 5, + "Member", 10, + "Scientist", 40, + "Researcher", 30, + "Researcher", 5, + "Researcher", 5, + "Member", 1, + "Scientist", 23, + "Researcher", 9, + "Member", 22, + "Scientist", 54, + "Scientist", 12, + "Researcher", 30, + "Member", 3, + "Member", 2, + "Member", 18, + "Member", 1, + "Researcher", 35, + "Member", 5, + "Member", 11, + "Researcher", 10, + "Member", 1, + "Researcher", 9, + "Member", 3, + "Researcher", 10, + "Member", 6, + "Scientist", 16, + "Member", 8, + "Researcher", 12, + "Member", 2, + "Member", 10, + "Scientist", 40, + "Researcher", 29, + "Scientist", 34, + "Scientist", 27, + "Researcher", 13, + "Researcher", 17, + "Researcher", 12, + "Scientist", 18, + "Researcher", 7, + "Member", 2, + "Scientist", 19, + "Researcher", 8, + "Researcher", 14, + "Researcher", 31, + "Scientist", 50, + "Researcher", 9, + "Scientist", 14, + "Member", 3, + "Member", 8, + "Scientist", 47, + "Researcher", 20, + "Scientist", 19, + "Member", 20, + "Member", 6, + "Researcher", 36, + "Member", 8, + "Researcher", 10, + "Member", 8, + "Researcher", 5, + "Member", 8, + "Scientist", 42, + "Researcher", 31, + "Researcher", 22, + "Researcher", 10, + "Researcher", 57, + "Scientist", 19, + "Scientist", 76, + "Member", 10, + "Scientist", 79, + "Member", 60, + "Researcher", 22, + "Researcher", 14, + "Researcher", 32, + "Member", 2, + "Member", 5, + "Member", 0, + "Scientist", 59, + "Researcher", 4, + "Member", 5, + "Scientist", 27, + "Scientist", 32, + "Member", 7, + "Researcher", 18, + "Member", 3, + "Researcher", 5, + "Scientist", 24, + "Member", 5, + "Researcher", 10, + "Researcher", 28, + "Member", 9, + "Member", 12, + "Scientist", 12, + "Researcher", 2, + "Researcher", 7, + "Member", 13, + "Member", 2, + "Member", 17, + "Scientist", 32, + "Member", 18, + "Researcher", 12, + "Scientist", 43, + "Member", 3, + "Researcher", 6, + "Researcher", 15, + "Scientist", 21, + "Member", 4, + "Researcher", 23 + ) > d %>% + group_by(classification) %>% + mutate(class_med = median(metric)) %>% + ggplot(aes(metric))+ + geom_histogram()+ + geom_vline(aes(xintercept = class_med))+ + geom_text(aes(x = class_med, y = 10, label = glue::glue('Median: {class_med}')), vjust = 'top', angle = 90)+ + facet_grid(~classification) `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Peer Assessment Assignment by Moses Luke
Requirement for the completion of R Programming Course
Introducing RMarkdown to Dr Fola by Moses Luke
Just want you to see this Sir.
My Resume
Testing RMarkdown
Reproducible Research Assignment 2 by Moses Luke
Storm Data Analysis By: Moses Luke 10th November, 2019.