5

タブ区切りのファイルがあり、それぞれにタイトルが付いた複数のテーブル（たとえば、「Azuay \ n」、「Bolivar \ n」、「Cotopaxi \ n」など）があり、各テーブルは2つの改行で区切られています。R内で、このファイルを読み取り、「Bolivar」などに対応するテーブル（つまり、指定された行）のみを選択し、「Cotopaxi」に対応する下のテーブルと「Azuay」に対応する上のテーブルを無視するにはどうすればよいですか。

NB。Rの外側のテーブルを変更したくない。

データは次のようになります。ファイルはタブ区切りです。

 Azuay
 region begin       stop
 1A     2017761     148749885
 1A     148863885   150111299
 1A     150329391   150346152
 1A     150432847   247191037


 Bolivar
 region begin           stop 
 2A     2785            242068364
 2A     736640          198339289


 Cotopaxi
 region begin           stop 
 4A     2282            9951846
 4A     11672561        11906166
4

1 に答える 1

10

これは仕事をしているようです：

read.entry.table <- function(file, entry) {

   lines <- readLines(file)

   table.entry <- lines == entry
   if (sum(table.entry) != 1) stop(paste(entry, "not found"))

   empty.lines <- which(lines == "")
   empty.lines <- c(empty.lines, length(lines) + 1L)

   table.start <- which(table.entry) + 1L
   table.end   <- empty.lines[which(empty.lines > table.start)[1]] - 1L

   return(read.table(textConnection(lines[seq(from = table.start,
                                              to   = table.end)]),
                     header = TRUE))
}

read.entry.table("test.txt", "Bolivar")
#   region  begin      stop
# 1     2A   2785 242068364
# 2     2A 736640 198339289

read.entry.table("test.txt", "Cotopaxi")
#   region    begin     stop
# 1     4A     2282  9951846
# 2     4A 11672561 11906166
于 2012-04-29T19:27:20.620 に答える