Question

今天我在R中使用＆＃39; slider＆＃39; 的函数存在某种问题（使用R studio 3.1.1）。这是一个错误的文字：

滑块出错（62,74，步长= 0.5）：未使用的参数（步骤= 0.5）

我试图在没有此参数的情况下使用此功能，但它显示了一个新错误：

tclVar中的错误（sl.defaults [i]）：

论证＆＃34; sl.defaults＆＃34;缺少，没有默认

然后把我送回追溯！哪里有问题？

P.S。这是我的代码：

    library(manipulate)
library(UsingR)
data(galton)

myHist <- function(mu) {
 hist(galton$child, col = "red", breaks = 100)
 lines(c(mu, mu), c(0, 150), col = "green", lwd = 5)
 mse <- mean((galton$child - mu)^2)
 text(63, 150, paste("mu = ", mu))
 text(63, 150, paste("MSE = ", round(mse, 2)))
}

manipulate(myHist(mu), mu = slider(62, 74, step = 1))

Answer 1

您正在使用＆＃39; aplpack＆＃39;中的滑块功能。库。

您需要指定滑块功能来自操作。

manipulate(myHist(mu), mu = manipulate::slider(62, 74, step = 1))

要看到这一点，请尝试只输入没有控制台参数的函数。

> slider
function code ...
<environment: namespace:aplpack>

编辑：我还使用ggplot2重写了myHist函数，ggplot2比基础绘图包更强大。这是一个很好的学习包，所以希望这段代码可以帮助你开始学习。

myHist <- function(mu) {

  mse <- mean((galton$child - mu) ^ 2)
  qplot(galton$child, binwidth = 0.1) + geom_vline(xintercept = mu, color = "red") + 
    annotate("text", x = 65, y = 150, label = paste("mu = ", mu)) +
    annotate("text", x = 65, y = 145, label = paste("MSE = ", round(mse, 2)))

}

滑块问题＆＃39;在R中的功能

1 个答案: