我正在使用shiny和plot_ly
来绘制一个data frame
。
Goal:根据GUI
中用户的选择实现动态绘图。
考虑以下名为pl.d
的data.table
Group OS NP own.OS own.SCR HY9 WS8
A 34 54 27 76 56 82
B 15 45 0 84 89 48
C 0 36 7 92 91 22
在我使用的server.R
中
plot_ly(pl.d, x = ~Group, y = ~OS, type = 'bar', name = "OS" ) %>%
layout(showlegend = TRUE)
用户应该能够以y可以是任意选择的c(OS, NP, own.OS, own.SCR, HY9, WS8)
的方式展开图。一种不明智的可能方法是使用以下命令扩展plot_ly
函数
if (input$choice of user =="NP"){
add_trace(y = ~NP, name = "NP")
}
以及if conditions
等等。
有没有可能写一个智能的动态代码来做到这一点?
这与"NP“无关。我的意思是plot_ly
或add_trace
原则上应该能够显示一个或多个c(OS, NP, own.OS, own.SCR,HY9,WS8)
。我可以这样写它:
plot_ly(pl.d, x = ~Group, y = ~OS, type = 'bar', name = "OS" ) %>%
add_trace(y = ~NP, name = "NP") %>%
add_trace(y = ~own.OS, name = "own.OS") %>%
add_trace(y = ~own.SCR, name = "own.SCR") %>%
add_trace(y = ~HY9, name = "HY9") %>%
add_trace(y = ~WS8, name = "WS8")%>%
layout(showlegend = TRUE)
问题:如果你遗漏了一个c(OS, NP, own.OS, own.SCR,HY9,WS8)
,你会得到一个错误!
一种可能的解决方案是:将数据帧分割成向量!使用melt
函数使之成为可能,但我没有得到矢量,只是另一种形状的数据表!请考虑到我的外发点是pl.d
和,而不是 data.frame(Group =c(...), ....)
!因此,我尝试了以下方法
pl.d<-data.frame(Group =melt(setDT(d.plot), id.var = 'Group ')[,1],
model=melt(setDT(d.plot), id.var = 'Group ')[,2],
value=melt(setDT(d.plot), id.var = 'Group ')[,3])
然后,
plot_ly(pl.d, x = ~Group, y = ~value, type = 'bar', color= ~model ) %>%
add_trace(y = ~value, name = "NP")
然而,我没有得到例如属于A的彼此接近的条。
附录:我的错误是,我使用了color= ~model
,我不得不使用color=~Variable as mentioned in the answer! BUT why? I set it in my data frame as
模型!!
https://stackoverflow.com/questions/56948344
复制相似问题