[英]R x-axis milliseconds to Date labels
所以我有一组数据,其中包含每个条目的时间戳(以毫秒为单位)。 示例数据:
"date","lowest_price","median_price","volume"
"1615219740000","1.61€","1.61€","13.785"
"1615322760000","1.46€","1.51€","12.496"
"1615322760000","1.46€","1.51€","12.496"
"1615322820000","1.46€","1.51€","12.496"
"1615322940000","1.46€","1.51€","12.496"
"1615323540000","1.49€","1.51€","12.496"
"1615324140000","1.49€","1.51€","12.496"
"1615326000000","1.50€","1.45€","12.413"
我现在想使用数值进行计算/绘图,但对于可视化本身,我想要一个将日期显示为时间戳的间隔(例如 14-03-2021 14:00)
目前我拥有的是:
pp <- ggplot(data=breakout_case, aes(x = date, y = lowest_price, group = 1)) +
geom_line() +
theme(axis.text.x = element_text(angle = 90)) +
labs(title = "Operation Breakout Case Price-chart",
x = "Date",
y = "Price"
)
pp
它看起来像这样:
因此,我需要例如 14-03-2021 14:00 而不是 1.61e+12 等(不是正确的转换,仅作为示例)
我也不太清楚,为什么 x 轴上已经有了刻度。
提前致谢
转换为 posixCT,然后使用scale_x_datetime
-properties 格式化 x 轴
使用的样本数据
mydata <- read.table( text = ' "date","lowest_price","median_price","volume"
"1615219740000","1.61€","1.61€","13.785"
"1615322760000","1.46€","1.51€","12.496"
"1615322760000","1.46€","1.51€","12.496"
"1615322820000","1.46€","1.51€","12.496"
"1615322940000","1.46€","1.51€","12.496"
"1615323540000","1.49€","1.51€","12.496"
"1615324140000","1.49€","1.51€","12.496"
"1615326000000","1.50€","1.45€","12.413" ',
sep = ",", header = TRUE)
代码
library( tidyverse )
library( scales )
mydata %>%
dplyr::mutate( timestamp = date %>%
as.numeric %>% #make it numeric
`/`(1000) %>% #divide by 1000
as.POSIXct( origin = "1970-01-01" ) ) %>% #set to POSIXct
ggplot( aes( x = timestamp, y = lowest_price, group = 1 ) ) +
geom_line() +
#set axis properties here
scale_x_datetime( breaks = "3 hour",
labels = scales::date_format( "%Y-%m-%d %H:%M" ) ) +
#rotete x-labels
theme( axis.text.x = element_text( angle = 90, vjust = 0.5 ) )
output
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.