आर में बारप्लॉट के लिए एक्स अक्ष लेबल घूर्णन

Question

मैं एक्स अक्ष लेबल प्राप्त करने की कोशिश कर रहा हूं बिना किसी भाग्य के एक बारप्लेट पर 45 डिग्री घुमाया जाना चाहिए। यह मेरे द्वारा नीचे दिया गया कोड है:

barplot(((data1[,1] - average)/average) * 100,
        srt       = 45,
        adj       = 1,
        xpd       = TRUE,
        names.arg = data1[,2],
        col       = c("#3CA0D0"),
        main      = "Best Lift Time to Vertical Drop Ratios of North American Resorts",
        ylab      = "Normalized Difference",
        yaxt      = 'n',
        cex.names = 0.65,
        cex.lab   = 0.65)

Answer 1

प्रत्येक व्यक्ति के परिणाम के अनुसार प्रति वर्ष:

यहाँ एक तरह का हैकिश तरीका है। मुझे लगता है कि वहाँ एक आसान तरीका है। लेकिन आप बार स्थितियों को बार स्थिति से बचाकर बार लेबल्स और लेबल्स के प्लॉट टेक्स्ट को दबा सकते हैं और barplotऊपर और नीचे थोड़ा ट्वीक कर सकते हैं। यहाँ mtcars डेटा सेट के साथ एक उदाहरण दिया गया है:

x <- barplot(table(mtcars$cyl), xaxt="n")
labs <- paste(names(table(mtcars$cyl)), "cylinders")
text(cex=1, x=x-.25, y=-1.25, labs, xpd=TRUE, srt=45)

Comments

चेतावनी : यदि आप उपयोग कर रहे हैं beside = TRUE, तो आप शायद colMeans(x)इसके बजाय उपयोग xकरना चाहते हैं यदि आप प्रति समूह केवल एक लेबल चाहते हैं।

— माइकलक्रिको

Answer 2

वैकल्पिक पैरामीटर लास = 2 का उपयोग करें।

barplot(mytable,main="Car makes",ylab="Freqency",xlab="make",las=2)

Comments

मेरा मानना ​​है कि यह स्वीकृत उत्तर होना चाहिए। प्रश्न में उपयोग किए गए बेस बारप्लॉट फ़ंक्शन के पैरामीटर का पूरी तरह से उपयोग करता है।

— jwhaley58 15

सहमत, यह स्वीकृत उत्तर होना चाहिए। बहुत अधिक संक्षिप्त समाधान

— 13

मार्जिन को समायोजित करने के लिए par (mar = c (15,4,4,2)) का उपयोग करें ताकि ऊर्ध्वाधर लेबल आकृति से क्रॉप न हों।

— स्टीवन मैगाना-ज़ूक

मैं व्यक्तिगत रूप से इस दृष्टिकोण को पसंद करता हूं, लेकिन इसने ओपी के मूल प्रश्न का उत्तर नहीं दिया: मैं एक्स अक्ष लेबल को एक बारप्लेट पर 45 डिग्री घुमाए जाने की कोशिश कर रहा हूं

— arpieb

आप देख सकते हैं कि 'मेक' लेबल द्वारा कवर किया गया है। इसे कैसे जोड़ेंगे?

— बार्टुज़ि

Answer 3

बेस ग्राफिक्स का उपयोग करके एक्स अक्ष लेबल को कोण के बराबर या 90 डिग्री से छोटा घुमाएं। R FAQ से अनुकूलित कोड :

par(mar = c(7, 4, 2, 2) + 0.2) #add room for the rotated labels

#use mtcars dataset to produce a barplot with qsec colum information
mtcars = mtcars[with(mtcars, order(-qsec)), ] #order mtcars data set by column "qsec"

end_point = 0.5 + nrow(mtcars) + nrow(mtcars) - 1 #this is the line which does the trick (together with barplot "space = 1" parameter)

barplot(mtcars$qsec, col = "grey50", 
        main = "",
        ylab = "mtcars - qsec", ylim = c(0,5 + max(mtcars$qsec)),
        xlab = "",
        space = 1)
#rotate 60 degrees (srt = 60)
text(seq(1.5, end_point, by = 2), par("usr")[3]-0.25, 
     srt = 60, adj = 1, xpd = TRUE,
     labels = paste(rownames(mtcars)), cex = 0.65)

Answer 4

आप इस्तेमाल कर सकते हैं

par(las=2) # make label text perpendicular to axis

यह यहाँ लिखा है: http://www.statmethods.net/graphs/bar.html

Answer 5

आप बस निम्नलिखित फ़ंक्शन में अपना डेटा फ़्रेम पास कर सकते हैं :

rotate_x <- function(data, column_to_plot, labels_vec, rot_angle) {
    plt <- barplot(data[[column_to_plot]], col='steelblue', xaxt="n")
    text(plt, par("usr")[3], labels = labels_vec, srt = rot_angle, adj = c(1.1,1.1), xpd = TRUE, cex=0.6) 
}

उपयोग:

rotate_x(mtcars, 'mpg', row.names(mtcars), 45)

आप आवश्यकतानुसार लेबल के रोटेशन कोण को बदल सकते हैं ।

Answer 6

आप एक अतिरिक्त परत जोड़कर एक्स-अक्ष लेबल को घुमाने के लिए ggplot2 का उपयोग कर सकते हैं

theme(axis.text.x = element_text(angle = 90, hjust = 1))

Answer 7

आंद्रे सिल्वा का जवाब मेरे लिए बहुत अच्छा काम करता है, "बारप्लॉट" लाइन में एक कैविएट के साथ:

barplot(mtcars$qsec, col="grey50", 
    main="",
    ylab="mtcars - qsec", ylim=c(0,5+max(mtcars$qsec)),
    xlab = "",
    xaxt = "n", 
    space=1)

"Xaxt" तर्क पर ध्यान दें। इसके बिना, लेबल को दो बार खींचा जाता है, पहली बार 60 डिग्री रोटेशन के बिना।

Answer 8

बार भूखंडों के दस्तावेज़ीकरण में हम अतिरिक्त मापदंडों ( ...) के बारे में पढ़ सकते हैं जिन्हें फ़ंक्शन कॉल में पास किया जा सकता है:

...    arguments to be passed to/from other methods. For the default method these can 
       include further arguments (such as axes, asp and main) and graphical 
       parameters (see par) which are passed to plot.window(), title() and axis.

ग्राफ़िकल मापदंडों के प्रलेखन (प्रलेखन par) में हम देख सकते हैं:

las
    numeric in {0,1,2,3}; the style of axis labels.

    0:
      always parallel to the axis [default],

    1:
      always horizontal,

    2:
      always perpendicular to the axis,

    3:
      always vertical.

    Also supported by mtext. Note that string/character rotation via argument srt to par does not affect the axis labels.

इसीलिए पास las=2होना सही उत्तर है।