0

我有两个动画 ioslides 在单独的演示文稿中工作正常，但在同一个演示文稿中会导致错误'x' and 'y' lengths differ。这是我的 MWE。

---
title: "Untitled"
runtime: shiny
output: ioslides_presentation
---

##Outliers

```{r, echo = FALSE, warning=FALSE}
sliderInput("multiplier", label = "Distance:", max = 1.35, min = 1, value = 
1, ticks=FALSE, animate=
          animationOptions(interval = 100, playButton = "run"))

 x     <- seq(5,15,length=50)  
 Day1 <- rnorm(50,mean=10,sd=0.5)

renderPlot({
 Day1[22] <- max(Day1)*input$multiplier
 plot(x,Day1, ylim=c(8.5,15.5))
 text(x=14, y=14.5, labels=paste0("Mean: ", round(mean(Day1),2)))
 text(x=14, y=14, labels=paste0("Median: ", round(median(Day1),2)))
})
```

##bootstrap
```{r, warning=FALSE}
library(plyr)
sliderInput("animation", "Number of samples:", 1,1000,1, step = 1, animate=
          animationOptions(interval=30, loop=FALSE))

x=c()
for (i in 1:1000) {
 x[i] <- round(rnorm(n=200, mean=10, sd=1),1)
}
dfx <- data.frame(x)

renderPlot({
 mp <- 
barplot(count(dfx[1:input$animation,])$freq,count(dfx[1:input$animation,])$x)
   axis(1,at=mp,labels=count(dfx[1:input$animation,])$x)
  legend("topright", legend=paste0("mean: 
",round(mean(dfx[1:input$animation,]),3)), bty="n")
})  

renderUI({
 plotOutput("unsized", height = 500, width = 400)
})
```

大概这是微不足道的事情，但是当我单独查看代码时，我什么也找不到

4

1 回答 1

1

我认为这与 x/Day1 的放置位置有关。我通常将它放在这样的 renderPlot 函数中，这似乎对我有用：

```{r, echo = FALSE, warning=FALSE}
inputPanel(
sliderInput("multiplier", label = "Distance:", max = 1.35, min = 1, value = 
1, ticks=FALSE, animate=animationOptions(interval = 100, playButton = "run"))
)

renderPlot({
 x <- seq(5,15,length=50)  
 Day1 <- rnorm(50,mean=10,sd=0.5)
 Day1[22] <- max(Day1)*(input$multiplier)
 plot(x,Day1, ylim=c(8.5,15.5))
 text(x=14, y=14.5, labels=paste0("Mean: ", round(mean(Day1),2)))
 text(x=14, y=14, labels=paste0("Median: ", round(median(Day1),2)))
})
```
于 2017-05-12T11:09:41.597 回答