用x軸上的Date標籤繪製時間序列

我知道這個問題可能是一個陳詞濫調，但我很難做到這一點。用x軸上的Date標籤繪製時間序列

我有數據的格式如下設置：

 
    Date   Visits 

    11/1/2010  696537 
    11/2/2010  718748 
    11/3/2010  799355 
    11/4/2010  805800 
    11/5/2010  701262 
    11/6/2010  531579 
    11/7/2010  690068 
    11/8/2010  756947 
    11/9/2010  718757 
    11/10/2010  701768 
    11/11/2010  820113 
    11/12/2010  645259

我想創建一個時間序列圖，與代表時間& y軸vists x軸。另外，我想用日期標記x軸。我使用的代碼如下：

dm$newday = as.POSIXct(strptime(dm$Day, format="%Y-%m-%d")) 
plot(as.Date(dm$day),dm$visits) 
axis.Date(1,Day,at=seq(as.Date("2010/10/30"), as.Date("2011/01/29"),by="days"))

來源

2011-01-30 user538233

這就是你正在使用的代碼？它有用嗎？現在不行嗎？什麼是錯誤信息？ – Spacedman 2011-01-30 16:30:14

您的代碼有很多錯誤。

您在混合dm$Day和dm$day。可能不是相同的東西
您的列標題是Date和Visits。所以，你會訪問它們（我猜）爲dm$Date和dm$Visits
在日期字段，你有%Y-%m-%d這應該是%m/%d/%Y

下面的代碼應該繪製你想要什麼：

dm$newday = as.Date(dm$Date, "%m/%d/%Y") 
plot(dm$newday, dm$Visits)

來源

2011-01-30 17:12:11 csgillespie

1）由於時間是日期，因此請務必使用"Date"類，而不是"POSIXct"或"POSIXlt"。請參閱R新聞4/1獲取建議，並在最後的註釋中定義Lines。這裏沒有使用軟件包。

dm <- read.table(text = Lines, header = TRUE) 
dm$Date <- as.Date(dm$Date, "%m/%d/%Y") 
plot(Visits ~ Date, dm, xaxt = "n", type = "l") 
axis(1, dm$Date, format(dm$Date, "%b %d"), cex.axis = .7)

使用的text = Lines只是爲了保持示例自成一體，在現實中，它會與像"myfile.dat"來代替。（續後的圖像）

2）由於這是一個時間序列，你不妨利用時間序列表示給予稍微簡單代碼：

library(zoo) 

z <- read.zoo(text = Lines, header = TRUE, format = "%m/%d/%Y") 
plot(z, xaxt = "n") 
axis(1, dm$Date, format(dm$Date, "%b %d"), cex.axis = .7)

取決於你想要什麼在第一種情況下使用plot(Visits ~ Date, dm)或在第二種情況下使用plot(z)可能足以完全抑制axis命令。

注：

Lines <- "Date   Visits 
11/1/2010 696537 
11/2/2010 718748 
11/3/2010 799355 
11/4/2010 805800 
11/5/2010 701262 
11/6/2010 531579 
11/7/2010 690068 
11/8/2010 756947 
11/9/2010 718757 
11/10/2010 701768 
11/11/2010 820113 
11/12/2010 645259"

來源

2011-01-30 17:16:42

我喜歡使用ggplot2對於這樣的事情：

df$Date <- as.Date(df$Date, '%m/%d/%Y') 
require(ggplot2) 
ggplot(data = df, aes(Date, Visits)) + geom_line()

enter image description here

來源

2011-01-30 19:21:40

您可以通過黑客用文字軸符號旋轉的日期（）

Lines <- "Date   Visits 
11/1/2010 696537 
11/2/2010 718748 
11/3/2010 799355 
11/4/2010 805800 
11/5/2010 701262 
11/6/2010 531579 
11/7/2010 690068 
11/8/2010 756947 
11/9/2010 718757 
11/10/2010 701768 
11/11/2010 820113 
11/12/2010 645259" 

dm <- read.table(textConnection(Lines), header = TRUE) 
dm$Date <- as.Date(dm$Date, "%m/%d/%Y") 
plot(Visits ~ Date, dm, xaxt = "n", type = "l") 
axis(1,at=NULL, labels=F) 
text(x = dm$Date, par("usr")[3]*.97, labels = paste(dm$Date,' '), srt = 45, pos = 1, xpd = TRUE,cex=.7)

來源

2011-01-31 05:14:52 jdonaldson

有可能在ggplot，你可以使用scale_date此任務

library(ggplot2) 
Lines <- "Date   Visits 
    11/1/2010 696537 
    11/2/2010 718748 
    11/3/2010 799355 
    11/4/2010 805800 
    11/5/2010 701262 
    11/6/2010 531579 
    11/7/2010 690068 
    11/8/2010 756947 
    11/9/2010 718757 
    11/10/2010 701768 
    11/11/2010 820113 
    11/12/2010 645259" 
    dm <- read.table(textConnection(Lines), header = TRUE) 
    dm <- mutate(dm, Date = as.Date(dm$Date, "%m/%d/%Y")) 
    ggplot(data = dm, aes(Date, Visits)) + 
    geom_line() + 
    scale_x_date(format = "%b %d", major = "1 day")

來源

2011-01-31 14:16:45 dickoa

-1

我喜歡ggplot了。

這裏有一個例子：

df1 = data.frame(
date_id = c('2017-08-01', '2017-08-02', '2017-08-03', '2017-08-04'),   
nation = c('China', 'USA', 'China', 'USA'), 
value = c(4.0, 5.0, 6.0, 5.5)) 

ggplot(df1, aes(date_id, value, group=nation, colour=nation))+geom_line()+xlab(label='dates')+ylab(label='value')

enter image description here

來源

2017-08-21 02:49:06 guobz

用x軸上的Date標籤繪製時間序列

回答

相關問題