r - 使用 R Plotly 组合分组条形图和堆积条形图-6ren

r - 使用 R Plotly 组合分组条形图和堆积条形图

转载作者：行者123 更新时间：2023-12-02 19:12:01

我正在尝试使用 plot_ly() 组合堆积条形图和分组条形图。我遇到了一些问题，但无法针对这种情况获得完美的解决方案。

我遇到了solution使用ggplot2。但我需要使用 plot_ly

来实现

这是我试图绘制的数据框

structure(list(QuarterYear = c("Q4 2019", "Q4 2019", "Q4 2019", 
"Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", 
"Q4 2019", "Q4 2019", "Q4 2019", "Q1 2020", "Q1 2020", "Q1 2020", 
"Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", 
"Q1 2020", "Q1 2020", "Q1 2020", "Q2 2020", "Q2 2020", "Q2 2020", 
"Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", 
"Q2 2020", "Q2 2020", "Q2 2020", "Q3 2020", "Q3 2020", "Q3 2020", 
"Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", 
"Q3 2020", "Q3 2020", "Q3 2020"), Grade = c("Grade 8", "Grade 8", 
"Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
"Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
"Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
"Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
"Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
"Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
"Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
"Grade 10", "Grade 11", "Grade 11", "Grade 11"), Type = c("overallAverage", 
"CT", "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", 
"RT", "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", 
"overallAverage", "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", 
"CT", "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", 
"RT", "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", 
"overallAverage", "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", 
"CT", "RT", "overallAverage", "CT", "RT"), value = c(2.48, 2.21, 
0.27, 3.48, 3.03, 0.45, 4.6, 4, 0.6, 2.8, 2.4, 0.4, 2.54, 2.28, 
0.26, 3.45, 3, 0.45, 4.46, 3.88, 0.58, 3.56, 2.81, 0.75, 2.47, 
2.14, 0.33, 2.96, 2.54, 0.41, 4.1, 3.69, 0.41, 3.44, 2.61, 0.83, 
2, 1.81, 0.19, 2.54, 2.26, 0.28, 4.11, 3.68, 0.43, 2.67, 2.11, 
0.56)), row.names = c(NA, -48L), class = "data.frame")

我知道我们需要将 barmode 定义为 stack(用于堆叠条形图)和 group(用于分组条形图)。我现在不知道使用 plot_ly

将这些 barmode 合并到一个图中

任何人都可以在 R 中提供合适的解决方案吗？

提前致谢!!

最佳答案

这是plot_ly 可以做的最好的事情:

library(plotly)
library(tidyverse)

