1

我在 Windows 10 中使用 R 4.0,并且操作滑块似乎不适用于我从视频或教科书中获取的任何示例。

我在运行下面的代码时没有遇到任何错误,除了没有看到滑块之外,一切都运行良好。

还有其他人遇到同样的问题吗?

library(manipulate)
library(ggplot2)
library(HistData)
myHist <- function(mu){
  g <- ggplot(Galton, aes(x = child))
  g <- g + geom_histogram(fill = "salmon", 
                          binwidth=1, aes(y = ..density..), colour = "black")
  g <- g + geom_density(size = 2)
  g <- g + geom_vline(xintercept = mu, size = 2)
  mse <- round(mean((Galton$child - mu)^2), 3)  
  g <- g + labs(title = paste('mu = ', mu, ' MSE = ', mse))
  g
}
manipulate(myHist(mu), mu = slider(62, 74, step = 0.5))
4

1 回答 1

0

首先运行以下命令:

manipulate(plot(1:5, cex=size), size = slider(0.5,10,step=0.5))

正如Marco Sandri在此评论中所建议的那样,为我解决了这个问题。

于 2021-05-11T16:30:18.467 回答