При условии, что данные, воспроизводимые в примечании, воспроизводятся в конце, создайте вектор упорядочения o
и затем нанесите упорядоченные данные:
o <- order(dat$Date)
plot(dat[o, ], type = "o")
или преобразуйте данные в серию зоопарка, которая автоматически упорядочитэто, а затем построить.
library(zoo)
z <- read.zoo(dat)
plot(z, type = "o")
Примечание
Данные в воспроизводимой форме:
Lines <- "Date Number of visits
2010-05-17 13
2010-05-18 11
2010-05-19 4
2010-05-20 2
2010-05-21 23
2010-05-22 26
2011-05-13 14"
dat <- read.csv(text = gsub(" +", ",", readLines(textConnection(Lines))),
check.names = FALSE)
dat$Date <- as.Date(dat$Date)