R ggplot geom_tile 日期垂直间距不均匀

Question

set.seed(1990)

ID <- rep(LETTERS,each = 12)
n <- rep(round(runif(12,1,10)), 26)
datetime <- rep(seq(as.POSIXct("2020-01-01"), as.POSIXct("2020-12-01"), by="month"), 26)
datetime <- lubridate::date(datetime)
dataset <- tibble(ID, datetime, n)

ggplot(dataset 
       ,
       aes(x=datetime,y= reorder(ID, n),fill=n))+
  geom_tile(color = 'gray') +
  scale_x_date(expand = c(0,0),breaks = seq(as.Date("2014-07-01"), as.Date("2020-12-01"), by = "1 month"), date_labels = "%Y %b", name = 'Monthly') 

似乎间距是由特定月份的天数长度决定的，这在这种情况下并不是很有用。

我找到的临时解决方案是将日期转换为因数，但似乎仍然不是最好的，因为水平空间也不均匀。

dataset$datetime <- factor(dataset$datetime)

ggplot(dataset 
       ,
       aes(x=datetime,y= reorder(ID, n),fill=n))+
  geom_tile(color = 'gray')

但是我将失去使用 scale_x_date() 进行标记的能力

> ggplot(dataset 
+        ,
+        aes(x=datetime,y= reorder(ID, n),fill=n))+
+   geom_tile(color = 'gray') +
+   scale_x_date(expand = c(0,0),breaks = seq(as.Date("2014-07-01"), as.Date("2020-12-01"), by = "1 month"), date_labels = "%Y %b", name = 'Monthly') 
Error: Invalid input: date_trans works with objects of class Date only

我希望实现的是这个完美的正方形，所有方 block 之间的间距都相等，如下所示。

Answer 1

这有点 hack，但是如何将日期更改为 aes() 调用中的一个因子，使用 zoo::as.yearmon(datetime)。然后你可以使用coord_equal():

library(zoo)
ggplot(dataset, aes(y = as.factor(zoo::as.yearmon(datetime)),
                    x = reorder(ID, n), fill=n)) +
  geom_tile(color = 'gray') + labs(x = "Factor", y = "Date") +
  coord_equal() 

如果您需要更多格式控制，请添加对format 的调用:

ggplot(dataset ,aes(y = reorder(as.factor(format(zoo::as.yearmon(datetime),"%Y %b")),
                                zoo::as.yearmon(datetime)),
                    x = reorder(ID, n), fill = n)) +
  geom_tile(color = 'gray') + labs(x = "Factor", y = "Date") +
  coord_equal()