时间戳

首页 > 解决方案 > X 轴标签未在 R 上的基础绘图系统上打印

r - X 轴标签未在 R 上的基础绘图系统上打印

问题描述

“R 版本 4.0.3 (2020-10-10)”

我有一些时间序列数据，我试图查看消费随时间的变化。这是一个代表。

set.seed(1)
date <-  seq(as.POSIXct('2010-01-01'),as.POSIXct('2010-04-10'),by=86400)
Consumption <- rnorm(99)


Data <- data.frame(date,Consumption)


plot(Data$Consumption~Data$date,type='l') # X-axis labels and ticks not printing
par(yaxt='n')
axis(side = 2,at=seq(-3,3,0.5),labels = seq(-3,3,0.5)) # This works on the first  plot on the y axis



plot(Data$date~Data$Consumption,type='l') # X-axis refusing to print despite assigning it.
par(xaxt='n')
axis(side = 1,at=seq(-3,3,0.5),labels = seq(-3,3,0.5)) # This works on the first  plot

初始输出的图形plot()正是我想要的，除了它没有任何 x 轴标签。

我将 Base Plotting 用于作业而不是日常使用，并且通常会使用 ggplot。我一直在试图弄清楚为什么 x 轴没有绘制。最初我认为问题出在日期变量上，并尝试使用lubridate::ymd(). 然而，当我开始为这个问题制作上述代表时，X 轴标签和刻度很清楚，因为整个没有打印。在第二个图中，我将消费变量放在 x 轴上。我惊讶地发现日期在 Y 轴上整齐地打印。

我究竟做错了什么？

标签： rplotaxis-labels

解决方案

我可以很容易地看到两个问题：

  1. 更改：Consumption <- rnorm(99) 到 Consumption <- rnorm(100) 以匹配日期列。

  2. 问题在于'par'。当一个块中有多个绘图时，与 ggplot 不同，绘图无法正确处理。删除 par 并在下面运行它应该可以工作

    set.seed(1)
    date <-  seq(as.POSIXct('2010-01-01'),as.POSIXct('2010-04-10'),by=86400)
    Consumption <- rnorm(100)
    Data <- data.frame(date,Consumption)
    plot(Data$Consumption~Data$date,type='l') 
    plot(Data$date~Data$Consumption,type='l')

请注意，无论何时定义 par 以及在两个不同的块中运行每个图时，标签都会正确显示。你不会有任何问题。但是，当您将两个图表绘制在一个块中时，如果您有标准杆，您总是会遇到问题。

推荐阅读