dat <- tibble(QuarterYear = c("Q4 2019", "Q4 2019", "Q4 2019", 
                              "Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", "Q4 2019", 
                              "Q4 2019", "Q4 2019", "Q4 2019", "Q1 2020", "Q1 2020", "Q1 2020", 
                              "Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", "Q1 2020", 
                              "Q1 2020", "Q1 2020", "Q1 2020", "Q2 2020", "Q2 2020", "Q2 2020", 
                              "Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", "Q2 2020", 
                              "Q2 2020", "Q2 2020", "Q2 2020", "Q3 2020", "Q3 2020", "Q3 2020", 
                              "Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", "Q3 2020", 
                              "Q3 2020", "Q3 2020", "Q3 2020"), 
              Grade = c("Grade 8", "Grade 8", 
                        "Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
                        "Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
                        "Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
                        "Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
                        "Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
                        "Grade 10", "Grade 11", "Grade 11", "Grade 11", "Grade 8", "Grade 8", 
                        "Grade 8", "Grade 9", "Grade 9", "Grade 9", "Grade 10", "Grade 10", 
                        "Grade 10", "Grade 11", "Grade 11", "Grade 11"), 
              Type = c("overallAverage", 
                       "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", 
                       "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", 
                       "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", 
                       "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", 
                       "RT", "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", 
                       "overallAverage", "CT", "RT", "overallAverage", "CT", "RT", "overallAverage", 
                       "CT", "RT", "overallAverage", "CT", "RT"), 
              value = c(2.48, 2.21, 
                        0.27, 3.48, 3.03, 0.45, 4.6, 4, 0.6, 2.8, 2.4, 0.4, 2.54, 2.28, 
                        0.26, 3.45, 3, 0.45, 4.46, 3.88, 0.58, 3.56, 2.81, 0.75, 2.47, 
                        2.14, 0.33, 2.96, 2.54, 0.41, 4.1, 3.69, 0.41, 3.44, 2.61, 0.83, 
                        2, 1.81, 0.19, 2.54, 2.26, 0.28, 4.11, 3.68, 0.43, 2.67, 2.11, 
                        0.56))

 
 q4_2019 <- dat %>% filter(QuarterYear == "Q4 2019") %>%
  group_by(Grade) %>% 
  arrange(Grade) %>%
  plot_ly(
   x = ~Type, 
   y = ~value, 
   color= ~Grade,
   colors = 'Reds',
   type = 'bar', 
   legendgroup=~Grade) %>% 
  layout(xaxis = list(title = "Q4 2019"))
 
 q1_2020 <- dat %>% filter(QuarterYear == "Q1 2020") %>%
  group_by(Grade) %>% 
  arrange(Grade) %>%
  plot_ly(
   x = ~Type, 
   y = ~value, 
   color= ~Grade,
   colors = 'Reds',
   type = 'bar', 
   legendgroup=~Grade, 
   showlegend = FALSE) %>% 
  layout(xaxis = list(title = "Q1 2020"))
 
 
 q2_2020 <- dat %>% filter(QuarterYear == "Q2 2020") %>%
  group_by(Grade) %>% 
  arrange(Grade) %>%
  plot_ly(
   x = ~Type, 
   y = ~value, 
   color= ~Grade,
   colors = 'Reds',
   type = 'bar', 
   legendgroup=~Grade, 
   showlegend = FALSE) %>% 
  layout(xaxis = list(title = "Q2 2020"))
 
 q3_2020 <- dat %>% filter(QuarterYear == "Q3 2020") %>%
  group_by(Grade) %>% 
  arrange(Grade) %>%
  plot_ly(
   x = ~Type, 
   y = ~value, 
   color= ~Grade,
   colors = 'Reds',
   type = 'bar',
   legendgroup =~Grade,
   showlegend = FALSE) %>% 
  layout(xaxis = list(title = "Q3 2020"))
 
subplot(q4_2019, q1_2020, q2_2020, q3_2020, titleX = TRUE, shareY = T) %>%
  layout(barmode = 'stack', showlegend = TRUE)

关于r - 使用 R Plotly 组合分组条形图和堆积条形图，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/64154396/

文章推荐： Scala 过滤序列以与尊重和不尊重过滤条件的元素进行映射

文章推荐： react-native - React Native 抽屉导航自定义页脚

文章推荐： kubernetes - Istio 不转发授权 header

