r - R time_trans 适用于 POSIXct 类的对象

Question

我有股票价格（数据）的数据。股票数据我想可视化它。我首先使用 ggplot R 绘图来可视化该系列。

    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 类的对象

当然，我尝试将 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”)

但它也不起作用。我想要的输出看起来像这样

score 7 · Accepted Answer

使用以下参数应该可以正常工作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

score 6 · Accepted Answer

as.Date 如果您的 Date 列是一个字符向量，您可以在内部aes或以前使用它来转换它，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")

根据您想要的格式\n，在月、日和年（内部）之间插入换行符，并在date_labelsy 轴刻度线angle = 90中旋转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))

r - R time_trans 适用于 POSIXct 类的对象

2 回答 2

Related

Reference