在 R hexbin() 中创建带日期的 Hexbin

Question

我正在尝试使用 R 中的 hexbin 包中的 hexbin 函数创建 x 轴为日期的 hexbin。当我输入数据时，它似乎将日期转换为数字，并显示出来在 x 轴上。我希望它强制 x 轴成为日期。

#Create Hex Bins
hbin <- hexbin(xData$Date, xData$YAxis, xbins = 80)

#Plot using rBokeh
figure() %>% 
  ly_hexbin(hbin)

这给了我：

Answer 1

这是使用底层网格绘图包的蛮力方法。斧头很丑；也许 grid 技能比我更好的人可以美化他们。

# make some data
x = seq.Date(as.Date("2015-01-01"),as.Date("2015-12-31"),by='days')
y = sample(x)

# make the plot and capture the plot
p <- plot(hexbin(x,y),yaxt='n',xaxt='n')

# calculate the ticks
x_ticks_date <- 
x_ticks <- axTicks(1, log = FALSE, usr = as.numeric(range(x)),
                axp=c(as.numeric(range(x)) ,5))
class(x_ticks_date) <- 'Date'
y_ticks_date <- 
y_ticks <- axTicks(1, log = FALSE, usr = as.numeric(range(y)),
                   axp=c(as.numeric(range(y)) ,5))
class(y_ticks_date) <- 'Date'

# push the ticks to the view port.
pushViewport(p$plot.vp@hexVp.off)
grid.xaxis(at=x_ticks, label = format(y_ticks_date))
grid.yaxis(at=y_ticks, label = format(y_ticks_date))

在 R hexbin() 中创建带日期的 Hexbin

Creating Hexbins with Dates in R hexbin()

r

date

time-series

binning