テキスト内の数値のビンを作成する

Question

いくつかのエラーメッセージの関連付けルールを作成しようとしています。しかし、多くのエラーはテキスト内で数字の測定値を持っているため、実際には約200個の一意のエラーメッセージとして64 Kの一意のエラーとして読み込みます。データをより管理しやすくするために、数値をカテゴリ（10〜15ビン）に入れたいと思います。しかし私はエラーのテキスト部分を数値だけ編集したくない。

例のエラー：

1：エラー。ボルト0.025、システム障害22％

2：エラー。ボルト0.0015、補助システム障害53％

3：システムモニタ。 bal 882台。クロス-1.8

所望の出力（ 1：エラーボルト1、システム障害SUP 50％

2：エラーボルト1、AUX系障害SUP 50％

3：システム・モニタ。 BAL 1000単位のクロスがある-1

私はGSUBを使用しようとしているが、1つにビンとも非常に多くのgsubsを作成すると、問題に遭遇した Y < - 。。 "\ d個の\ \ D \ dは" GSUBは（ 、 "1"、データ）

エラーメッセージの数字部分だけのためにビンを作成する方法に関するアイデア？私はビンの数をあまり気にしていません。

Answer 1

私は少しこれを理解するのに苦労していますが、ここで私が何を考えているのですか？

文字に割り当てられた変数を使用すると、貼り付けを使用してテキストの横に数値を簡単に挿入できます。

ヒント：ライブラリ（tcltk）を使用すると、エラーポップアップを画面に送信することもできます。

はここでこれを使用すると、警告ポップアップで一緒に任意の数や文字を配置することができます

library(tcltk) 
library(tcltk2) 

errornumber=4 

tkmessageBox(message=(paste("Error:",errornumber, 
sep=' ')),icon="warning") 

...基本的な考え方です。あなたに適用

....

library(tcltk) 
library(tcltk2) 

if(volt>0 & volt<1){ 

error=1 

tkmessageBox(message=(paste("Error:",error, 
sep=' ')),icon="warning") 

} else if (volt>1.1 & volt<5.5){ 

error=5.5 

tkmessageBox(message=(paste("Error:",error, 
sep=' ')),icon="warning") 
} 

うまくいけば、これはあなたが後にあるか全くわからないここでも、何らかの方法で役立ちますか？ 貼り付けセクションに任意の数や文字列を追加できます。

EDIT： 私はそう私は私の質問は非常にではなかったか今見ることができますが原因ために必要なすべてが正しいあなたのプログラムに基づいて、変数や条件

library(tcltk) 
library(tcltk2) 

#"Variables" 
voltread=0.025 
percentread=22 

tkmessageBox(message=(paste("error. volt",voltread,"system failure sup" 
,percentread,"percent",sep=' ')),icon="error")