r - 主要和次要标记带有

我想用plotly生成一个图形，就像用基本R图形生成的以下图形一样:



上图的R代码如下:

x = c(1,2,3,4,5)
y = c(0.1, 1, 10, 100, 1000)
axseq = y
plot(x, log10(y), yaxt="n")
axis(2, at=log10(axseq), labels=as.character(axseq))
for (i in 1:5){
    bb = 1:10; a = (bb*10^(i-2));   axis(2, at=log10(a), tcl=-0.25, labels=F)
}

到目前为止，同一图的我的plotly代码如下:

p = plot_ly(x=x, y=log10(y), mode="markers") %>%
layout(yaxis = list(tickmode="array", tickvals=log10(axseq), ticktext=as.character(axseq), zeroline=F, showline=T, ticks="outside"),
       xaxis = list(showline=T, ticks="outside"))

它具有主要刻度线，但是我找不到如何在y轴上添加次要刻度线的方法。

最佳答案

在您已经开始实现时，您可以通过指定刻度线的位置(使用tickvals)和标签(使用ticktext)来自定义刻度线。但是您需要为tickvals中的每个刻度位置放置一个值，并且每个tickval需要一个相应的ticktext。因此，区分主要和次要价格变动的方法是将所有次要价格变动的报价文本设置为空字符串(因为密谋没有办法指定本身的次要价格变动)。

tval <- sort(as.vector(sapply(seq(1,9), function(x) x*10^seq(-1,3)))) #generates a sequence of numbers in logarithmic divisions
ttxt <- rep("",length(tval))  # no label at most of the ticks
ttxt[seq(1,37,9)] <- as.character(tval)[seq(1,37,9)] # every 9th tick is labelled

p = plot_ly(x=x, y=y, mode="markers") %>%
  layout(yaxis = list(type="log",
                      zeroline=F, showline=T,
                      ticks="outside",
                      tickvals=tval,
                      ticktext=ttxt),
         xaxis = list(showline=T, ticks="outside"))
p