ลบค่าแกนพล็อต


153

ฉันแค่สงสัยว่ามีวิธีกำจัดค่าแกนไม่ว่าจะเป็นแกน x หรือแกน y ตามลำดับในกราฟ r-plot

ฉันรู้ว่ามันaxes = falseจะกำจัดแกนทั้งหมด แต่ฉันก็แค่อยากจะกำจัดจำนวน

คำตอบ:


195

ลบการกำหนดหมายเลขบนแกน x หรือแกน y:

plot(1:10, xaxt='n')
plot(1:10, yaxt='n')

หากคุณต้องการลบป้ายกำกับด้วย:

plot(1:10, xaxt='n', ann=FALSE)
plot(1:10, yaxt='n', ann=FALSE)

3
แต่โปรดจำไว้ว่าสิ่งเหล่านี้ลบแกนทั้งหมด ... จะไม่มีอะไรเกิดขึ้นนอกจากคุณจะใช้การตั้งค่า bty ที่ทำให้เส้นตรงที่แกนของคุณอยู่ ค่าเริ่มต้นคือ bty = 'o' และโดยปกติจะมีกล่องรอบพล็อตที่แกนจะเป็น แต่ด้วย bty = 'n' จะมีเพียงจุดที่ลอยอยู่ในอวกาศ
จอห์น

66

การใช้กราฟิกพื้นฐานวิธีมาตรฐานในการทำเช่นนี้คือใช้แกน = FALSE จากนั้นสร้างแกนของคุณเองโดยใช้แกน (หรือแกน) ตัวอย่างเช่น,

x <- 1:20
y <- runif(20)
plot(x, y, axes=FALSE, frame.plot=TRUE)
Axis(side=1, labels=FALSE)
Axis(side=2, labels=FALSE)

เทียบเท่าขัดแตะคือ

library(lattice)
xyplot(y ~ x, scales=list(alternating=0))

บวกหนึ่งสำหรับคำอธิบายขัดแตะ!
Zhubarb

19

@Richie Cotton มีคำตอบที่ดีงามด้านบน ฉันสามารถเพิ่มได้ว่าหน้านี้มีตัวอย่างบางส่วน ลองทำสิ่งต่อไปนี้:

x <- 1:20
y <- runif(20)
plot(x,y,xaxt = "n")
axis(side = 1, at = x, labels = FALSE, tck = -0.01)

10

คุณยังสามารถใส่ป้ายกำกับไว้ในพล็อต:

plot(spline(sub$day, sub$counts), type ='l', labels = FALSE)

คุณจะได้รับคำเตือน ฉันคิดว่าเป็นเพราะฉลากเป็นพารามิเตอร์ที่ถูกส่งผ่านไปยังรูทีนย่อยที่พล็อตนั้นทำงาน (แกน?) คำเตือนจะปรากฏขึ้นเนื่องจากไม่ใช่พารามิเตอร์ของฟังก์ชันพล็อตโดยตรง


1

เปลี่ยน axis_colour เพื่อให้ตรงกับพื้นหลังและหากคุณกำลังปรับเปลี่ยนพื้นหลังแบบไดนามิกคุณจะต้องอัปเดต axis_colour พร้อมกัน * รูปภาพที่แชร์แสดงตัวอย่างกราฟ / พล็อตโดยใช้ข้อมูลจำลอง ()

### Main Plotting Function ###
plotXY <- function(time, value){

    ### Plot Style Settings ###

    ### default bg is white, set it the same as the axis-colour 
    background <- "white"

    ### default col.axis is black, set it the same as the background to match
    axis_colour <- "white"

    plot_title <- "Graph it!"
    xlabel <- "Time"
    ylabel <- "Value"
    label_colour <- "black"
    label_scale <- 2
    axis_scale <- 2
    symbol_scale <- 2
    title_scale <- 2
    subtitle_scale <- 2
    # point style 16 is a black dot
    point <- 16 
    # p - points, l - line, b - both
    plot_type <- "b"

    plot(time, value, main=plot_title, cex=symbol_scale, cex.lab=label_scale, cex.axis=axis_scale, cex.main=title_scale, cex.sub=subtitle_scale, xlab=xlabel, ylab=ylabel, col.lab=label_colour, col.axis=axis_colour, bg=background, pch=point, type=plot_type)
}

plotXY(time, value)

ป้อนคำอธิบายรูปภาพที่นี่

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.