どのように私はこのようになりますテーブルを作成します

Question

レポートのテーブルのためのカスタムレイアウトを作成しますか？

#DATA 
    ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) 
    trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) 
    group <- gl(2,10,20, labels=c("Ctl","Trt")) 
    weight <- c(ctl, trt) 


    A<-(lm(weight ~ group)) 
    A<-summary(A)  
    B<-round(A$coefficients,3) 
    R<-paste("(Adjusted R-squared:",round(A$adj.r.squared,2),")") 

私は（少なくとも職場でWordに制限されている人々のために）優れたR2wd出力することができる幻想的なテーブルで遊んでてきた原因は特に興味があります。私は次に何をする必要がどのような

require(R2wd) 
library(rcom) 
wdGet(T) 
wdNewDoc("c:\\temp\\This.doc") 
wdTitle("My Analysis Title") 

は機能wdTable（）でフォーマットされ、テーブルのようなオブジェクトにベクトルAとRを結合する方法を見つけることです。それは非常にきれい 試しBを出力します

wdTable(B) 

が、私はかなり彼らは、適切なテーブルを作るようにBとRに参加する方法がわかりません。私はそれが3番目と2番目の列（上に表示されるように）にベクトルRを入れても問題はないと思うが、それに問題があり、wdTableで動作するかどうかわからない。

私は this forumに関する関連する議論を見つけましたが、それは本当にそれの中心には達しません。それは、選択された項目ではなくテキストとして全体を表として出力します。

本当にありがとうございます。

P.S.あなたはこの

install.packages(c("R2wd","rcom")) 
    source("http://www.r-statistics.com/wp-content/uploads/2010/05/R-console-to-word.r.txt") 

    txtStart.2wd() 
    #Follow instructions (shows you commands to install the R handle) 
    txtStop.2wd(F) 

Answer 1

を実行しない場合は、Wordがインストールされてハンドルを持っている必要がありますR2wdを実行するには、私はちょうど）（wdtable呼び出す前に、データフレームにラインをrbindしようと思います。文字列Rを分割し、新しい行のセルを要素で埋めることができます。

のようなので：

require(R2wd) 

ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) 
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) 
group <- gl(2,10,20, labels=c("Ctl","Trt")) 
weight <- c(ctl, trt) 

A <- summary(lm(weight ~ group))  
B <- round(A$coefficients,3) 

# I edited the next line.. 
R <- paste("(Adjusted R-squared: ",round(A$adj.r.squared,2),")", sep = "") 
# split it up: 
R <- c(" ", unlist(strsplit(R, " "))) 

# row-bind it: 
R <- data.frame(rbind(B, " " = R)) 
colnames(R) <- colnames(A$coefficients) 

wdGet() 

# print table to doc in word default format: 
wdTable(format(R), autoformat = 1) 
wdSave(path.expand("~/My_Table.doc"))  # save file 
wdQuit()         # close handler 

shell.exec(path.expand("~/My_Table.doc"))