r - 用 plotly 创建一个稍微重叠的条形图
问题描述
我有plotly
下面的条形图,它显示已发送和单击的电子邮件。由于点击的电子邮件包含在发送中,我希望将它们显示为略微重叠而不是分组条形图。就像是:
Emails <- c("g", "o", "m")
Sent <- c(20, 24, 33)
Clicked <- c(12, 18, 29)
data <- data.frame(Emails, Sent, Clicked)
library(plotly)
fig <- plot_ly(data, x = ~Emails, y = ~Sent, type = 'bar', name = 'Sent',marker=list(color="#556361"),
hoverinfo = paste(Emails,Sent))
fig <- fig %>% add_trace(y = ~Clicked, name = 'Clicked',marker=list(color="#A72608"),
hoverinfo = paste(Emails,Clicked))
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'stack')
fig
解决方案
好吧,实际上我不知道如何通过 plotly 语法创建所需的绘图输出。我通常使用 ggplot 语法,然后将其转换为绘图输出,这要归功于plotly::ggplotly()
这是我的基于 ggplot 的代码和(相对)情节解决方案;
Emails <- c("g", "o", "m")
Sent <- c(20, 24, 33)
Clicked <- c(12, 18, 29)
data <- data.frame(Emails, Sent, Clicked)
data %>%
melt(value.name = 'n',id.vars = 'Emails',variable.name = 'type') %>%
ggplot(aes(x=Emails,y=n,fill=type))+
geom_col(position = position_jitterdodge(dodge.width = 0.5,jitter.height = 0,jitter.width = 0,seed = 25)) -> gg_output
plotly_object <- plotly::ggplotly(gg_output)
plotly_object
推荐阅读
- python - 通过 2 个值对过滤两个字典列表并将它们组合在一起
- gradle - cas-gradle-overlay-template-master gradle bootrun 错误
- ajax - 为什么有多种 HTTP 方法可用?
- html - 图标不与文本内联
- r - 如何为每个组创建包含动态变量的条形图并包含标准误差条?
- android - 使用 Volley 执行 Post 请求 (Json)
- mysql - 更改 MySQL 表结构 JSON
- php - 如何在一定的不活动期后实现自动会话销毁和重定向(安全!)
- r - ShinyApp中的R svgPanZoom在Web和Rstudio中显示不同
- php - For 循环 - PHP & SQL