有意思的数据可视化：R语言ggplot2热图展示NBA12到21赛季冠军归属（西部球队）

library(tidyverse)

read_csv("data/20231225/Western Conference_data.csv") %>% 
  pull(`Team (group)`) %>% unique()

dat<-read_csv("data/20231225/Western Conference_data.csv")
head(dat)

table(dat$`Best Achievement`)

p1<-ggplot(data=dat,aes(x=`Team (group)`,y=Year))+
  geom_tile(aes(fill=`Best Achievement`),
            color="white")+
  scale_fill_manual(values = c("Missed the Playoffs"="#e5e5e5",
                               "Runner-Up"="#f1a09f",
                               "Western Conference Semifinals"="#a3ccfa",
                               "Western Conference Finals"="#dc4443",
                               "Western Conference First Round"="#0071f1",
                               "Winner"="#ffea00"),
                    labels=c("Missed the Playoffs",
                             "Runner-Up",
                             "Western Conference Semifinals"="Conference Semifinal",
                             "Western Conference Finals"="Conference Finals",
                             "Western Conference First Round"="First Round",
                             "Winner"="Champion"))+
  theme_bw(base_size = 15)+
  theme(panel.grid = element_blank(),
        panel.border = element_blank(),
        axis.ticks = element_blank(),
        axis.text.x = element_text(angle = 30,hjust=1,vjust=1),
        legend.position = "top")+
  labs(x=NULL,y=NULL)+
  guides(fill=guide_legend(nrow = 2,
                           title.position = "top",
                           title.hjust = 0.5))+
  coord_equal()
p1

p2<-ggplot()+
  geom_textsegment(aes(y=1,yend=1,x=15,xend=1),
                   label="Western Conference",
                   size=10,color="gray")+
  theme_void()
p2

library(patchwork)

p1/p2+
  plot_layout(heights= c(10,1))