web-dev-qa-db-ja.com

R time_transは、クラスPOSIXctのオブジェクトで機能します

株価（データ）のデータがあります。株式データを可視化したい。まず、ggplotRプロットを使用して系列を視覚化します。

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

エラーが発生しました：エラー：無効な入力：time_transはクラスPOSIXctのオブジェクトでのみ機能します

もちろん、日付を日付形式として変更しようとしましたが、うまくいきませんでした。私も試しました

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

しかし、それも機能しません。私の希望する出力は次のようになります enter image description here

rggplot2time-seriesposixctscales-xml
5
little girl

これは、引数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")

enter image description here

コードに関しては、データの形式がdateの場合、scale_x_datetimeを使用することはできません（それらがそうであると仮定します）。そのため、エラーが発生します：Error: Invalid input: time_trans works with objects of class POSIXct only

2
ed_sans

日付列が文字ベクトルの場合、追加のパッケージを使用せずに、aes内の_as.Date_または以前のdf$date <- as.Date(df$date)を使用して変換できます。

_last_month <- Sys.Date() - 0:29
    df <- data.frame(
      date = last_month,
      price = runif(30)
    )
    df$date <- as.character(df$date)
# Plot
ggplot(df, aes(as.Date(date), price)) +
  geom_line()+
  scale_x_date(date_labels = "%b-%d-%Y")
_

enter image description here希望の形式に従って、月と日と年の間に改行を挿入します（_\n_内に_date_labels_ ）および回転するy軸の目盛り_angle = 90_ in theme：

_ggplot(df, aes(as.Date(date), price)) +
  geom_line()+
  scale_x_date(date_labels = "%b-%d-\n%Y")+
  theme(axis.text.y = element_text(angle = 90))
_

enter image description here

2
mpalanco