我在 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))