绘制二分加折线图比较

Question

我必须绘制一个类似于此的二分图：

我用两种不同的排名方法计算出了 2 个排名列表。我想绘制这些数据，以便对 2 个排名列表的相似性进行粗略的定性处理。

我需要显示的数据类似于这些命名向量：

rankMathodA = c(1.5, 4, 7, 3, 4.2)
names(rankMathodA) = c("Team1", "Team2", "Team3", "Team4", "Team5")
rankMathodA
#Team1 Team2 Team3 Team4 Team5 
#  1.5   4.0   7.0   3.0   4.2 

rankMathodB = c(1.7, 3.5, 6.2, 3.9, 4.1)
names(rankMathodB) = c("Team1", "Team2", "Team3", "Team4", "Team5")
rankMathodB
#Team1 Team2 Team3 Team4 Team5 
#  1.7   3.5   6.2   3.9   4.1

Answer 1

这是对数据进行一些重塑的 ggplot 方法的开始。标签（使用 geom_text 单独添加以控制文本放置。

library(reshape2)
library(ggplot2)

#create a dataframe with all necessary variables
dat <- data.frame(team=c("Team1", "Team2", "Team3", "Team4", "Team5"),
                  rankA=c(1.5, 4, 7, 3, 4.2),
                  rankB=c(1.7, 3.5, 6.2, 3.9, 4.1))
#turn to long
dat_m <- melt(dat,id.var="team")

#plot
ggplot(dat_m, aes(x=variable, y=value, group=team)) +
  geom_line() +
  geom_text(data=dat_m[dat_m$variable=="rankA",],aes(label=team),hjust=1.1) +
  geom_text(data=dat_m[dat_m$variable=="rankB",],aes(label=team),hjust=-0.1) +
  geom_vline(xintercept = c(1,2)) +
  #hide axis, labels, grids.
  theme_classic() +
  theme(
    axis.title = element_blank(),
    axis.line = element_blank(),
    axis.text = element_blank(),
    axis.ticks = element_blank())

绘制二分加折线图比较

Plot a bipartite plus line graph comparison

r

graph

igraph

bipartite