Question

我有两个动画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)
})
```

据推测，这是一件微不足道的事情，但当我单独看代码时，我找不到任何东西

Answer 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)))
})
```

＆＃39; X＆＃39;并且＆＃39; y＆＃39;长度不同，错误在一起但在ioslides中不是单独的

1 个答案: