答读者问：R语言ggplot2散点图实现用箭头两两配对

library(ggplot2)
library(readxl)
library(dplyr)
library(ggstar)
df1<-read_excel("practice/example.xlsx",sheet = "Sheet1")
df2<-read_excel("practice/example.xlsx",sheet = "Sheet2")
df1
df2
df<-rbind(df1,df2)
df

ggplot()+
  geom_star(data=df,aes(x=x,y=y,
                        starshape=group,
                        fill=group),
            size=5)+
  theme_bw()

df3<-read_excel("practice/example.xlsx",sheet = "Sheet3")

df3

merge(df,df3,by.x = "node",by.y = "start") %>% 
  select(x,y) %>% 
  rename("xstart"="x",
         "ystart"="y") -> df1.1
merge(df,df3,by.x = "node",by.y = "end" )%>% 
  select(x,y) %>% 
  rename("xend"="x",
         "yend"="y") -> df2.1
df2.1
df1.1
df.1<-cbind(df1.1,df2.1)

ggplot()+
  geom_star(data=df,aes(x=x,y=y,
                        starshape=group,
                        fill=group),
            size=5)+
  theme_bw()+
  geom_segment(data=df.1,aes(x=xstart+0.05,y=ystart,
                             xend=xend-0.05,yend=yend),
               arrow = arrow(length=unit(0.5, "cm")),
               lineend = "round",
               linejoin = "round",
               size=3)