Программирование!!!!!

Здравствуйте. До 14 марта нужно выполнить ПР.

код для загрузки файла из EXCEL

install.packages("readxl", repos="http://cran.rstudio.com/", dependencies=TRUE)

library(readxl)

types = c("text", rep("numeric", 3), "text")

t<- as.data.frame(read_excel("C:/Users/mirea/Downloads/tab2.xlsx", 1,col_types = types))

код для загрузки файла в формате csv

df1=read.csv("C://Users//mirea//Downloads//drinks.csv")16:04