我正在尝试使用plotly
使用下面的R Markdown代码中给出的数据在辅助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
```
我在Windows 7 64位操作系统上使用R 3.1.3 64位。我使用的是封装版本:2.0.16(2015年12月中旬从Github下载)。
以下是我使用Google Chrome获取的图片,版本号为47.0.2526.111,如下所示。请注意,我的右手轴显示恒定的零。我希望它显示0.21,0.22,0.23,0.24之类的东西。我知道必须有一种方法可以通过tickformat选项来改变它,但我还没有想出来。 Output seen in Google Chrome
答案 0 :(得分:4)
我知道如何解决您的问题,但我需要在文档中找到它。因此,您只需要使用边距和绘图的大小。此外,它还可以为您添加标签提供足够的余量。
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
答案 1 :(得分:0)
好吧,我找到了解决自己问题的方法。如果我删除布局中的showlegend = F选项,y2轴将正确显示。如果我不想显示图例,我仍然无法弄清楚如何让它工作。另外,我在布局中有错误的选项,它应该是“覆盖”,而不是“覆盖”。如果可能的话,仍然会欣赏showlegend = F的更好答案。