plotly Barplot in R (Example) | Draw Interactive Barchart | Grouped, Stacked & Horizontal Bargraph

This tutorial provides several examples of barplots in plotly. More details: https://statisticsglobe.com/plotly-barplot-r
Profile of Kirby White: https://statisticsglobe.com/kirby-white

R code of this video:

install.packages("plotly")
library(plotly)

install.packages("tidyverse")
library(tidyverse)

df ＜-
ggplot2::diamonds %＞%
group_by(cut) %＞%
summarize(price = mean(price),
table = mean(table),
depth = mean(depth))

df_long ＜- df %＞%
pivot_longer(cols = 2:4)

df_count ＜- count(ggplot2::diamonds, cut, clarity)

plot_ly(
data = df,
x = ~cut,
y = ~price,
type = "bar"
)

plot_ly(
data = df,
x = ~cut,
y = ~depth,
type = "bar",
name = "Depth"
) %＞%
add_trace(y=~table, name = "Table")

plot_ly(
data = df_long %＞% filter(name != "price"),
x = ~name,
y = ~value,
color = ~cut,
type = "bar"
)

plot_ly(
data = df_count,
x = ~clarity,
y = ~n,
color = ~cut,
type = "bar"
) %＞%
layout(barmode = "stack")

df_count %＞%
group_by(clarity) %＞%
mutate(prop = n/sum(n)) %＞%
plot_ly(x = ~clarity,
y = ~prop,
color = ~cut,
type = "bar") %＞%
layout(barmode = "stack")

plot_ly(
data = df,
y = ~cut,
x = ~price,
type = "bar"
)

plot_ly(
data = df,
x = ~cut,
y = ~price,
type = "bar",
text = ~paste0("$",round(price,2)),
textposition = "outside"
)

Follow me on Social Media:
Facebook – Statistics Globe Page: https://www.facebook.com/statisticsglobecom/
Facebook – Group for Discussions & Questions: https://www.facebook.com/groups/statisticsglobe
LinkedIn – Statistics Globe Page: https://www.linkedin.com/company/statisticsglobe/
LinkedIn – Group for Discussions & Questions: https://www.linkedin.com/groups/12555223/
Twitter: https://twitter.com/JoachimSchork

Music by bensound.com