R中隨時間變化的熱圖密度

Question

下面提供了樣本數據集。

我不確定我在想圖的名字。 我每天都會記錄一個值，而不是創建一個簡單的折線圖，而是要像從上方看水一樣顯示該值，淺處淺而淺處深。

我只是想創建一個簡單的矩形，其中Date在X軸上，Y軸只是一個統一的值，並且該日期的行的顏色由記錄的值定義，行之間沒有任何間隔在每個日期。

我希望它看起來像這樣的色標線，在不同深度具有不同的陰影，並且用戶可以在最大深度控制顏色。

我對R中的可視化還比較陌生，我的主要目標只是簡單地嘗試用不同的方法來表示一些簡單的數據。 對於我可以做些什么來學習如何不僅創建像這樣的圖，而且將來可能還會創建其他非傳統圖，我將不勝感激。

D <- structure(list(Date = structure(c(16709, 16710, 16711, 16712, 
16713, 16714, 16715, 16716, 16717, 16718, 16719, 16720, 16721, 
16722, 16723, 16724, 16725, 16726, 16727, 16728, 16729, 16730, 
16731, 16732, 16733, 16734, 16735, 16736, 16737, 16738), class = "Date"), 
Length = c(288, 426, 315, 844, 587, 224, 859, 1052, 892, 
483, 497, 927, 2697, 1647, 2494, 1525, 0, 0, 1263, 0, 753, 
671, 673, 792, 1615, 739, 1268, 367, 0, 120)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -30L), .Names = c("Date", "Value"))

編輯：

我目前正與geom_raster()在ggplot2 。 它沒有我想的那么漂亮，但是我將以此為起點。

library(dplyr)

ggplot(D %>% mutate(y = 1),
   aes(x = Date, y = y, fill = Value)) +
  geom_raster() +
  scale_fill_gradientn(colors = c("white", "black"))

Answer 1

一個不太漂亮的結果。 我確定您可以調整圖像功能中的某些設置以使其更美觀。

library(dplyr)
I <- D %>% arrange(Date)
M <- as.matrix(I$Value, nrow=1)
image(M)