http://cos.name/cn/topic/109351

109351.R

require(lattice)

x = read.csv(textConnection('
"","mn","kind","deal","day","variable","value"
"1","E01","w","C","5","mCa",1408.55606060606
"2","E01","w","C","6","mCa",203.124378596532
"3","E01","m","C","5","mCa",516.094012345679
"4","E01","m","C","6","mCa",957.420405443322
"5","E01","n","C","5","mCa",340.322806637807
"6","E01","n","C","6","mCa",1385.94913265306
"7","E01","w","P","6","mCa",371.254019607843
"8","E01","w","P","7","mCa",1061.31649590164
"9","E01","w","P","8","mCa",312.291926587302
"10","E01","w","P","9","mCa",323.159176470588
"11","E01","m","P","6","mCa",717.85780441447
"12","E01","m","P","7","mCa",422.850107142857
"13","E01","m","P","8","mCa",916.490676121949
"14","E01","m","P","9","mCa",1141.75571079294
"15","E01","n","P","6","mCa",374.742388888889
"16","E01","n","P","7","mCa",352.069013157895
"17","E01","n","P","8","mCa",808.325288614157
"18","E01","n","P","9","mCa",449.088395061728
"19","E01","w","C","5","mCb",466.352462121212
"20","E01","w","C","6","mCb",55.3378513497857
"21","E01","m","C","5","mCb",136.34537037037
"22","E01","m","C","6","mCb",296.636697530864
"23","E01","n","C","5","mCb",94.9309668109668
"24","E01","n","C","6","mCb",446.535739795918
"25","E01","w","P","6","mCb",103.368433952528
"26","E01","w","P","7","mCb",318.956885245902
"27","E01","w","P","8","mCb",76.9947757936508
"28","E01","w","P","9","mCb",82.8457058823529
"29","E01","m","P","6","mCb",226.630402820356
"30","E01","m","P","7","mCb",112.838892857143
"31","E01","m","P","8","mCb",272.765922054064
"32","E01","m","P","9","mCb",356.533577446704
"33","E01","n","P","6","mCb",97.8012323232323
"34","E01","n","P","7","mCb",89.6002631578947
"35","E01","n","P","8","mCb",247.391152758392
"36","E01","n","P","9","mCb",115.427478882391'
), header = TRUE, row.names = 1)
                          
barchart(day ~ value | deal + variable, groups = kind, data = x,
         auto.key = list(columns = 3))