-2

多くのファイルのそれぞれで列名の1つ（14列目）を変更したいと思っていますが、その方法がわかりません。複数の種類の適用を試しましたが、そのアプローチが機能せず、どこから別のアプローチを探し始めるのかわかりません。これまでの私のコードは次のとおりです。

File.names<-(tk_choose.files(default="", caption="Files", multi=TRUE, filters=NULL, index=1))
Num.Files<-NROW(File.names)
test<-sapply(1:Num.Files,function(x){readLines(File.names[x])})
lapply(1:Num.Files, function(x){data<-read.table(header=TRUE, text=test)})
#This is the issue
names(data)[14]<-'column14'
names(data)

私が言ったように、私はさまざまなタイプの適用を試みましたが、役に立ちませんでした。これについて別の方法はありますか？任意の提案を歓迎します。

4

2 に答える 2

1

names別のを呼び出す必要がありますlapply。例えば：

l <- list(x=c(a=1, b=1), y=c(a=1, b=1))
l2 <- lapply(l, function(x) {
  names(x)[2] <- "d"
  return(x)
})

l2
#$x
#a d 
#1 1 
#
#$y
#a d 
#1 1
于 2012-08-15T15:33:45.650 に答える
0

最初に名前を分割し、次に変更してから、グループとして割り当てます。好き、

new.names <- names( data )
new.names[[14]] <- `column14`
names( data ) <- new.names
于 2012-08-15T15:32:53.427 に答える