r - ggplot2的操纵()滑块功能不起作用
问题描述
当我使用该manipulate()
功能时,以下代码段不起作用。滑块的初始值仅显示图表,但不显示控件。我用了一个plot()
函数,控件出现了。
library(UsingR)
data(galton)
myHist <- function(mu){
mse <- mean((galton$child - mu)^2)
g <- ggplot(galton, aes(x = child)) + geom_histogram(fill = "salmon", colour = "black", binwidth=1) +
geom_vline(xintercept = mu, size = 3) +
ggtitle(paste("mu = ", mu, ", MSE = ", round(mse, 2), sep = ""))
g
}
manipulate(myHist(mu), mu = slider(62, 74, step = 0.5))
解决方案
它与ggplot有关。不是用代码。
它发生在我身上。但是,如果我之前使用另一个示例,带有基本图,它是固定的。也就是说,在它与基础图一起使用之后,它对我来说也适用于 ggplot。例如:
f <- function(disp) {
set.seed(1516)
plot(density(x = rnorm(n = 40000, mean = 15, sd = disp),
from = 0, to = 30))
}
manipulate(f(disp), dispersion = slider(min = 0.5,
max = 4, initial = 2, step = 0.5,
label = 'Est. Dev.'))
推荐阅读
- firebase - Firestore 存储/GCS 如何构建数据以保护用户隐私
- java - 在 tomcat 中,http 请求体如何通过 jax-rs Jersey 转换为 java InputStream?
- c++ - x86_64 堆栈对齐 - 过多字节的目的
- c# - 返回后设置值
- python - 使用 plotly-dash 上传文件
- opengl - 使用opengl进行颜色切换
- html - 延伸到父 Div 的全高的子 Div
- android - 根据下拉列表中选择的值获取 Firebase 数据
- bootstrap-4 - 带有示例仪表板的 Bootstrap 4.1 文档中缺少类侧边栏
- python - LSTM,Keras - 训练和测试数据集上的损失图