आर ggplot: साजिश

Question

में पिछले एन डेटा बिंदुओं के लिए केवल लेबल लागू करें मैंने प्रत्येक डेटा बिंदु पर लेबल के साथ आर में एक पंक्ति चार्ट (साजिश) बनाया है। बड़ी संख्या में डेटा पॉइंट्स के कारण, साजिश लेबल के साथ पूरी तरह से हो जाती है। मैं केवल अंतिम एन (कहना 4) डेटा बिंदुओं के लिए लेबल लागू करना चाहता हूं। मैंने सबसेट और पूंछgeom_label_repel फ़ंक्शन में कोशिश की है लेकिन उन्हें हमें समझने में कोई त्रुटि संदेश नहीं मिला है। मेरे डेटा सेट में 99 मान हैं, जो 3 समूहों (केपीआई) में फैले हुए हैं।

library(ggplot) 
library(ggrepel) 

data.trend <- read.csv(file=....) 

plot.line <- ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 

    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 


    # Labels defined here 
    geom_label_repel(
    aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
    box.padding = unit(0.35, "lines"), 
    point.padding = unit(0.4, "lines"), 
    segment.color = 'grey50', 
    show.legend = FALSE 
) 

); 

मैं सभी निष्पक्षता, मैं काफी आर के लिए नया हो सकता है कि मैं कुछ बुनियादी याद आती हूँ:

मैं आर में निम्न कोड की है।

अग्रिम धन्यवाद।

Answer 1

सरल दृष्टिकोण केवल अंक आप लेबल करना चाहते हैं शामिल करने के लिए geom_label_repel में data = पैरामीटर सेट करने के लिए है।

यहाँ एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण है:

set.seed(1235) 
data.trend <- data.frame(Version = rnorm(25), Value = rnorm(25), 
         group = sample(1:2,25,T), 
         KPI = sample(1:2,25,T)) 

ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 
    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 
    geom_label_repel(aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
    data = tail(data.trend, 4),     
    box.padding = unit(0.35, "lines"), 
    point.padding = unit(0.4, "lines"), 
    segment.color = 'grey50', 
    show.legend = FALSE) 

दुर्भाग्य से, यह पीछे हटाना एल्गोरिथ्म के साथ थोड़ा खराब करता, नामांकन स्थापन अन्य बिंदुओं जो लेबल नहीं हैं के संबंध में करने से इनकी बनाने (आप देख सकते हैं उपरोक्त आंकड़े में कि कुछ बिंदु लेबल द्वारा कवर किए जाते हैं)।

ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 
    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 
    geom_label_repel(aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
        box.padding = unit(0.35, "lines"), 
        point.padding = unit(0.4, "lines"), 
        show.legend = FALSE, 
        color = c(rep(NA,21), rep('grey50',4)), 
        fill = c(rep(NA,21), rep('lightblue',4))) 

:

तो, एक बेहतर दृष्टिकोण (लेबल छिपाए जाने के लिए दोनों रंग की स्थापना करके और NA को भरने) color और fill उपयोग करने के लिए बस अवांछित लेबल अदृश्य बनाने के लिए है