Maybe this is what you are looking for. First convert your Time
variable to date format. Second. Depending on your desired format you can set the number of breaks and the format for the labels via scale_x_date
:
library(ggplot2)
t2 <- read.table(text = "Time Area Height
1 2/26/2000 484226449 1560.46
2 3/5/2000 475053975 1560.42
3 3/13/2000 466963590 1560.39
4 3/21/2000 441697246 1560.29
5 3/29/2000 428258729 1560.25
6 4/6/2000 408551641 1560.16", header = TRUE)
t2$Time <- as.Date(t2$Time, "%m/%d/%Y")
ggplot(t2, aes(x = Time, y = Area)) +
geom_point() +
geom_line() +
scale_x_date(date_labels = "%d %b %Y")
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…