R 如何设置 x 和 y 轴值？

Question

我正在使用这个 R 脚本来绘制这些趋势：

archiveorg <- c(9,10,9,10,11,11,10,12,11,10,14,13,17,17,16,13,17,16,18,15,16,16,17,18)
waybacksafn <- c(2,2,4,2,2,2,2,2,1,2,3,2,4,3,3,4,3,3,4,4,1,2,5,7)
waybacknil <- c(5,0,0,0,0,3,3,1,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2)

months <-c(1:24)
df <- data.frame(months,archiveorg,waybacksafn,waybacknil)
plot(df$archiveorg,type='n',xlim=c(1,24),ylim=c(1,19),xlab='tempo', ylab='#siti safe csp')
lines(df$archiveorg, type="l", col="red")
lines(df$waybacksafn, type="l", col="blue")
lines(df$waybacknil, type="l", col="black")

axis(1, at=1:24, lab=df$months)
axis(2, las=1, at=seq(1, 19))
legend(1, 19, legend=c("archiveorg", "waybacksafn","waybacknil"),
col=c("red", "blue","black"), lty=1, cex=0.8)

结果如下：

在 x 轴上，我有从 1 到 24 的值（这些代表从 2018 年到 2019 年底的月份）。现在我想在我的 x 轴上只有 2018 年和 2019 年（2018 年在位置 0，2019 年在位置 11）。

在 y 轴上我需要类似的东西.. 值从 1 到 19 但我只需要在我的轴上有 1、10 和 19 而不是所有值。

我该如何更改我的脚本？

Answer 1

您需要绘制不带坐标轴的图并指定您希望中断的位置以及您希望它们的标签是什么：

plot(df$archiveorg,type = 'n', xlim = c(0, 24), ylim = c(0, 19),
     xlab='tempo', ylab='#siti safe csp', yaxt = 'n', xaxt = 'n')
lines(df$archiveorg, type = "l", col = "red")
lines(df$waybacksafn, type = "l", col = "blue")
lines(df$waybacknil, type = "l", col = "black")

axis(1, at = c(0, 11), lab = c(2018, 2019))
axis(2, las = 1, at = c(1, 10, 19))
legend(1, 19, legend = c("archiveorg", "waybacksafn","waybacknil"),
       col=c("red", "blue","black"), lty = 1, cex = 0.8)

不用说，ggplot:

library(tidyverse)
library(lubridate)

df %>% 
  pivot_longer(-1) %>%
  mutate(month = round_date(as.Date("2017-12-01") + 30 * months, "month")) %>%
  ggplot(aes(month, value, colour = name)) + 
  geom_line(size = 1) +
  scale_colour_manual(values = c("red3", "blue4", "cyan3"), name = NULL) +
  scale_x_date(date_breaks = "years", date_labels = "%Y") +
  theme_bw() +
  theme(legend.position = c(0.2, 0.8),
        legend.background = element_rect(color = "black"))

R 如何设置 x 和 y 轴值？

R how can I set x and y axes values?

plot

r