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 文件中的图形，但不返回摘要打印。有没有办法设置代码/批处理文件，以便它可以生成交互式图表和摘要？

4

2 回答 2

2

Well, for some pointers:

there´s Rapache

and you could possibly do the drawing with Open Flash Chart

plus i found this link on the topic

HTH

于 2010-07-17T17:02:50.483 回答
2

Anthony，我假设您指的是 GGobi 中可用的识别功能。您可以使用工具 > 保存显示描述和DescribeDisplayCRAN 上可用的包，以便将 GGplot 图形导出/导入到 R。您将需要两者DescribeDisplay和ggplot2或“内置”graphics包，即您可以同时使用两者qplot或plot获取图形。

保存后，可以使用以下方式导入显示描述：请参阅链接=)

关于“点击并获取信息”功能 - RApache 也不会帮助您！有一些函数可以与 , 一起使用identify，并且可以帮助您在 R 中单击并获取信息（请参阅Maindonald，JH -“Using R for Data Analysis and Graphics” - 3.4. Identification and Location on the Figure Region，它是免费且可在此处获得），但如果您打算在网络上做一些更雄心勃勃的事情，请参阅 HTML和标签，这是一个示例。然后我猜你会做一些 JavaScript 魔法（定义坐标和东西），如果我注意到的话，这是非常雄心勃勃的。locatorgraphics<map><area>

另见：graphics::text和ggplot2::geom_text。

于 2010-07-17T19:56:25.057 回答