import data

> df <- read.csv("~/desktop/data.csv", header = TRUE, sep = ",")

> install.packages('readxl')
> library(readxl)
> df <- read_excel("~/desktop/data.csv")