R + ggplot2：x軸から欠けている日付を隠すには？

Question

次のシンプルな日付 - 値ペアのデータフレームがあります。シーケンスの一部の日付が1月12日から1月14日に欠落しています。ポイントをプロットすると、これらの欠落した日付がx軸に表示されますが、その日付に対応するポイントはありません。私は、これらの欠けている日付がx軸に現れないようにしたいので、点列には改行がありません。これを行う方法に関する提案はありますか？ありがとう！

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

その後要因に日付データを回し

。現時点では、ggplotは、データが入っているという意味でデータを解釈しています。連続した日付のスケールです。

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') 

生成

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

対：

をあなたが何を望むかということですあなたはその規模を望んでいない、あなたがカテゴリスケールがしたいですか？

Answer 2

最初の質問は、なぜそれをしたいのですか？座標軸が座標でない場合、座標ベースのプロットを表示することはありません。本当にこれをやりたければ、要素に変換することができます。あなたは順序が要因に任意であるとして、あなたがそれ命じた要因作る場合を除き、注意しなければならない要因で

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() 

：しかし順序のため注意してください。要素はデフォルトでアルファベット順に並べ替えられているため、一部の日付形式で問題が発生する可能性があります。だからあなたがしていることに注意してください。あなたのアカウントに注文を取るしていない場合は、次のようになります。

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

Answer 3

を私はこれを行うパッケージを作りました。それはbdscaleと呼ばれ、それはCRANとgithubです。恥知らずのプラグ。あなたの例を複製するために

：

> 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')) 

しかし、あなたはおそらくしたいことは、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). 

警告は、それが3日付除去したことを通知されています

• 15 =土曜日
• 16日=日曜日
• 17 = MLK日