r - R - 绘制简单循环的多行问题

Question

嗨，使用下面的代码我无法生成多行，已经尝试了其他解决方案，如继承，evauate = TRUE/FALSE 并且它没有显示所有行。如果我在循环外使用相同的代码，它工作正常......

library("plotly")

test = data.frame(replicate(3,sample(0:10,10,rep=TRUE)))
test 

fig <- plot_ly()
for (i in names(test)){
  temp = test[[i]]
  print(temp)
  fig <- fig %>% add_trace(x = ~1:10, y = ~temp, type="scatter", mode = 'lines')
}
fig

输出

Answer 1

试试这个。当您在循环内添加跟踪而不使用数据框作为参数时，您可以避免使用该~符号并直接调用这些值。这里的代码：

library("plotly")

test = data.frame(replicate(3,sample(0:10,10,rep=TRUE)))
test 

fig <- plot_ly()
for (i in names(test)){
  temp = test[[i]]
  fig <- fig %>% add_trace(x = 1:10, y = temp, type="scatter", mode = 'lines')
}
fig

输出：