About me

An employee of the Republic of Indonesia’s Ministry of Finance. Funded by the Indonesia Endowment Fund for Education ("Lembaga Pengelola Dana Pendidikan"), at the moment, on study leave to join a PhD program in the School of Economics, the University of Nottingham with research interests in Indonesia's government bonds market and their bondholders' behaviour. Also a research assistant at tracktheeconomy.ac.uk.

Functions

Prerequisites

Clean the environment

rm(list=ls())
ls()

Install the package & load the library

install.packages("tidyverse")
library(tidyverse)

Set the working directory

getwd()
setwd("/Users/arifpras/OneDrive - The University of Nottingham/BB_KelasData")
dir()

Data

Ages

library(readxl)
op_ages <- read_excel(path = "/Users/arifpras/OneDrive - The University of Nottingham/BB_KelasData/KelasData/00_Datasets/OP_all.xlsx", sheet = "OP_ages")
DT::datatable(op_ages, fillContainer = FALSE, options = list(pageLength = 3))

Data

Powers

library(readxl)
op_powers <- read_excel(path = "/Users/arifpras/OneDrive - The University of Nottingham/BB_KelasData/KelasData/00_Datasets/OP_all.xlsx", sheet = "OP_powers")
DT::datatable(op_powers, fillContainer = FALSE, options = list(pageLength = 3))

Datasaurus

Never trust summary statistics alone.

Source: library(datasauRus); https://github.com/Z3tt/TidyTuesday/tree/master/plots/2020_42

ggplot2

Decision trees

Source: https://www.data-to-viz.com

Assigning colors

• 1: Color palette
• 2: Qualitative variables
• 3: Quantitative variables

Source: "Hands-On Data Visualization" by Jack Dougherty & Ilya Ilyankou

Source: https://github.com/allisonhorst/stats-illustrations/

Source: https://github.com/allisonhorst/stats-illustrations/

Line plot

Animating bar plot

Animating line plot

Practical sessions

Source: https://arifpras.github.io/WranglingViz/

Initial specifications

    $${\text{Sales}}_t={\alpha }_0+{\alpha }_1{\text{Chapters}}_t+{\alpha }_2{\text{LastMovie}}_t+{\alpha }_3{\text{VIX index}}_t+{\upsilon }_t$$ $${\text{Sales}}_t={\beta }_0+{\beta }_1{\text{Pages}}_t+{\beta }_2{\text{LastMovie}}_t+{\beta }_3{\text{VIX index}}_t+{ϵ}_t$$

Dataset

library(readxl)
op_sales <- read_excel(path = "/Users/arifpras/OneDrive - The University of Nottingham/BB_KelasData/KelasData/00_Datasets/OP_all.xlsx", sheet = "OP_sales")
DT::datatable(op_sales, fillContainer = FALSE, options = list(pageLength = 3))

Dependent variable

Independent variables

Practical sessions

Source: https://arifpras.github.io/BasicModelling/

Acknowledgements