如何優(yōu)雅地使用R實現(xiàn)行轉(zhuǎn)列

        原文鏈接：http://www.datastudy.cc/to/53

        網(wǎng)上有網(wǎng)友問到：在一個文件夾下，收集了幾個股票數(shù)據(jù)的文件，對應(yīng)的股票名稱為第2列，對應(yīng)的時間為第3列，對應(yīng)的收盤價為第10列。

        現(xiàn)在想做到下圖所示的效果，也就是行為時間，列為對應(yīng)的股票的收盤價，如何使用R語言來實現(xiàn)呢？

        其實非常地簡單，這個就是我們《R數(shù)據(jù)分析實戰(zhàn)》（http://www.datastudy.cc/to/48，請右鍵在新標(biāo)簽頁中打開鏈接）中的交叉分析法的一個應(yīng)用，下面我們來演示一下如何實現(xiàn)這個效果。

        數(shù)據(jù)文件，請大家從百度盤中自行下載：

        鏈接: http://pan.baidu.com/s/1hqARwpu 密碼: xx13

        allData <- NULL; 

        files <- list.files("D://data", recursive=T) 

        #合并文件，把所有數(shù)據(jù)合并到allData變量中

        for(file in files) { 

                fileName <- paste("D://data//", file, sep=""); 

                data <- read.csv(fileName, stringsAsFactors = FALSE); 

                if(is.null(allData)) { 

                        allData = data.frame(data[, c(2, 3, 10)]); 

                } else { 

                        allData <- rbind(allData, data[, c(2, 3, 10)]); 

                } 

        }; 

        #進行交叉分析，即可得到結(jié)果

        result <- tapply(allData$收盤價, list(allData$交易日期, allData$股票名稱), FUN=sum)

        至于交叉分析的詳細內(nèi)容，請參考《R數(shù)據(jù)分析實戰(zhàn)》（http://www.datastudy.cc/to/48，請右鍵在新標(biāo)簽頁中打開鏈接）中的章節(jié)。