4

次の xml コードから:

<?xml version = "1.0"?>
<Company >
 <shareprice>
  <timeStamp> 12:00:00.01</timeStamp>
  <Price>  25.02</Price>
 </shareprice>

 <shareprice>
        <timeStamp> 12:00:00.02</timeStamp>
  <Price>  15</Price>
 </shareprice>



    <shareprice>
        <timeStamp> 12:00:01.025</timeStamp>
        <Price>  15.02</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:01.031</timeStamp>
        <Price>  18.25</Price>
    </shareprice>



    <shareprice>
        <timeStamp> 12:00:01.039</timeStamp>
        <Price>  18.54</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:01.050</timeStamp>
        <Price> 16.52</Price>
    </shareprice>


    <shareprice>
        <timeStamp> 12:00:02.01</timeStamp>
        <Price>  17.50</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:03.01</timeStamp>
        <Price>  25.02</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:05.02</timeStamp>
        <Price>  30</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:11.025</timeStamp>
        <Price>  32.25</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:12.031</timeStamp>
        <Price>  26.05</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:15.039</timeStamp>
        <Price>  18.54</Price>
    </shareprice>

    <shareprice>
        <timeStamp> 12:00:19.050</timeStamp>
        <Price> 16.52</Price>
    </shareprice>


    <shareprice>
        <timeStamp> 12:01:02.01</timeStamp>
        <Price>  17.50</Price>
    </shareprice>
</Company>

次の R コードを使用します。

library(ggplot2)
library (XML)
test.df <- xmlToDataFrame(file.choose())
test.df
sapply(test.df, class) 
test.df$timeStamp <- strptime(as.character(test.df$timeStamp), "%H:%M:%OS")
test.df$Price <- as.numeric(as.character(test.df$Price))
sapply(test.df, class)
options("digits.secs"=3)
summary (test.df)
with(test.df, plot(timeStamp, Price))
sd (test.df$Price)
mean(test.df$timeStamp)
test.df$timeStamp <- test.df[1,"timeStamp"] + cumsum(runif(7)*60)
summary(test.df)
qplot(timeStamp,Price,data=test.df,geom=c("point","line"))
Price <- summary(test.df$Price)
print (Price)

ユーザーがポイントをクリックしてポイントの値に関する情報を取得できるインタラクティブなグラフを作成したいと思います（たとえば、値が理由でジャンプした場合）、このインタラクティブなグラフを配置できるようにしたいと思いますウェブページで。これを行うために GGOBI を使用することが提案されていますが、R のままで rggobi ライブラリを使用することが可能であると言う人もいます。私はこれを経験したことがないので、直接または特定のリソースへのポインターを求めると思いました（ネットを何年も検索しても何も見つからない可能性があります）

グラフの下に価格の概要を印刷したいと思います。現時点では、Windows の BATCH ファイルでコードを実行すると、pdf ファイルでグラフが返されますが、要約の印刷は返されません。インタラクティブなグラフと要約を生成できるように、コード/BATCH ファイルを設定する方法はありますか?

4

2 に答える 2

2

さて、いくつかのポインタについて：

Rapacheがあります

そして、あなたはおそらくオープンフラッシュチャートで描画を行うことができます

さらに、このトピックに関するリンクを見つけました

HTH

于 2010-07-17T17:02:50.483 に答える
2

Anthonyさん、GGobiで利用可能なIdentify機能について言及していたと思います。Tools > Save Display DescriptionとCRAN で利用可能なパッケージを使用して、DescribeDisplayGGplot グラフを R にエクスポート/インポートできます。グラフ。DescribeDisplayggplot2graphicsqplotplot

保存したら、表示の説明を次のようにインポートできます:リンクを参照してください=)

「クリックして情報を取得」機能について - RApache も役に立ちません! で動作し、 R 内でクリックして情報を取得するのに役立つ関数がありidentifyます( Maindonald, JH - "Using R for Data Analysis and Graphics" - 3.4. Identification and Location on the Figure Regionを参照)。は無料で、ここから入手できます)。ただし、Web でもっと野心的なことをしようと考えている場合は、HTMLとタグを参照してください。ここに例があります。次に、JavaScript マジック (座標などの定義) を行うことになると思いますが、これは、気がつくとかなり野心的です。locatorgraphics<map><area>

graphics::textおよびも参照してくださいggplot2::geom_text。

于 2010-07-17T19:56:25.057 に答える