[解決済み] R time_trans は POSIXct クラスのオブジェクトで動作します。

質問

株価のデータ（data）があるのですが、どうしたらいいですか？株価のデータを可視化したい。まず、Rプロットのggplotを使って、系列を可視化します。

    Date      Closed
2010-07-19    0.0808
2010-07-20    0.7547

以下のコードを使用した場合

    my_date_format <- function()
{
  function(x)
  {
    m <- format(x,"%b")
    y <- format(x,"%Y")
    ifelse(duplicated(y),m,paste(m,y))
  }
}

ggplot(data, aes(x=Date, z=Closed)) +
  geom_point() +
  scale_x_datetime(breaks = date_breaks("1 month"), labels=my_date_format())

エラーが発生しました。Error: Invalid input: time_trans works with objects of class POSIXct only.

もちろん、DateをDateフォーマットにしてみましたが、これもうまくいきません。 また

    ggplot(data, aes(Date, Closed)) + geom_line() +
  scale_x_date(format = "%Y-%m-%d") + xlab("") + ylab("Closed")

or

ggplot(data,aes(Date,Closed))+geom_line() + scale_x_date(breaks = “1 month”,labels=date_format(“%b/%y”)) +xlab(” “) + ylab(“closed”)

が、これもうまくいきません。 私の望む出力は次のようなものです。

解決方法は？

この場合、引数 date_labels :

library(ggplot2)
library(lubridate)
data <- read.table(text= "
Date      Closed
                   2010-07-19    0.0808
                   2010-07-20    0.7547
                   2010-07-21    0.8547", stringsAsFactors=FALSE, header = TRUE)

data$Date <- ymd(data$Date)
ggplot(data, aes(x=Date, y=Closed)) + 
  geom_line() + scale_x_date(date_labels = "%b-%d-%Y")

コードについては scale_x_datetime の場合、データの形式は date (と仮定して）。だから、エラーが出るんですね。 Error: Invalid input: time_trans works with objects of class POSIXct only