Gráfico de barras apiladas y agrupadas con R

Un usuario Pregunto ✅

ozbroomy

Quiero visualizar un gráfico de barras agrupadas y apiladas en Power BI, pero aparentemente no es posible.

https://ideas.powerbi.com/forums/265200-power-bi-ideas/suggestions/6804910-clustered-stacked-chart

Parece que es posible en Excel y también se ha desarrollado como un objeto visual personalizado, pero no está disponible para descargar en Power BI para mí.

http://www.defteam.com/stacked-clustered-bar-chart/

Básicamente, quiero mostrar el presupuesto frente al real de los últimos 12 meses, agrupado por mes. Luego, muestre un desglose dentro de cada barra según el tipo de servicio (pintura, panel, piezas y otros). A continuación, se muestra lo que pude lograr con el gráfico de barras OOTB Line & Clustered Column en Power BI.

2019-08-28_1707.png

Entonces, con frustración, comencé a ver qué se podía hacer con R y gplot2 e incorporarlo en Power BI.

Parece que podría lograrse si puedo determinar cómo obtener mis datos en el formato correcto.
http: //theduke.at/blog/science/beginners-guide-to-creating-grouped-and-stacked-bar-charts-in-r-with -…
Creo que podría girar los valores Presupuesto y Real de columnas a filas o crear grupos factores en R antes de visualizar.

Cualquier sugerencia será muy apreciada.

bars_prettified.png

Salud
@ozbroomy

Hola @ozbroomy,

Necesita cambiar su marco de datos como se muestra a continuación:

Gráfico de barras apiladas y agrupadas con R 2.PNG

Luego, puede consultar el artículo para crear un gráfico de barras apiladas y agrupadas usando R.

Gráfico de barras apiladas y agrupadas con R.PNG

El código está a continuación:

> install.packages («ggplot2»)

> biblioteca (ggplot2)

> datos <-read.table (file = "Budget.txt", header = T)

> ggplot (data = data, aes (x = Month, y = Value, fill = Category)) + geom_bar (stat = «identidad»)

> datos2 <-con (datos, datos[order(Month, Category, Actual.Budget),])

> ggplot (data = data2, aes (x = Actual.Budget, y = Value, fill = Category)) + geom_bar (stat = «identity») + facet_grid (~ Mes)

Atentamente,

Icey Zhang

Si esta publicación ayuda, entonces por favor considere Acéptalo como la solución para ayudar a los demás miembros a encontrarlo más rápidamente.

Hola @ozbroomy,

En Power BI, puede escribir su script R así:

library(ggplot2)
data<-dataset
data<-with(data,data[order(Month,Category,ActualBudget),])
ggplot(data=data, aes(x=ActualBudget, y=Value,fill=Category)) + geom_bar(stat="identity")+facet_grid(~Month)

Gráfico de barras apiladas y agrupadas con R 3.PNG

Este es mi archivo de muestra.

Atentamente,

Icey

Si esta publicación ayuda, entonces por favor considere Acéptalo como la solución para ayudar a los demás miembros a encontrarlo más rápidamente.

Hola @ozbroomy,

En Power BI, puede escribir su script R así:

library(ggplot2)
data<-dataset
data<-with(data,data[order(Month,Category,ActualBudget),])
ggplot(data=data, aes(x=ActualBudget, y=Value,fill=Category)) + geom_bar(stat="identity")+facet_grid(~Month)

Gráfico de barras apiladas y agrupadas con R 3.PNG

Este es mi archivo de muestra.

Atentamente,

Icey

Si esta publicación ayuda, entonces por favor considere Acéptalo como la solución para ayudar a los demás miembros a encontrarlo más rápidamente.

Hola @ozbroomy,

Necesita cambiar su marco de datos como se muestra a continuación:

Gráfico de barras apiladas y agrupadas con R 2.PNG

Luego, puede consultar el artículo para crear un gráfico de barras apiladas y agrupadas usando R.

Gráfico de barras apiladas y agrupadas con R.PNG

El código está a continuación:

> install.packages («ggplot2»)

> biblioteca (ggplot2)

> datos <-read.table (file = "Budget.txt", header = T)

> ggplot (data = data, aes (x = Month, y = Value, fill = Category)) + geom_bar (stat = «identidad»)

> datos2 <-con (datos, datos[order(Month, Category, Actual.Budget),])

> ggplot (data = data2, aes (x = Actual.Budget, y = Value, fill = Category)) + geom_bar (stat = «identity») + facet_grid (~ Mes)

Atentamente,

Icey Zhang

Si esta publicación ayuda, entonces por favor considere Acéptalo como la solución para ayudar a los demás miembros a encontrarlo más rápidamente.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *