0

読み取るファイルが複数あり、ヒートマップも実行した後、出力が保存されます。どういうわけか、以下のコードに問題があり、なぜ機能しないのかわかりません。ファイル: mxn.dat、scu.dat、emun.dat、ser.dat

files <- list.files(pattern=".dat")
for (i in length(files)){
data <-read.table(files[i],row.names=1,header=T,sep='\t')
  for in length(files){
  png('i.png') 
  pheatmap(t(data[i]), cellwidth = 32, cellheight = 14, fontsize = 5, show_colnames =  T, cluster_cols = FALSE)
  dev.off()
  } 
}

コードを機能させるための助けをいただければ幸いです。

ありがとう

ロブ

4

2 に答える 2

0

SimonO101 のソリューションのバリエーション:

files <- list.files(pattern=".dat")

for( f in files )
{
  data <-read.table( f, row.names = TRUE, header = TRUE, sep = '\t' )
  png( gsub( "pdf", "png", f ) )
  pheatmap( t( data ), cellwidth = 32, cellheight = 14, fontsize = 5, show_colnames =  T,    cluster_cols = FALSE)
  dev.off()
}

読みやすく（私は信じています）、拡張子のみを変更して元のファイル名を保持するという利点（？）があります。

于 2013-07-18T22:59:09.910 に答える