R式をテキストに変換するには？

Question

テキストと同じように式で作業するのに問題があります。私がしようとしているのは、グラフのタイトルに式を連結することです。しかし、テキストのように数式を処理しようとすると、私は失敗します。

これは問題ありません。今私は"my text celkem ~ rok + mesic"のような文字列を構築したい - 問題が出番です：

paste("my text", formula(model)) 
# [1] "my text ~"   "my text celkem"  "my text rok + mesic" 

paste("my text", as.character(formula(model))) 
# [1] "my text ~"   "my text celkem"  "my text rok + mesic" 

paste("my text", toString(formula(model))) 
# [1] "my text ~, celkem, rok + mesic" 

は今、私はパッケージgtoolsでsprint機能がある見るが、私は、これはそれが内の溶液に値するような基本的なことだと思いますデフォルト環境！

Answer 1

...実際には

paste("my text", paste(as.character(formula(model))[c(2,1,3)], collapse = " ")) 

を、私は解決策を発見したが、それは地獄のように醜いです、これは私がこの真の解決策を検討していない（特にc(2,1,3)）すっごくハックです...

frm <- celkem ~ rok + mesic 
Reduce(paste, deparse(frm)) 
# [1] "celkem ~ rok + mesic" 

library(formula.tools) 
as.character(frm) 
# [1] "celkem ~ rok + mesic" 

Reduce migh：機能as.character.formulaとして、

Answer 2

:-)パッケージformula.toolsから短いソリューションをより良いものを投稿してくださいトン長い式の場合に便利です：

ため ?deparseで width.cutoff = 60Lである

frm <- formula(paste("y ~ ", paste0("x", 1:12, collapse = " + "))) 

deparse(frm) 
# [1] "y ~ x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 + x10 + x11 + " 
# [2] " x12"              
Reduce(paste, deparse(frm)) 
# [1] "y ~ x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 + x10 + x11 +  x12" 

。

Answer 3

またはジュリアスのバージョン（注意：あなたのコードは、自己完結型ではなかった）に代わるものとして、ここでは

celkem = 1 
rok = 1 
mesic = 1 
model <- lm(celkem ~ rok + mesic) 
paste("my model ", deparse(formula(model))) 

Answer 4

print.formulaを使用するソリューション、トリックと思われるが、それはとしてonelineで仕事をし、使用を避けますdeparseであり、余分なパッケージを使用する必要はありません。私は長い式の場合capture.output

paste("my text",capture.output(print(formula(celkem ~ rok + mesic)))) 
[1] "my text celkem ~ rok + mesic" 

を使用して、印刷式の出力をキャプチャ：

ff <- formula(paste("y ~ ", paste0("x", 1:12, collapse = " + "))) 
paste("my text",paste(capture.output(print(ff)), collapse= ' ')) 

"my text y ~ x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 + x10 + x11 +  x12" 

Answer 5

はformatをお試しください：

paste("my text", format(frm)) 
## [1] "my text celkem ~ rok + mesic" 

Answer 6

その後空白

を削除するにはGSUBを追加します

gsub(" ", "", paste(format(frm), collapse = "")) 

Answer 7

最も簡単な方法は次のとおりです。

f = formula(model) 
paste(f[2],f[3],sep='~') 

done！