Чтение файлов Excel
# Working with Excel Files
# Installing required package
install.packages("readxl")
# Loading the package
library(readxl)
# Loading the package
library(readxl)
NPK = read_excel("npk.xlsx",)
dt = as.data.frame(NPK)
head(NPK)
head(dt)

Разумеется в указанной директории должен быть расположен файл электронных таблиц. В случае его отсутствия его можно создать автоматически выполнив (предварительно расскоментировав) конструкцию ниже
# library(writexl)
# setwd('C:/R')
# data=npk
# write_xlsx(data, "npk.xlsx")