R YaleToolkit更改ptopts最大和最小值的颜色以及轴编号格式

我有一个闪光点：

BusinessDate<-c("01-01-2014","01-02-2014","01-03-2014","01-04-2014","01-05-2014")
Corn<-c(1000000000,2,3,.0000000005,4)
Wheat<-c(2000000,1,8,10,.111111115)
risk<- data.frame(BusinessDate, Corn, Wheat)
sparklines(risk[,c("Corn", "Wheat")], 
       times=as.numeric(risk$BusinessDate),
       ptopts=('min.max'),  buffer= unit(1,'lines'),
       outer.margin=unit(c(4,12,4,15),'lines'))

我对运行上述代码时将看到的绘图有几个问题：

1如何将y轴从科学符号更改为非科学符号

2如何将最大值的颜色改为绿色而不是红色，使最小值为红色，最大值为绿色

3我如何更改ptopts的数据标签以非科学符号表示。您将看到底部绘图的数据标签显示为2e+06。我能改成2000000吗

4是否可以为大于时间序列标准偏差1的点上色。我想这与ptopts有关。但是有没有可能……如果有，怎么办

---

我知道这有很多问题。谢谢

要得到你想要的一切，你需要破解sparkline的密码。。。不是与迷你图相同的函数，而是一个辅助函数。它有标签的硬编码格式规范。我可以为您提供点的颜色：

sparklines(risk[,c("Corn", "Wheat")], 
       times=as.numeric(risk$BusinessDate),
       ptopts=list(labels='min.max', gp=gpar(col=c("red", "green") )),  buffer= unit(1,'lines'),
       outer.margin=unit(c(4,12,4,15),'lines'))

通过键入两个函数的名称查看它们的代码，并查看是否正在网格图形框架中进行格式化：

 libary(YaleToolkit)
 sparklines
 sparkline

我可以更改标签，但我还没有弄清楚如何通过向ptopts列表提供labels.ch参数，将标签按顺序正确地分配给两组不同的点