用R语言绘制的分组条形图

6ioyuze2 于 4个月前发布在 R语言

关注(0)|答案(1)|浏览(105)

我有以下数据表dt.data：

dt.data <- structure(list(begTime = c("01-JAN-23", "01-JAN-23", "01-JAN-23", 
"01-FEB-23", "01-FEB-23", "01-FEB-23", "01-MAR-23", "01-MAR-23", 
"01-MAR-23", "01-APR-23", "01-APR-23", "01-APR-23", "01-MAY-23", 
"01-MAY-23", "01-MAY-23", "01-JUN-23", "01-JUN-23", "01-JUN-23", 
"01-JUL-23", "01-JUL-23", "01-JUL-23", "01-AUG-23", "01-AUG-23", 
"01-AUG-23", "01-SEP-23", "01-SEP-23", "01-SEP-23", "01-OCT-23", 
"01-OCT-23", "01-OCT-23", "01-NOV-23", "01-NOV-23", "01-NOV-23", 
"01-DEC-23", "01-DEC-23", "01-DEC-23"), toBook = c("KG21", "KG64", 
"Extern", "KG21", "KG64", "Extern", "KG21", "KG64", "Extern", 
"KG21", "KG64", "Extern", "KG21", "KG64", "Extern", "KG21", "KG64", 
"Extern", "KG21", "KG64", "Extern", "KG21", "KG64", "Extern", 
"KG21", "KG64", "Extern", "KG21", "KG64", "Extern", "KG21", "KG64", 
"Extern", "KG21", "KG64", "Extern"), sumQuantity = c(1440, 200.947775009365, 
-3978.571120032, 0, -17812.0922910065, 19996.296169952, 0, 12995.1445322506, 
-15165.299710032, 2160, -53923.0554299322, 54824.803160056, 504, 
-7045.79687321736, 8256.75532999996, 0, -14919.1153921838, 13458.1132399999, 
0, -15966.4071659115, 15083.67141, 720, -18714.0358020241, 18129.3816599999, 
240, 2905.88494461573, -6727.47018, 0, 39413.3865474728, -36206.19812, 
0, -9407.5891668633, 9800.53, 0, -17781.1490225234, 17946.678
), unit = c("MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", 
"MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", 
"MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", 
"MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", "MWh", 
"MWh", "MWh"), sumValue = c(108891.36, 128053.530976637, -273632.88711977, 
0, -1165755.80930466, 1274897.88251747, 0, 512406.636632069, 
-617755.657019838, 102372.48, -2495006.82184836, 2522765.0072208, 
15463.728, -305363.977539244, 336017.268406819, 0, -487578.86709908, 
445164.689526293, 0, -517033.916204391, 475791.067501664, 26482.32, 
-640698.403786333, 612188.309980192, 8319.6, 96201.4521993924, 
-243811.777077578, 0, 1582012.15513231, -1467874.96096514, 0, 
-429850.119024673, 434161.39860219, 0, -719195.470550453, 724300.2
), newBegTime = structure(c(19358, 19358, 19358, 19389, 19389, 
19389, 19417, 19417, 19417, 19448, 19448, 19448, 19478, 19478, 
19478, 19509, 19509, 19509, 19539, 19539, 19539, 19570, 19570, 
19570, 19601, 19601, 19601, 19631, 19631, 19631, 19662, 19662, 
19662, 19692, 19692, 19692), class = "Date"), monthYear = c("JAN2023", 
"JAN2023", "JAN2023", "FEB2023", "FEB2023", "FEB2023", "MAR2023", 
"MAR2023", "MAR2023", "APR2023", "APR2023", "APR2023", "MAY2023", 
"MAY2023", "MAY2023", "JUN2023", "JUN2023", "JUN2023", "JUL2023", 
"JUL2023", "JUL2023", "AUG2023", "AUG2023", "AUG2023", "SEP2023", 
"SEP2023", "SEP2023", "OCT2023", "OCT2023", "OCT2023", "NOV2023", 
"NOV2023", "NOV2023", "DEC2023", "DEC2023", "DEC2023")), row.names = c(NA, 
-36L), class = c("data.table", "data.frame"))

字符串
现在我想创建一个分组条形图，其中x轴是列newBegTime，y轴是sumQuantity。组应该由toBook定义。
我已经尝试了下面的情节编码，但这并没有给我给予我需要的结果：

plotQuantity <- plotly::plot_ly(dt.data, x = ~newBegTime, y = ~sumQuantity, type = 'bar', name = 'Quantity') %>%
                add_trace(y = ~toBook, name = 'toBook') %>%
                layout(xaxis = list(), 
                       yaxis = list(title = 'MWh'),
                       barmode = 'group')

型

r

来源：https://stackoverflow.com/questions/77652862/grouped-bar-chart-with-plotly-in-r

1条答案

按热度按时间

o3imoua41#

你应该group_by你的数据和给予他们一个color像这样：

library(dplyr)
library(plotly)

dt.data %>%
  group_by(toBook) %>%
  plot_ly(x = ~newBegTime, y = ~sumQuantity, type = 'bar', color = ~toBook) %>%
  layout(xaxis = list(), 
         yaxis = list(title = 'MWh'),
         barmode = 'group')

字符串
x1c 0d1x的数据
创建于2023-12-13使用reprex v2.0.2

赞(0）回复(0）举报 4个月前

我来回答

用R语言绘制的分组条形图

1条答案

相关问题

热门标签

最新问答