2

出力をラップしないように要約を取得しようとしています。ただし、5 列のデータで集計を呼び出すと、5 番目の列が別の行に配置されます。要約によって返されたオブジェクトを繰り返し手動で印刷するよりも簡単な方法があることを願っています。

よろしくお願いします、

ジョセフ

plotit.r

#!/usr/bin/Rscript
noneData <- read.csv("query.log", header=FALSE, sep="\t");
cnames = c( 'vids', 'partitions', 'localvert', 'remotevert',
                    'cachehits', 'responsetime' );
colnames(noneData) <- cnames;
cachenames = c('1', '2', '3', '4', '5');
responseCompare = data.frame(
   noneData$responsetime/1000000,
   noneData$responsetime/1000000,
   noneData$responsetime/1000000,
   noneData$responsetime/1000000,
   noneData$responsetime/1000000
   );
colnames(responseCompare) <- cachenames;
print("Response Times");
summary(responseCompare);

./plotit.r #出力:

[1] "Response Times"
       1                  2                  3                  4         
 Min.   :   0.215   Min.   :   0.215   Min.   :   0.215   Min.   :   0.215
 1st Qu.: 395.202   1st Qu.: 395.202   1st Qu.: 395.202   1st Qu.: 395.202
 Median : 459.888   Median : 459.888   Median : 459.888   Median : 459.888
 Mean   : 466.726   Mean   : 466.726   Mean   : 466.726   Mean   : 466.726
 3rd Qu.: 530.122   3rd Qu.: 530.122   3rd Qu.: 530.122   3rd Qu.: 530.122
 Max.   :3275.916   Max.   :3275.916   Max.   :3275.916   Max.   :3275.916
       5          
 Min.   :   0.215 
 1st Qu.: 395.202 
 Median : 459.888 
 Mean   : 466.726 
 3rd Qu.: 530.122 
 Max.   :3275.916
4

1 に答える 1

6

このoptions()関数は、R コンソール環境で副作用を作成する方法を提供します。

 names( options() )
 options(width=120) ; cat("Response Times"); summary(responseCompare)

print メソッドは、合計 120 文字の「仮想ページの終わり」に達したときにのみ「\n」を追加します。列の幅を計算し、一度に列のバッチのみを印刷します。

于 2013-12-11T04:36:38.590 に答える