在R中打印Yaxis2格式的记号标签

我正在尝试使用

绘图

和下面的R标记代码中给出的数据，在我的第二个Y轴上显示除直零以外的任何内容：

---
title: "Test Stack Overflow Trending"
author: ""
date: ""
output:
   html_document:
      self_contained: no
---

```{r plot1, results='asis', tidy=FALSE, echo=FALSE, fig.retina=NULL, message=FALSE, out.width = "92%", out.height="450px"}

require(plotly)
require(data.table)

mydt <- data.table(NAME = "Overall", Val = c(391234, 518834, 489567),perc = c(0.24,0.25,0.24), mytdate=c("2015-09-01","2015-10-01","2015-11-01"))

mydt$mydate <- as.Date(mydt$mytdate,"%Y-%m-%d")

p1 <- mydt %>%
  plot_ly(x = mydate, y = Val,type = "scatter", mode = "markers") %>%
add_trace(x = mydate, y = perc, yaxis = "y2", mode="lines+markers") %>%
  layout(showlegend = F, xaxis=list(title=""),yaxis=list(title=""),yaxis2 = list(side="right",overlay="y", ticks="inside",tickformat = ":04,2f"))

p1

```

---
标题：“测试堆栈溢出趋势”
作者：“
日期：“”
输出：
html_文件：
自给自足：没有
---
```{r plot1，results='asis'，tidy=FALSE，echo=FALSE，fig.retina=NULL，message=FALSE，out.width=“92%”，out.height=“450px”}
要求（详细地）
要求（数据表）
多年电价%
布局（showlegend=F，xaxis=list（title=“”），yaxis=list（title=“”），yaxis2=list（side=“right”，overlay=“y”，ticks=“inside”，tickformat=“：04,2f”））
p1
```

我在Windows7 64位操作系统上使用R3.1.3 64位。我使用的是plotly软件包版本：2.0.16（2015年12月中旬从Github下载）

这是我使用谷歌浏览器得到的图片，版本：47.0.2526.111附在下面。请注意，我的右手轴显示恒定的零。我希望它显示0.21、0.22、0.23、0.24之类的内容。我知道必须有一种方法可以通过tickformat选项来改变这一点，但我仍然没有弄清楚。

---

嗯，我找到了解决我自己问题的办法。如果删除布局中的showlegend=F选项，y2轴将正确显示。如果我不想显示图例，我仍然不知道如何让它工作。另外，我在布局中有一个错误的选项，它应该是“叠加”，而不是“叠加”。如果可能的话，我仍然希望使用showlegend=F获得更好的答案。

我有一个解决问题的方法，但我需要在文档中找到它。所以你只需要调整你的情节的边距和大小。此外，它将给你足够的空间添加标签

m = list(
    l = 50,
    r = 50,
    b = 100,
    t = 100,
    pad = 4
)

然后添加一个

layout（）

，只需玩

height

和

width

p1 <- mydt %>%
    plot_ly(x = mydate, y = Val,type = "scatter", mode = "markers") %>%
    add_trace(x = mydate, y = perc, yaxis = "y2", mode="lines+markers") %>%
    layout(showlegend = F, xaxis=list(title=""),yaxis=list(title=""),yaxis2 = list(side="right",overlay="y", ticks="inside",tickformat = ":04,2f")) %>% layout(autosize = F, width = 750, height = 500, margin = m)

p1

p1%
绘图（x=mydate，y=Val，type=“scatter”，mode=“markers”）%>%
添加跟踪（x=mydate，y=perc，yaxis=“y2”，mode=“行+标记”）%>%
布局（showlegend=F，xaxis=list（title=“”），yaxis=list（title=“”），yaxis2=list（side=“right”，overlay=“y”，ticks=“inside”，tickformat=“：04,2f”））%%>%布局（自动调整大小=F，宽度=750，高度=500，边距=m）
p1

---

我只是尝试了一下，它对您的示例非常有效！非常感谢。我所需要做的就是在布局（）中添加“autosize=F，margin=m”。工作起来很有魅力！