R + ggplot2: cách ẩn các ngày bị thiếu khỏi trục x?

Question

Giả sử chúng tôi có khung dữ liệu đơn giản sau đây của các cặp ngày-giá trị, trong đó một số ngày bị thiếu trong chuỗi (ví dụ: ngày 12 tháng 1 đến ngày 14 tháng 1). Khi tôi vẽ các điểm, nó cho thấy những ngày thiếu này trên trục x, nhưng không có điểm nào tương ứng với những ngày đó. Tôi muốn ngăn những ngày thiếu này hiển thị trong trục x, do đó trình tự điểm không bị ngắt. Có bất cứ đề nghị nào cho việc làm như thế này hả? Cảm ơn!

dts <- c(as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16'))) 
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
     scale_x_date(format = '%d%b', major='days') 

Answer 1

Xoay dữ liệu ngày vào một yếu tố sau đó. Hiện tại, ggplot đang diễn giải dữ liệu theo nghĩa bạn đã nói với dữ liệu đó - một thang ngày liên tục. Bạn không muốn quy mô đó, bạn muốn có một quy mô phân loại:

require(ggplot2) 
dts <- as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16')) 
df <- data.frame(dt = dts, val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() + 
     scale_x_date(format = '%d%b', major='days') 

so

df <- data.frame(dt = factor(format(dts, format = '%d%b')), 
        val = seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

trong đó sản xuất:

Là những gì bạn muốn?

Answer 2

Câu hỏi đầu tiên là: tại sao bạn muốn làm điều đó? Không có điểm nào trong việc hiển thị cốt truyện dựa trên tọa độ nếu các trục của bạn không phải là tọa độ. Nếu bạn thực sự muốn làm điều này, bạn có thể chuyển đổi thành một yếu tố. Hãy cẩn thận với thứ tự mặc dù:

dts <- c(as.Date(c('31-10-2011', '01-11-2011', '02-11-2011', 
      '05-11-2011'),format="%d-%m-%Y")) 
dtsf <- format(dts, format= '%d%b') 
df <- data.frame(dt=ordered(dtsf,levels=dtsf),val=seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

Với những yếu tố bạn phải cẩn thận, như thứ tự là tùy ý trong một yếu tố, trừ khi bạn thực hiện nó một yếu tố ra lệnh. Vì các yếu tố được sắp xếp theo thứ tự bảng chữ cái theo mặc định, bạn có thể gặp rắc rối với một số định dạng ngày. Vì vậy, hãy cẩn thận những gì bạn làm. Nếu bạn không mất trật tự vào tài khoản, bạn nhận được:

df <- data.frame(dt=factor(dtsf),val=seq_along(dts)) 
ggplot(df, aes(dt,val)) + geom_point() 

Answer 3

tôi đã thực hiện một gói mà thực hiện điều này. Nó được gọi là bdscale và trên CRAN và github. Shameless plug.

Để tái tạo ví dụ của bạn:

> library(bdscale) 
> library(ggplot2) 
> library(scales) 
> dts <- as.Date(c('2011-01-10', '2011-01-11', '2011-01-15', '2011-01-16')) 
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=dts, labels=date_format('%d%b')) 

Nhưng những gì bạn có thể muốn là để nạp ngày gọi hợp lệ, sau đó âm mưu dữ liệu của bạn bằng cách sử dụng ngày hợp lệ trên trục x:

> nyse <- bdscale::yahoo('SPY') # get valid dates from SPY prices 
> dts <- as.Date('2011-01-10') + 1:10 
> df <- data.frame(dt=dts, val=seq_along(dts)) 
> ggplot(df, aes(x=dt, y=val)) + geom_point() + 
    scale_x_bd(business.dates=nyse, labels=date_format('%d%b'), max.major.breaks=10) 

Warning message: 
Removed 3 rows containing missing values (geom_point). 

cảnh báo cho bạn biết là nó loại bỏ ba ngày:

• 15 = Thứ bảy
• 16 = Chủ Nhật
• 17 = MLK Day