Ggplot2 में प्लॉट और लेजेंड में क्षैतिज रेखा कैसे जोड़ें

आप ggplot2 में एक प्लॉट में एक क्षैतिज रेखा जोड़ने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं, और फिर लेजेंड में एक तत्व के रूप में क्षैतिज रेखा भी जोड़ सकते हैं:

 library (ggplot2)

#create data frame with values to plot
df <- data. frame (team=rep(c(' A ', ' B '), each= 5 ),
                 assists=c(1, 3, 3, 4, 5, 7, 7, 9, 9, 10),
                 points=c(4, 8, 12, 10, 18, 25, 20, 28, 33, 35))

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff)

क्षैतिज रेखा के केवल y-अवरोधन मान वाला एक अलग डेटा फ़्रेम बनाकर, हम क्षैतिज रेखा को प्लॉट में जोड़ सकते हैं और स्वचालित रूप से इसे लेजेंड में जोड़ सकते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: ggplot2 में प्लॉट और लेजेंड में एक क्षैतिज रेखा जोड़ें

मान लीजिए कि हमारे पास आर में निम्नलिखित डेटा फ्रेम है जिसमें विभिन्न टीमों के बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

 #create data frame
df <- data. frame (team=rep(c(' A ', ' B '), each= 5 ),
                 assists=c(1, 3, 3, 4, 5, 7, 7, 9, 9, 10),
                 points=c(4, 8, 12, 10, 18, 25, 20, 28, 33, 35))

#view data frame
df

   team assists points
1 To 1 4
2 to 3 8
3 to 3 12
4 to 4 10
5 to 5 18
6 B 7 25
7 B 7 20
8 B 9 28
9 B 9 33
10 B 10 35

मान लें कि हम अपनी टीम के आधार पर प्रत्येक खिलाड़ी के लिए बिंदु और सहायता मूल्यों की कल्पना करने के लिए ggplot2 में एक स्कैटरप्लॉट बनाना चाहते हैं, फिर अच्छे और बुरे के बीच अंतर के लिए “सीमा” को परिभाषित करने के लिए y = 22 पर एक क्षैतिज रेखा जोड़ें। खिलाड़ियों।

ऐसा करने के लिए हम निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 library (ggplot2)

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff) 

ध्यान दें कि कथानक के दाईं ओर के लेजेंड में वृत्त हैं जो दर्शाते हैं कि प्लॉट पर कौन से बिंदु किस टीम के हैं और कटऑफ लाइन को दर्शाने के लिए लेजेंड में एक क्षैतिज रेखा भी जोड़ी गई है।

यदि आप लेजेंड में क्षैतिज रेखा कैप्शन को बदलना चाहते हैं, तो बस ब्रेक डेटा फ़्रेम में पंक्तियों के कॉलम में टेक्स्ट को संपादित करें।

उदाहरण के लिए, हम क्षैतिज रेखा के लेबल को “अच्छाई बनाम बुराई सीमा” में बदलने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 library (ggplot2)

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff of Good vs. Bad ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff) 

ध्यान दें कि लेजेंड में क्षैतिज रेखा का लेबल बदल गया है।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि ggplot2 में अन्य सामान्य कार्य कैसे करें:

Ggplot2 में लेजेंड शीर्षक कैसे बदलें
Ggplot2 में लेजेंड का आकार कैसे बदलें
Ggplot2 में लेजेंड स्थिति कैसे बदलें