R中的数据可视化

Question

要显示的数据来自实验(T1-T8代表大脑的不同部分),如下所示:

    [[Block1]]
              sum
       [T1,]   6
       [T2,]   6
       [T3,]   4
       [T4,]   5
       [T5,]   8
       [T6,]   9
       [T7,]   8
       [T8,]   6

    [[Block2]]
              sum
       [T1,]   3
       [T2,]   3
       [T3,]   4
       [T4,]   5
       [T5,]   4
       [T6,]   2
       [T7,]   1
       [T8,]   5

    [[Block3]]
              sum
       [T1,]   3
       [T2,]   3
       [T3,]   4
       [T4,]   2
       [T5,]   4
       [T6,]   8
       [T7,]   3
       [T8,]   1   

   [[Block4]]
              sum
       [T1,]   6
       [T2,]   5
       [T3,]   4
       [T4,]   3
       [T5,]   9
       [T6,]   8
       [T7,]   2
       [T8,]   6  

   [[Block5]]
              sum
       [T1,]   8
       [T2,]   3
       [T3,]   4
       [T4,]   5
       [T5,]   7
       [T6,]   6
       [T7,]   2
       [T8,]   2 

   [[Block6]]
              sum
       [T1,]   10
       [T2,]   9
       [T3,]   6
       [T4,]   8
       [T5,]   9
       [T6,]   4
       [T7,]   6
       [T8,]   7

等等..超过100块..

我想以下面的方式可视化数据,以查看每个区域的整体价值.

对于一个块,我得到一个线图,如下所示:

但是对于100个块可视化相同是很乏味的.使用R..I尝试使用热图来查看它的最佳方法是什么？我想将它们视为图形.

最后它应该是这样的(我有一个粗略的数字)..我不知道如何在R中为单个图中的几个块或其他更好的方式来实现它:

Answer 1

这里有另一种选择lattice xyplot.数据示例是现实的矩阵(100x8).我试图删除条带以优化绘图区域.我认为结果只对获得数据的全局概念或主要趋势有用.

dat <- matrix(sample(1:10,100*8,rep=TRUE),nrow=8,
              dimnames=list(paste0('T',1:8),paste0('Block',1:100)))
library(reshape2)
dat.m <- melt(dat)
xyplot(value~Var1|Var2,
       data=dat.m,type=c('l','p'),
       strip =FALSE,layout = c(10,10))