R中使用rggobi的交互式图形

Question

来自以下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上运行批处理文件中的代码，它返回pdf文件中的图形，但不返回摘要打印。有没有一种方法可以设置代码/批处理文件，使其能够生成交互式图形和摘要？

Answer 1

好的，下面是一些建议：

这就是Rapache

你也可以用Open Flash Chart来绘图

另外，我在这个主题上找到了这个link

HTH

Answer 2

安东尼，我假设你指的是识别GGobi中可用的函数。你可以使用工具>保存显示描述和CRAN上可用的DescribeDisplay包来导出/导入GGplot图形到R。你将需要DescribeDisplay和ggplot2或“内置”graphics包，即你可以使用qplot或plot来获取图形。

保存后，可以使用以下命令导入显示描述:参见the link =)

关于“点击获取信息”功能- RApache也不会帮到你！有identify和locator函数可以与graphics一起使用，可以帮助你在R中点击并获取信息(参见Maindonald，J.H. -“使用R进行数据分析和图形”- 3.4 )。如果你打算在网络上做一些更有野心的事情，请参考HTML和<area>标签，这里是an example。然后我猜你会做一些JavaScript魔术(定义坐标之类的东西)，如果我注意到的话，这是相当有野心的。

另请参阅：graphics::text和ggplot2::geom_text。