如何爲此熱圖創建矩陣？

我如何爲此熱圖創建矩陣？

Person,Messages 
Dave,8 
James,6 
Dave,6 
Dave,8 
Dave,8 
John,5 
John,5 
John,20 
Dave,0 
....

我要創建其中顯示所有玩家每個消息的消息密度的熱圖。我想限制它在x軸上的0-14個消息值（換句話說，我關心的是約翰有20個，它應該影響整體密度，但我不關心在x軸上列出20個值，因爲它不會經常發生）。玩家名稱在y軸上。我該怎麼做呢？請讓我知道，如果這沒有意義。

來源

2011-10-07 Ron Garrity

如果我正確認識你，你可能沒有您的任何數據轉化爲矩陣，如果你願意使用geom_tile從ggplot2：

dat <- read.table(textConnection("Person,Messages 
Dave,8 
James,6 
Dave,6 
Dave,8 
Dave,8 
John,5 
John,5 
John,20 
Dave,0"),sep = ",",header = TRUE) 


dat <- ddply(dat,.(Person,Messages),summarise,val = length(Person)) 
ggplot(dat,aes(x = Messages, y = Person, fill = val)) + 
     geom_tile()

enter image description here

或者下面就來，你可以在image用作輸入假設全矩陣有點費力的路線是我們在dat開始與原始數據：

#Some data to pad with the missing combinations 
pad <- expand.grid(unique(dat$Person), 
        min(dat$Messages):max(dat$Messages)) 
colnames(pad) <- c('Person','Messages') 

#Aggregate the data and merge with pad data 
dat <- ddply(dat,.(Person,Messages),summarise,val = length(Person)) 
tmp <- merge(dat,pad,all.y = TRUE) 

#Convert from long to wide 
rs <- cast(tmp,Person~Messages,value = 'val') 

#Clean up the result 
rownames(rs) <- rs$Person 
rs <- rs[,-1] 
rs[is.na(rs)] <- 0 

> rs 
     0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
Dave 1 0 0 0 0 0 1 0 3 0 0 0 0 0 0 0 0 0 0 0 0 
James 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
John 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1

來源

2011-10-07 21:33:14 joran

如何爲此熱圖創建矩陣？

回答

相關問題