प्लॉट एक द्विपक्षीय प्लस लाइन ग्राफ तुलना

Question

मैं इस एक के समान एक द्विपक्षीय ग्राफ प्लॉट करने के लिए किया है। मैं 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())