Попробуйте это:
library(zoo)
z <- read.zoo("myfile.dat", header = TRUE, index = 1:2, format = "%Y%m%d %H:%M", tz = "")
# classic graphics
plot(z)
# ggplot2 graphics
autoplot(z)
Примечание
Чтобы создать файл для данных примера, представленных в вопросе, попробуйте это;однако с одной точкой вы не увидите ничего на линейном графике.
cat("Date Time LTP\n20180102 09:16 1800", file = "myfile.dat")