बंप चार्ट

Question

में घुमावदार लाइनों का उपयोग करें मैं समय के साथ रैंकिंग दिखाने के लिए एक बाम्प चार्ट (parallel coordinates लेकिन निरंतर एक्स-अक्ष के साथ) बनाने की कोशिश कर रहा हूं। मैं बहुत आसानी से एक सरल-रेखा चार्ट बना सकते हैं:

library(ggplot2) 
set.seed(47) 

df <- as.data.frame(as.table(replicate(8, sample(4))), responseName = 'rank') 
df$Var2 <- as.integer(df$Var2) 

head(df) 
#> Var1 Var2 rank 
#> 1 A 1 4 
#> 2 B 1 2 
#> 3 C 1 3 
#> 4 D 1 1 
#> 5 A 2 3 
#> 6 B 2 4 

ggplot(df, aes(Var2, rank, color = Var1)) + geom_line() + geom_point() 

कमाल। अब, हालांकि, मैं कनेक्टिंग लाइन घुमावदार बनाना चाहता हूँ। प्रति x एक से अधिक y होने के बावजूद, geom_smooth कुछ संभावनाएं प्रदान करता है। loess ऐसा लगता है कि इसे काम करना चाहिए, क्योंकि यह निकटतम को छोड़कर बिंदुओं को अनदेखा कर सकता है। हालांकि, यहां तक ​​सबसे अच्छा मैं अभी भी बहुत से बिंदु याद करते हैं और दूसरों को जहां वह प्रतिक्रिया होना चाहिए overshoots प्राप्त कर सकते हैं में सुधार करने के साथ:

ggplot(df, aes(Var2, rank, color = Var1)) + 
    geom_smooth(method = 'loess', span = .7, se = FALSE) + 
    geom_point() 

मैं अन्य splines के एक नंबर की कोशिश की है ggalt::geom_xspline की तरह, है, लेकिन वे सब अभी भी लक्ष्य के पार चले या अंक याद आती है:

ggplot(df, aes(Var2, rank, color = Var1)) + ggalt::geom_xspline() + geom_point() 

वहाँ वक्र लिए एक आसान तरीका है ये लाइनें? क्या मुझे अपनी खुद की सिग्मोडाइड स्पलीन बनाने की ज़रूरत है? स्पष्ट करने के लिए, मैं D3.js's d3.curveMonotoneX की तरह कुछ है जो हर बिंदु और जिसका स्थानीय मॅक्सिमा और न्यूनतम y मूल्यों से अधिक नहीं है हिट की तलाश में हूँ:

आदर्श रूप में यह शायद प्रत्येक बिंदु पर 0 से ढलान है, भी, लेकिन यह बिल्कुल जरूरी नहीं है।

Answer 1

एक्स-वैल्यू कार्यों के ग्रिड के साथ signal::pchip का उपयोग करके, कम से कम आपके उदाहरण में संख्यात्मक अक्ष के साथ। एक उचित geom_ अच्छा होगा, लेकिन हे ...

library(tidyverse) 
library(signal) 
set.seed(47) 

df <- as.data.frame(as.table(replicate(8, sample(4))), responseName = 'rank') 
df$Var2 <- as.integer(df$Var2) 

head(df) 
#> Var1 Var2 rank 
#> 1 A 1 4 
#> 2 B 1 2 
#> 3 C 1 3 
#> 4 D 1 1 
#> 5 A 2 3 
#> 6 B 2 4 

ggplot(df, aes(Var2, rank, color = Var1)) + 
    geom_line(data = df %>% 
       group_by(Var1) %>% 
       do({ 
       tibble(Var2 = seq(min(.$Var2), max(.$Var2),length.out=100), 
         rank = pchip(.$Var2, .$rank, Var2)) 
       })) + 
    geom_point() 

परिणाम: