Simple Example, Chapter 1

Here is some text explain what I am about to plot

data <- readxl::read_excel("~/Desktop/spreadsheet.xlsx")
plot(x = data$Age, y = data$Income)