Tôi chỉ tự hỏi liệu có cách nào để loại bỏ các giá trị trục, tương ứng là trục x hoặc trục y, trong đồ thị biểu đồ r.
Tôi biết rằng axes = false
sẽ thoát khỏi toàn bộ trục, nhưng tôi chỉ muốn thoát khỏi việc đánh số.
Tôi chỉ tự hỏi liệu có cách nào để loại bỏ các giá trị trục, tương ứng là trục x hoặc trục y, trong đồ thị biểu đồ r.
Tôi biết rằng axes = false
sẽ thoát khỏi toàn bộ trục, nhưng tôi chỉ muốn thoát khỏi việc đánh số.
Câu trả lời:
Xóa đánh số trên trục x hoặc trục y:
plot(1:10, xaxt='n')
plot(1:10, yaxt='n')
Nếu bạn muốn loại bỏ các nhãn là tốt:
plot(1:10, xaxt='n', ann=FALSE)
plot(1:10, yaxt='n', ann=FALSE)
Sử dụng đồ họa cơ sở, cách tiêu chuẩn để thực hiện việc này là sử dụng các trục = FALSE, sau đó tạo các trục của riêng bạn bằng Trục (hoặc trục). Ví dụ,
x <- 1:20
y <- runif(20)
plot(x, y, axes=FALSE, frame.plot=TRUE)
Axis(side=1, labels=FALSE)
Axis(side=2, labels=FALSE)
Mạng tương đương là
library(lattice)
xyplot(y ~ x, scales=list(alternating=0))
@Richie Cotton có một câu trả lời khá hay ở trên. Tôi chỉ có thể thêm rằng trang này cung cấp một số ví dụ. Hãy thử như sau:
x <- 1:20
y <- runif(20)
plot(x,y,xaxt = "n")
axis(side = 1, at = x, labels = FALSE, tck = -0.01)
bạn cũng có thể đặt nhãn bên trong cốt truyện:
plot(spline(sub$day, sub$counts), type ='l', labels = FALSE)
bạn sẽ nhận được một cảnh báo. Tôi nghĩ điều này là do các nhãn thực sự là một tham số được truyền xuống chương trình con mà cốt truyện chạy (trục?). cảnh báo sẽ bật lên vì nó không trực tiếp là một tham số của chức năng cốt truyện.
Thay đổi trục_colour để phù hợp với nền và nếu bạn đang sửa đổi nền động, bạn sẽ cần cập nhật đồng thời trục_colour. * Hình ảnh được chia sẻ hiển thị ví dụ biểu đồ / biểu đồ bằng cách sử dụng dữ liệu giả định ()
### 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)