创建结果表并绘制直方图

Question

我在计算后获得了这些结果。

results<-structure(list(`1-2006` = structure(list(a = 2.569609631261, 
    l = 1.07133133970952, v = 0.0717722617877896, k = 0.942672861627156, 
    f = 0.388933771611416, mx = 13.5026751665079), .Names = c("a", 
"l", "v", "k", "f", "mx")), `1-2007` = structure(list(a = 12.1740785313206, 
    l = 0.253071159621183, v = 0.00109045670813382, k = 12.1383424353805, 
    f = 0.382836164409956, mx = 371.57077346378), .Names = c("a", 
"l", "v", "k", "f", "mx")), `1-2008` = structure(list(a = 7.61500330474582, 
    l = 0.480886095894786, v = 0.0169270813765404, k = 2.44342267614725, 
    f = 0.079954717880489, mx = 22.1891386586908), .Names = c("a", 
"l", "v", "k", "f", "mx"))), .Names = c("1-2006", "1-2007", "1-2008"
))

我需要两次操作才能得到结果；

1）我在导出的excel文件中需要这样的表

2）所有a，l，v，k，f和mx值的直方图。一张图中的所有a值，一张图中的所有l值，等等。

Answer 1

要从列表中创建表，可以使用do.call()：

df <- do.call(rbind.data.frame, results)
# 
               a         l           v          k          f        mx
1-2006  2.569610 1.0713313 0.071772262  0.9426729 0.38893377  13.50268
1-2007 12.174079 0.2530712 0.001090457 12.1383424 0.38283616 371.57077
1-2008  7.615003 0.4808861 0.016927081  2.4434227 0.07995472  22.18914

然后可以使用ggplot2函数geom_histogram获得直方图：

#example for the first column
library(ggplot2)
ggplot(df, aes(x=a)) + geom_histogram()