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

Answer 1

好吧，对于一些指示：

有Rapache

您可以使用Open Flash Chart

进行绘图

加上我在主题

上找到了这个link

HTH

Answer 2

Anthony，我认为您指的是GGobi中提供的 Identify 功能。您可以使用工具＆gt;保存显示描述和CRAN上可用的DescribeDisplay包，以便将GGplot图导出/导入R.您将需要DescribeDisplay和ggplot2或“内置” -in“graphics包，即您可以同时使用qplot或plot来获取图表。

保存后，可以导入显示说明：请参阅the link =）

关于“点击获取信息”功能 - RApache也不会帮助您！有identify和locator函数与graphics一起使用，可以帮助您在R中使用click-and-get-info（参见 Maindonald，JH - “使用R对于数据分析和图形“ - 3.4。图区域的标识和位置，它是免费的here}，但是如果你想在网上做一些更有野心的事情，请参阅HTML <map>和<area>代码，此处为an example。然后我想你会做一些JavaScript魔法（定义坐标和东西），如果我注意到的话，那是非常雄心勃勃的。

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

使用rggobi的R中的交互式图形

2 个答案: