Подсюжет с сюжетом в R

Я не могу получить параллельный участок круговой диаграммы, используя библиотеку plotly в R с R Markdown. Вместо этого похоже, что подсюжет накладывает один круг на другой:

---
title: "Test Plotly Pie"
author: ""
date: ""
output:
   html_document:
      self_contained: no
---

```{r plotpie1, results='asis', tidy=FALSE, message=FALSE, fig.retina=NULL, echo=FALSE, out.width = "99%", out.height="750p[![enter image description here][1]][1]x"}

require(plotly)
require(dplyr)

p1 <- plot_ly(type="pie",values=c(5,954), height = 7,
        labels=c("Change","No Change"),textinfo="label", hoverinfo="all",
        textposition="outside",showlegend=F,marker=list(colors=c(
          "lightskyblue",
           "deepblue"
        ))) %>%
  layout(autosize = T)

p2 <- plot_ly(type="pie",values=c(15,1325), height = 7,
        labels=c("Change","No Change"),textinfo="label", hoverinfo="all",
        textposition="outside",showlegend=F,marker=list(colors=c(
          "lightskyblue",
           "deepblue"
        ))) %>%
  layout(autosize = T)

p4 <- suppressWarnings(subplot(
   p1,
   p2,
   margin=0.05))

p4

```

Я использую 64-разрядную версию R 3.1.3 в 64-разрядной операционной системе Windows 7. Я использую версию пакета plotly: 2.0.16 (скачано с Github в середине декабря 2015 года).


r r-markdown plotly
person R_User123456789    schedule 05.02.2016    source источник
comment
проблема в круге и подзаголовках, а не в Rmarkdown   -  person MLavoie    schedule 05.02.2016
comment
Как я и подозревал ... Тип пирога не поддерживается с помощью подзаголовка? Или есть просто другой способ, которым вы должны называть пирог внутри подзаговора?   -  person R_User123456789    schedule 07.02.2016
comment
Если тип круговой диаграммы не поддерживается с помощью подзаголовка, похоже, что ... может быть, кто-то другой предложит решение, линейные и точечные графики работают нормально. На круговой диаграмме действительно нет осей x и y ....   -  person MLavoie    schedule 08.02.2016
comment
@MLavoie: Итак, я взял ваш ответ [здесь] (stackoverflow .com / questions / 35002772 / pie-chart-labels-cut-off), чтобы изменить мои поля, а затем я изменил out.width и высоту на меньшие проценты, а затем бросил float: left; position: relative в тег стиля, и это лучший ответ, который у меня есть до сих пор ... Прекрасно работает, когда я это делаю. Спасибо за помощь!   -  person R_User123456789    schedule 08.02.2016
comment
Я счастлив, что был полезен :-) Вы должны опубликовать свой ответ для будущих читателей! Люди не всегда смотрят на комментарии.   -  person MLavoie    schedule 08.02.2016

Ответы (1)


arrow_upward
2
arrow_downward

Как предлагает MLavoie, я просто добавлю ответ на случай, если кто-то сочтет его полезным ...

```{r message=FALSE, warning=FALSE}
library(plotly)
p <- plot_ly(x = rnorm(1000), y = rnorm(1000), mode = "markers")
```

<div>
 <div style = "float:left">
 ```{r echo = F, fig.width = 4, fig.height = 4}
 p
 ```
 </div>

 <div style = "float:right">
 ```{r, echo = F, fig.width = 4, fig.height = 4}
 p
 ```
 </div>
</div>
person royr2    schedule 10.02.2016
comment
У меня точно такая же проблема. Однако ни решение от MLovie, ни от @ royr2 не работает. Это код для r? Я не понимаю код - person sar; 11.04.2020