Unix 端末では、コマンド「less」または「more」を使用してテキスト ファイルをページごとに見ることができます。300 行の文字ベクトルがあり、ページごとに確認したいと思います。R で同様の関数を知っていますか?
質問する
551 次
1 に答える
1
R
(ドライブ上のファイルではなく) 環境内のオブジェクトを参照している場合、
あなたはここに私の小さなおもちゃが好きかもしれません:
short <- function(x=seq(1,20),numel=4,skipel=0,ynam=deparse(substitute(x))) {
ynam<-as.character(ynam)
#clean up spaces
ynam<-gsub(" ","",ynam)
#unlist goes by columns, so transpose to get what's expected
if(is.list(x)) x<-unlist(t(x))
if(2*numel >= length(x)) {
print(x)
}
else {
frist=1+skipel
last=numel+skipel
cat(paste(ynam,'[',frist,'] thru ',ynam,'[',last,']\n',sep=""))
print(x[frist:last])
cat(' ... \n')
cat(paste(ynam,'[',length(x)-numel-skipel+1,'] thru ', ynam, '[', length(x)-skipel,']\n',sep=""))
print(x[(length(x)-numel-skipel+1):(length(x)-skipel)])
}
}
何とか著作権は私にあり、ディズニーの何とかではなく、自由に使用、再利用、編集、Wheaties に振りかけることなどができます。
于 2013-06-25T11:49:37.853 に答える