0

以下の関数を使用しようとすると、プロットの一番上の行に水平線がないことに気付きました。これを、四角形の寸法、具体的には高さと低さを指定する行まで追跡しました。一番上の行が常に表示されるように設定できるパラメーターはありますか? 以下のコードには一番上の行がありません..

Plot.Lines <- function(colCount, rowCount, cex){
  colCount <- colCount # number per row
  rowCount <- rowCount

  plot( c(1,colCount), c(0,rowCount), type="n", ylab="", xlab="",
       axes=FALSE, ylim=c(rowCount,0))
  title("My Lines")

  for (j in 0:(rowCount-1))
  {
    base <- j*colCount
    remaining <- length(colors()) - base
    RowSize <- ifelse(remaining < colCount, remaining, colCount)
    for(i in 1:RowSize){
      rect(i-0.5,j-0.5,i+0.5, j+0.5, border = "black", col = colors()[base + (1:RowSize)]) 
    }
    for(i in 1:RowSize){
      text(x = i, y =j, labels = paste(base + i), cex =cex, col = "black")
    }
  }
}

Plot.Lines(25, 6, cex = 0.5)

ただし、行を次のように変更すると:

rect(i-0.5,j-0.2,i+0.5, j+0.2, border = "black", col = colors()[base + (1:RowSize)]) 

行間にスペースがありますが、機能します。colCount と rowCount を指定して自動的に設定する方法はありますか?

4

1 に答える 1

3

プロット領域を超えているため、上端が切り取られています。を使用par(xpd=TRUE)して、内部領域の外側にプロットできるようにすることができます。これを への呼び出しの前に置きますplot

于 2012-10-12T16:41:50.010 に答える