r - 如何使用 R 中的数据框列表绘制图表
问题描述
我在一个列表中有几个数据框(40),我需要一种方法来创建一个可以根据所选数据框使用plotly
或修改的图表ggplot2
我在下面放了一个示例模板,说明我目前如何创建图表。
aa <- c("José", "Sue")
ab <- c(10, 40)
a <- data.frame(aa,ab)
ba <- c("Marie", "Pablo")
bb <- c(25, 20)
b <- data.frame(ba,bb)
ca <- c("Elizabeth", "Mike")
cb <- c(50, 20)
c <- data.frame(ca,cb)
abc <- list(a,b,c)
names(abc) <- c("a","b","c")
p <- plot_ly() %>%
add_trace(type = 'bar', x = abc$a$aa,
y = abc$a$ab, visible=T, marker = list(color = 'blue')) %>%
add_trace(type = 'bar',x = abc$b$ba,
y = abc$b$bb, visible=F, marker = list(color = 'red')) %>%
add_trace(type = 'bar', x = abc$b$ba,
y = abc$c$cb, visible=F, marker = list(color = 'yellow')) %>%
layout(
updatemenus = list(
list(
yanchor = 'auto',
buttons = list(
list(method = "restyle",
args = list("visible", list(T, F,F)),
label = 'a'),
list(method = "restyle",
args = list("visible", list(F,T, F)),
label = 'b'),
list(method = "restyle",
args = list("visible", list(F, F,T)),
label = 'c')
))))
p
示例:(p) 图形的链接
对于列表中访问的每个数据框,我需要一种方法来覆盖多个 add_trace 的创建,使用 x = abc$a$aa 和 y = abc$a$ab。
解决方案
我调整了您的代码以循环运行
library(plotly)
p <- plot_ly()
layout_buttons <- list()
color_list <- palette() #color list - you may define your own list of colors here
visible_default_layout <- c(T, rep(F, length(abc)-1))
for (i in seq_along(abc)){
p <- p %>% add_trace(x = abc[[i]][[1]], y = abc[[i]][[2]],
type = 'bar', visible=visible_default_layout[i], marker = list(color = color_list[i]))
visible_layout <- rep(F, length(abc))
visible_layout[i] <- T
layout_buttons[[i]] <- list(method = "restyle",
args = list("visible", as.list(visible_layout)),
label = names(abc)[i])
}
p <- p %>%
layout(updatemenus = list(list(yanchor = 'auto', buttons = layout_buttons)))
p
样本数据:
abc <- structure(list(a = structure(list(aa = structure(1:2, .Label = c("José",
"Sue"), class = "factor"), ab = c(10, 40)), .Names = c("aa",
"ab"), row.names = c(NA, -2L), class = "data.frame"), b = structure(list(
ba = structure(1:2, .Label = c("Marie", "Pablo"), class = "factor"),
bb = c(25, 20)), .Names = c("ba", "bb"), row.names = c(NA,
-2L), class = "data.frame"), c = structure(list(ca = structure(1:2, .Label = c("Elizabeth",
"Mike"), class = "factor"), cb = c(50, 20)), .Names = c("ca",
"cb"), row.names = c(NA, -2L), class = "data.frame")), .Names = c("a",
"b", "c"))
推荐阅读
- javascript - Material UI - 如何将 onChange 方法添加到预制组件?
- redux - 如何获取 RxJS 中在一秒钟内发生的最近事件?
- python - 如何通过html在flask中显示matplotlib图(不保存图像)
- asp.net - 当我刷新页面时,我按下的最后一个按钮再次按下。ASP.NET
- django - 在 django 中发送电子邮件
- python - 如何根据行对数据框进行排序
- mongodb - 计算 mongodb 文档中值的频率
- data-science - Vowpal Wabbit:数据与多通道打乱的数据 - 为什么在学习之前打乱文件有助于提高指标
- swift - 在 main 中使用包中的类
- youtube - 如何让两个人收到 YouTube 评论的通知?