在R中,如何使用ggvis绘制多条曲线?
在R中,如何使用ggvis绘制多条曲线?不知道怎么做,我试着用for循环在R中,如何使用ggvis绘制多条曲线?,r,plot,visualization,ggvis,R,Plot,Visualization,Ggvis,在R中,如何使用ggvis绘制多条曲线?不知道怎么做,我试着用for循环 m <- 10 n_max <- 100 n <- seq.int(1, n_max, 1) s <- matrix(2*(rbinom(n_max*m, size=1, prob=0.5) - 0.5), ncol = m) x_estimate <- apply(s, 2, function(z) cumsum(z)/seq_along(z)) data <- data.frame
m <- 10
n_max <- 100
n <- seq.int(1, n_max, 1)
s <- matrix(2*(rbinom(n_max*m, size=1, prob=0.5) - 0.5), ncol = m)
x_estimate <- apply(s, 2, function(z) cumsum(z)/seq_along(z))
data <- data.frame(x_estimate, n)
v <- data %>%
ggvis(x = ~n, y = ~x_estimate[,c(1)]) %>%
layer_lines() %>%
scale_numeric("y", domain = c(-0.5, 0.5), nice = FALSE, clamp = TRUE)
for ( i in 2:m) {
v <- (v %>% layer_paths(x = ~n, y = ~x_estimate[,c(i)]))
}
v
m我不能肯定应该这样做,我的解决方案看起来有点笨拙,但它确实有效
v <- data %>%
ggvis(x = ~n)
for (i in 1:m)
{
v <- (v %>% layer_paths(prop("y", as.name(colnames(data)[i]))))
}
v %>%
scale_numeric("y", domain = c(-0.5, 0.5), nice = FALSE, clamp = TRUE, label = 'y')
v%
ggvis(x=~n)
对于(1:m中的i)
{
v%layer_路径(prop(“y”,as.name(colnames(data)[i]))
}
v%>%
scale_numeric(“y”,domain=c(-0.5,0.5),nice=FALSE,clamp=TRUE,label=y”)
谢谢!任何关于为什么原始绘图重叠曲线的提示?欢迎!不知道,老实说,我认为你的代码应该正常工作。