2016-10-10 93 views
0

下面提供了一個樣本數據集。R中的熱圖密度隨時間變化

我不確定是否有一個我正在考慮的圖的名稱。我每天都會記錄一個值,而不是創建一個簡單的線條圖,我想要顯示它,就好像從上面看着一個水體,淺層深度較淺,深層深度較深。

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

我希望它會是這個樣子的顏色刻度線,與不同深度的不同色調,並有超過在最大深度的顏色的用戶控制。

Color Scale

我是比較新的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")) 
+1

嗨,你可能會發現閃亮(http://moderndata.plot.ly/interactive-r-visualizations-with-d3-ggplot2-rstudio/,https://www.rstudio.com/products/有光澤/閃亮用戶展示/)。希望這可以幫助。祝你好運。 – NajlaBioinfo

回答

1

一個不那麼漂亮的結果。我相信你可以調整圖像功能的一些設置,使其更好。

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