5

次のような data.frame があります。

library(ggplot2)
library(reshape2)    
tasks <- c("Review literature", "Mung data")
    dfr <- data.frame(
      name        = factor(tasks, levels = tasks),
      start.date  = c("24/08/2010 01:00:01", "24/08/2010 01:00:10", "01/11/2010 01:30:00", "01/11/2010 02:00:00"),
      end.date    = c("24/08/2010 02:00:00", "24/08/2010 03:00:00", "01/11/2010 02:00:00", "01/11/2010 04:00:00")
    )
    mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))

ggplot2 を使用してこのデータをプロットして、異なる日付が異なるファセットにあり、時間部分のみが x 軸に表示されるようにしたいと思いますか? 私は次のようなものを試しました：

ggplot(mdfr, aes(as.Date(value, "%H/%M/%S"), name)) + 
   geom_line(size = 6) +
   xlab("") + ylab("") +
   theme_bw() + facet_wrap(~as.Date(value, "%d/%m/%Y"))

Error in layout_base(data, vars, drop = drop) : 
  At least one layer must contain all variables used for facetting
4

1 に答える 1

4

溶けたデータ フレームに 2 つの新しい列value2とdate. value2はPOSIXct時間のクラスであり、date列には元の日付部分のみが含まれvalue、ファセットに使用するための要素に変換されます。

mdfr$value2<-as.POSIXct(strptime(mdfr$value, "%d/%m/%Y %H:%M:%S"))
mdfr$date<-as.factor(as.Date(strptime(mdfr$value, "%d/%m/%Y %H:%M:%S")))

これで、新しい value2 を x として使用し、ファセットの日付を使用できるようになりました。と を使用facet_grid()してscales="free_x"、space="free_x"両方のファセットで等間隔の時間間隔を取得しました。

ggplot(mdfr, aes(value2, name)) + 
  geom_line(size = 6) +
  xlab("") + ylab("") +
  theme_bw() + facet_grid(~date,scales="free_x",space="free_x")

ここに画像の説明を入力

于 2013-08-16T12:43:53.763 に答える