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.