ggplot2中类似栅格的时间序列图

Question

我正在尝试使用ggplot2重新创建类似此处的图形。

如果我使用coord_equal弄乱点的大小和形状，我会变得很近，但是...

示例数据和代码

library(ggplot2)
df <- data.frame()
Years <- 1990:2020
for(i in 1:length(Years)) {
  Year <- Years[i]
  week <-1:52
  value <- sort(round(rnorm(52, 50, 30), 0))
  df.small <- data.frame(Year = Year, week = week, value = value)
  df <- bind_rows(df, df.small)
}


ggplot(df, aes(week, Year, color = value)) +
  geom_point(shape = 15, size = 2.7) +
  scale_color_gradientn(colours = rainbow(10)) +
  coord_equal()

问题是，

使用我的真实数据，我想“拉伸”图形，以便可以更清楚地看到它（我的时间序列更短），并且当我不使用coord_equal时，正方形不会填充图形区域：

ggplot(df, aes(week, Year, color = value)) +
  geom_point(shape = 15, size = 2.7) +
  scale_color_gradientn(colours = rainbow(10))

Answer 1

这像使用geom_raster geom一样简单吗？

ggplot(df, aes(week, Year)) +
  geom_raster(aes(fill = value)) +
  scale_fill_gradientn(colours = rainbow(10)) +
  coord_equal()