数据可视化有意思的小例子：使用R语言探索NBA球星库里常规赛的数据

library(tidyverse)
df<-read.csv("Curry/Stephen Curry Regularseason Stats.csv",
             header=T)
head(df)
dim(df)
colnames(df)

df %>% 
  select(1,4,5,8,10,11,14,15,18,19,21:27) -> dfa

table(dfa$Result)

library(ggplot2)

table(dfa$OPP,dfa$Result) %>% 
  as.data.frame() %>% 
  ggplot(aes(x=Var1,y=Freq,fill=Var2))+
  geom_bar(stat="identity",position = "dodge")+
  theme_bw()+
  scale_y_continuous(expand = c(0,0),
                     limits = c(0,30))+
  theme(legend.position = "top",
        legend.title = element_blank(),
        panel.grid = element_blank())+
  scale_fill_manual(values = c("#5a72b5",
                               "#ea5a49"))+
  labs(x=NULL,y=NULL)+
  geom_rect(aes(xmin=2.5,xmax=3.5,ymax=29,ymin=0),
            fill="white",alpha=0,color="black",
            lty="dashed")+
  ggsave("1.pdf",
         width = 9.4,
         height = 4,
         family="serif")

library(tidyquant)
library(patchwork)
x1<-palette_dark()
colors<-matrix(x1)[,1]
dfa %>% 
  ggplot(aes(x=Season_year,y=PTS))+
  geom_jitter(width = 0.2,
              aes(fill=Season_year),
              size=5,
              shape=21,
              color = "#FFDADC")+
  scale_fill_manual(values = colors)+
  theme_bw()+
  theme(legend.position = "none",
        panel.grid = element_blank(),
        axis.text.x = element_text(angle = 60,
                                   hjust=1))+
  labs(x=NULL,y=NULL) -> p1

here::here("Curry","i.png")
img<-data.frame(x=2,y=55,
                img=here::here("Curry","i.png"))
p1+ggimage::geom_image(data=img,
                       aes(x,y,image=img),
                       size=0.3)+
  ggsave("3.pdf",
         width = 8,
         height = 6,
         family="serif")