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)