plotly - plotly 标签
我想更改 plotly(_express) 图中的构面标签。剧情如下: import plotly.express as px tips = px.data.tips() fig = px.scatt
plotly - Plotly 中所有地理范围的列表
我正在尝试使用 plotly.js 在 map 上绘制数据。我知道您可以通过以下方式获得一个国家/地区的 map : layout = dict( title = '',
plotly - Plotly 的默认色标是什么？
关于 this page暗示他们有一些默认的色标，例如“Viridis”。我终其一生都找不到一个网页来记录这些命名的色标是什么。最佳答案问题是我是英国人并且正确拼写了颜色。色标可在 https:/
r - 如何在 plotly 中为子 plotly 中的所有 plotly 强制使用相同的颜色？
在下面的示例中，我在一个 plotly 子图中有四个箱形图。此示例中的四个箱形图中的每一个都有 3 个变量:股票、债券和现金。在每个箱线图中，我希望股票以相同的颜色(例如蓝色)显示，债券以相同的颜色(
javascript - plotly:删除 plot 并在同一个 div 中创建一个新的 plot
我有一个 plotly plot，当数据发生变化时，我想删除 plot 并生成一个新 plot。为此，我这样做: $('#heatmap2').empty() 然后我重新生成我的 plotly 。但是
python - Plotly:如何使用 plotly.graph_objects 和 plotly.express 在图形中定义颜色？
有许多问题和答案以一种或另一种方式涉及这个主题。有了这个贡献，我想清楚地说明为什么一个简单的方法，比如 marker = {'color' : 'red'}将适用于 plotly.graph_obje
python - 为什么 matplotlib .plot(kind ='bar' ) plot 与 .plot() 如此不同
这可能是一个非常愚蠢的问题，但是当使用 .plot() 绘制 Pandas DataFrame 时，它非常快并且会生成具有适当索引的图形。一旦我尝试将其更改为条形图，它似乎就失去了所有格式并且索引
python - plotly dash - 使用 plotly 生成图像，在本地保护它并使用 plotly dash 显示它
我用 plotly (express) 生成了很多图像，并将它们以 png 格式保存在本地目录中。我想创建一个带有 plotly dash 的仪表板。我生成的图像有很多依赖关系:这就是我不想将代码包含
python - 交互式 plotly 的 plotly 表达与Altair/Vega-Lite的 plotly 比较
最近，我正在学习Plotly express和Altair/Vega-Lite进行交互式绘图。他们两个都令人印象深刻，我想知道他们的优点和缺点是什么。尤其是对于创建交互式地块，它们之间有什么大差异，何
plotly:从直方图中获取值/plotly:从轨迹中获取值
在 plotly 中，我可以创建一个直方图，例如in this example code from the documentation : import plotly.express as px df
plot - Julia plot 函数数组问题
来自 Matlab 我正在努力弄清楚为什么以下不起作用: plot(x=rand(10),y=rand(10)) 正确生成图表。 x=rand(10) y=rand(10) plot(x,y) 产生错
plot - 自定义图例标签 - geopandas.plot()
我和一位同事一直在尝试设置自定义图例标签，但到目前为止都失败了。下面的代码和详细信息 - 非常感谢任何想法! 笔记本:toy example uploaded here 目标:将图例中使用的默认比率值
plotly - 如何使用 Plotly 控制哪些跟踪图位于顶部？
我正在使用 Plotly python 库生成一个带有几个 fiddle 图和几个填充散点图的图形。无论什么订单我都有个人fig.add_trace在我的代码中调用， fiddle 图总是在散点图后面
plot - 删除 Plotly 中图表之间的差距
我将图表的大小配置为 Shiny 但图表之间仍有空白区域它们在配置高度和宽度之前显示为旧区域这是我的代码 plot1_reactive % layout(xaxis = xaxis,
plotly - 如何组织一个有 plotly 的破折号项目？
我想弄清楚如何组织一个包含多个应用程序的破折号项目。所有示例都是单页应用程序，我希望将多个破折号组织为一个项目，由 gunicorn 运行(在 docker 容器内): dash-project/
Julia Plotly 不显示带有子图的 plotly
我之前做了一些解决方法来在 Julia Plotly 中实现精彩的子图，但目前正在努力解决一个更复杂的问题。下面有三种方法可以完成这项工作。 draw1 完美地完成了，但不适用于我的情况，draw2
plotly - 删除 Plotly 中子图之间的空间？
我的子图之间有很大的空间。在 matplotlib 中，有一种称为紧密布局的布局可以消除这种情况。 plotly 有没有类似的布局？我正在 iPython 笔记本中绘图，因此空间有限。请参阅下图中的空
plotly - plot.ly 热图色标不起作用
我正在尝试获取我提前生成的 cbrewer Reds 颜色图。但是，当我尝试使用它时，我仍然得到一些默认的颜色图。我究竟做错了什么？这是 plotly :https://plot.ly/~smirno
plotly - Plot.ly - 图例中同一键的多条轨迹
我一直在使用 plot.ly 并希望将多个跟踪分组到图例中的同一个键。我有显示有关特定用户的数据的子图。我想让每个键代表一个用户，而不是 user.data1、user.data2 等。这是我现在
plot - 如何从 Plotly 中删除轴和数字
我有下面这张图，我想把除点和三角形以外的所有东西都去掉，意思是横纵轴上的数字和小竖线，我该怎么做？这是图片: 这是我的代码: x0 = np.average(triangleEdges,axis=0

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 使用 R Plotly 组合分组条形图和堆积条形图