R - PSQLのようなコンソールのレコードを印刷

Question

\ xを有効にしてPSQLのように見えるRコンソールのテーブルからレコードを印刷する方法はありますか？垂直に印刷する意味ですか？

このような何か：knitrから

-Record1- 
Var1 | xxx 
Var2 | yyy 
Var3 | zzz 

Answer 1

kableがお手伝いします！

> df1 
    E  F   G   H 
1 A 0.9,1      
2 B  0.98,0.34 0.98,0.34 
3 C       
> knitr::kable(df1) 


|E |F  |G   |H   | 
|:--|:-----|:---------|:---------| 
|A |0.9,1 |   |   | 
|B |  |0.98,0.34 |0.98,0.34 | 
|C |  |   |   | 
> 

Answer 2

あなたがtidyrパッケージを使用してデータセットをgather場合、それは基本的にその形式で保存されます。

..

 Var1 Var2 Var3 
Record1 xxx yyy xxx 

のようなオリジナルのルックスが集まったデータセットには、次のようになります場合は...

Record1 Var1 xxx 
Record1 Var2 yyy 
Record1 Var3 zzz 

それともただの簡単なチェックのための場合でも、str(YourData[x,])を使用することは十分であろうデータセットの再構成を必要とせずに単一のレコードを作成できます。すぐ

vertical_print_function <- function(data_vert,console=T){ 
psql <- character() 
for(i in 1:nrow(data_vert)){ 
    psql <- append(psql,paste0("\n\n-Record ",i,"-")) 
    colnames_s <- colnames(data_vert) 
    var_names <- colnames_s %>% stringr::str_pad(width=max(nchar(.))) 
    for(x in 1:ncol(data_vert)){ 
     psql <- append(psql,paste0("\n",var_names[x]," | ",data_vert[i,colnames_s[x]])) 
    } 
} 
if (console==T) { 
    cat(psql) 
    } else { 
    return(psql) 
    } 
} 

consoleTRUEとしてプリントをコンソールに（/危険な場合無意味：

それとも、あなたはあなたの例では、スタイルに設定されている場合は、この機能は、それに近づくために1（ラフ）の方法であります多くのレコード）。 FALSEは文字列を返し、テキストファイルにエクスポートできます。