R time_trans 适用于 class POSIXct 的对象
R time_trans works with objects of class POSIXct
我有股票价格数据(数据)。股票数据我想可视化它。我首先使用 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 仅适用于 class 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”)
但它也不起作用。
我想要的输出看起来像这样
使用参数 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")
关于您的代码,如果您的数据格式是 date
(假设它们是),则不能使用 scale_x_datetime
。这就是您收到错误的原因:Error: Invalid input: time_trans works with objects of class POSIXct only
如果您的 Date 列是字符向量,您可以在 aes
或之前的 df$date <- as.Date(df$date)
中使用 as.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
inside date_labels
)并旋转 y 轴刻度线 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))
我有股票价格数据(数据)。股票数据我想可视化它。我首先使用 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 仅适用于 class 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”)
但它也不起作用。
我想要的输出看起来像这样
使用参数 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")
关于您的代码,如果您的数据格式是 date
(假设它们是),则不能使用 scale_x_datetime
。这就是您收到错误的原因:Error: Invalid input: time_trans works with objects of class POSIXct only
如果您的 Date 列是字符向量,您可以在 aes
或之前的 df$date <- as.Date(df$date)
中使用 as.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
inside date_labels
)并旋转 y 轴刻度线 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))