chartSeries：指标的对数刻度

Question

我是 R 和 quantmod 的新手。我创建了一个我想添加的新指标到 addTA 的情节。但指标的刻度应该是对数的。首先我尝试了（以 RSI 为例）

> chartSeries ...
> rsi <- RSI(Cl(...))
> addTA(rsi,log.scale=T)
Warning message:
In plot.xy(xy.coords(x, y), type = type, ...) :
  "log.scale" is not a graphical parameter

然后我从源代码 (packageVersion('quantmod') 0.4.12) 复制了 addTA 并尝试了一些肮脏的修改：

--- addTA       
+++ addTA.test  
@@ -1 +1,2 @@
+addTA.test <-
 function (ta, order = NULL, on = NA, legend = "auto", yrange = NULL, 
@@ -11,3 +12,3 @@
     else {
-        lchob <- get.current.chob()
+        lchob <- quantmod:::get.current.chob()
         chobTA <- new("chobTA")
@@ -41,3 +42,4 @@
             order = order, legend = legend, pars = list(list(...)), 
-            time.scale = lchob@time.scale)
+            time.scale = lchob@time.scale, log.scale = T)
+       chobTA@log.scale <- T
         return(chobTA)

这也会导致错误

> source ...
> addTA.test(rsi)
Error in (function (cl, name, valueClass)  : 
  'log.scale' is not a slot in class "chobTA"

如何绘制具有对数刻度的指标？

Answer 1

您可以在传入 addTA

之前简单地使用 log 函数

library(quantmod)
x <- getSymbols("AAPL", auto.assign=FALSE)
rsi <- RSI(Cl(x))

chartSeries(x, subset = "2017")
addTA(log(rsi))

# Newer, cleaner charts alternative:
chart_Series(x, subset = "2017")
add_TA(log(rsi))
add_TA(rsi)

chartSeries：指标的对数刻度

chartSeries: Logarithmic scale for indicator

r

quantmod

dynamic-chart-series