2

我对 R 比较陌生。我正在将多个 csv 文件中包含的数据合并到一个动物园对象中。

这是我的 for 循环中的代码片段：

temp <- read.csv(filename, stringsAsFactors=F)
temp_dates <- as.Date(temp[,2])
temp <- zoo(temp[,17], temp_dates)
dataset <- temp[seq_specified_dates]

# merge data into output
if (length(output) == 0)
    output <- dataset
else
    output <- merge(output, dataset, all=FALSE)

当我在输出动物园对象上运行 head() 时，我注意到奇怪的列名，例如：'dataset.output.output.output' 等。如何为合并的列分配更有意义的名称。?

另外，如何引用动物园对象中的特定列？例如，如果输出是一个数据框，我可以将“Patient_A”列引用为 output$Patient_A。如何引用合并的动物园对象中的特定列？

4

2 回答 2

2

我认为无论日期是动物园课程，这都会起作用，如果您提供一个示例，我可能能够修复细节，但总而言之，这应该是一个很好的起点。

#1- Put your multiple csv files in one folder
setwd(your path)
listnames = list.files(pattern=".csv")

#2-use package plyr
library(plyr)

    pp1 = ldply(listnames,read.csv,header=T) #put all the files in on data.frame
    names(pp1)=c('name1','name2','name3',...)
    pp1$date =  zoo(pp1$date)


# Reshape data frame so it gets organized by date
pp2=reshape(pp1,timevar='name1',idvar='date',direction='wide')
于 2012-02-01T10:11:20.640 回答
2

read.zoo能够读取和合并多个文件。例如：

idx <- seq(as.Date('2012-01-01'),  by = 'day',  length = 30)

dat1<- data.frame(date = idx,  x = rnorm(30))
dat2<- data.frame(date = idx,  x = rnorm(30))
dat3<- data.frame(date = idx,  x = rnorm(30))

write.table(dat1,  file = 'ex1.csv')
write.table(dat2,  file = 'ex2.csv')
write.table(dat3,  file = 'ex3.csv')

datMerged <- read.zoo(c('ex1.csv',  'ex2.csv',  'ex3.csv'))

如果要访问特定列，可以使用以下$方法：

datMerged$ex1.csv

已编辑：您可以使用以下方法提取时间段window：

window(datMerged, start='2012-01-28', end='2012-01-30')

该xts软件包包括更多提取方法：

library(xts)
datMergedx['2012-01-03']
datMergedx['2012-01-28/2012-01-30']
于 2012-02-01T10:43:59.070 回答