嵌入在rmarkdown中的Plotly图可用作电子邮件附件,但如果从文件中打开则不会显示

时间:2016-07-18 17:24:11

标签: r graph r-markdown plotly

我在RMarkdown中创建了一个HTML文件,其中包含一个嵌入的Plotly图。如果我将该文件作为电子邮件附件包含在内,一切正常 - 显示图表图表,小部件工作等。

但是,如果我只是导航到该文件并打开它(只能在我的位置使用IE 11),则会有一个空白区域,其中应该是图形图形,但文件中的其余部分,标题等在文件中在那儿。只是没有阴谋图。

我在下面添加了一个MWE(需要图表包)并确认行为 - 图表显示在电子邮件附件中,当我导航到该文件并打开时不会显示。

我没有多少HTML或浏览器调试经验,也不知道从哪里开始。

任何帮助都非常感谢!



---
title: "Test"
output:
  html_document:
    toc: true
---


<br>

### <span style="color:dodgerblue">Sample text</span>

```{r message=FALSE, warning=FALSE, echo=F}

require(plotly)

options(stringsAsFactors = F)

cin<-data.frame(s11.y=runif(100, 1, 5),
                s15.y=runif(100, 1, 5),
                name.y=sample(letters[1:10], 100, replace=T),
                WgName.y=sample(letters[1:10], 100, replace=T),
                minNum.y=sample(8:30, 100, replace=T),
                size=runif(100,.2,1))


wid<-650

X<-"s11.y"
Y<-"s15.y"
cs <- plot_ly(cin, x = s11.y, y = s15.y,
             mode = "markers",
             color=name.y,
             hoverinfo="text", text=paste0("<b>", name.y, "</b>", "<br>", WgName.y),
             marker=list(size=minNum.y, line=list(color="#FFFFFF"), outliercolor="rgba(50,50,50,2"))
cs<-layout(cs,
           shapes=list(list(type="line",
                            line=list(opacity=.3, layer="below"),
                            x0=mean(cin[,X], na.rm=T), x1=mean(cin[,X], na.rm=T), xref="x",
                            y0=1, y1=5, yref="y"),
                       list(type="line",
                            line=list(opacity=.3, layer="below"),
                            x0=1, x1=5, xref="x",
                            y0=mean(cin[,Y], na.rm=T), y1=mean(cin[,Y], na.rm=T), yref="y")),
           xaxis=list(range=c(1,5), title="Xaxis", autotick=F, dtick=1), 
           yaxis=list(range=c(1,5), title="Yaxis", autotick=F, dtick=1),
           title="text",
           annotations=list(list(x=mean(cin[,X], na.rm=T)+.3, y=1.5, text="Average", showarrow=F),
                            list(x=1.5, y=mean(cin[,Y], na.rm=T)+.1, text="Average", showarrow=F)))




```

```{r echo = F, fig.width = 10, fig.height = 8, warning=F, message=F}
 cs
```
&#13;
&#13;
&#13;

0 个答案:

没有答案