Brand Reputation

Jo Hardin

5/31/2022

The Data

The data this week comes from Axios and Harris Poll. Also see The Harris Poll overview for more details.

# I think poll and axios are the same
axios <- read_csv("axios.csv")
reputation <- read_csv("reputation.csv")
poll <- read_csv("poll.csv")

library(plotly)
library(RColorBrewer)
library(paletteer)

# Define the number of colors you want
n_cols <- 48
my_colors <- colorRampPalette(paletteer_d("colorBlindness::paletteMartin"))(n_cols)

p <- reputation %>%
  #filter(industry == "Retail") %>%
  filter(industry %in% c("Retail", "Food & Beverage", "Tech")) %>%
  ggplot(aes(x = name, y = score, group = company, color = company,
             text = paste("Company: ", company,
                         "<br>Category:", name,
                         "<br>Score:", score))) + 
  geom_line() + 
  theme(legend.position="none") + 
  facet_wrap(~ industry, ncol = 1) +
  xlab("Category of Score") + 
  ylab("") + 
  ggtitle("Score across different categories \nbroken down by industry") +
  scale_color_manual(values = my_colors)
  #paletteer::scale_color_paletteer_d("colorBlindness::paletteMartin")

ggplotly(p, tooltip = "text")

Interactive plot demonstrating each company’s rating for a variety of categories. P&S is for products and services. Hover on the line to see the score for a company at a particular category.

praise()

[1] "You are unreal!"