ggraph快速绘制相关性网络图

library(tidyverse)
library(widyr)
library(ggraph)
library(tidytext)
library(RColorBrewer)

df<- read_csv("data.csv")

p <- df %>% 
  mutate(tags = str_to_lower(str_remove_all(tags, "[:punct:]"))) %>% 
  select(name,tags) %>% 
  separate_rows(tags, sep = " ") %>% 
  count(name,tags) %>% 
  filter(n > 3) %>% 
  pairwise_cor(tags, name, n) # 计算相关性

mycolors <- colorRampPalette(brewer.pal(8, "Set1"))(20)

p %>% ggraph(layout = "fr")+
  geom_edge_link(aes(color = correlation > 0, width = correlation), alpha = 0.6)+
  geom_node_point(size=5,aes(color=name)) +
  geom_node_text(aes(label = name),color="black",
                 hjust = 0.5, vjust = 0.5,
                 check_overlap = T, size=4)+
  scale_color_manual(values = mycolors) +
  scale_edge_width_continuous(range = c(1,2)) +
  scale_edge_color_brewer(palette = "Paired")+
  theme_void() +
  theme(plot.margin = margin(0,1,0,0,"cm"))+
    guides(color = "none")