Unpivot data with delimiters (R): count frequencies and plot

unpivot_delimited_data_2.r

data_counts <- unpivot_wide_data %>%
  group_by(`Used Social Networks`) %>%
  summarize(Frequency = n())

# Order the data by descending order of the frequency
data_counts <- data_counts[
  order(data_counts$Frequency, decreasing = TRUE)
  ,]

# Order the X axis by the current order of the values in the "Frequency" column
fig <- plot_ly(data_counts) %>%
  add_bars(
    x = ~ `Used Social Networks`,
    y = ~ Frequency) %>%
  layout(
    title = "Users of Social Networks",
    xaxis = list(
      title = "Social Networks",
      categoryorder = "array",
      categoryarray = data_counts$Frequency
    ),
    yaxis = list(title = "Users")
  )
fig