我试图在单个绘图中绘制时间序列数据类型的2个不同的列,但是显示的年份似乎阻碍了图表的查看.如何删除图表中的年份,以便可以清楚地看到图表?

enter image description here The below code is how i created the chart

data('fertil3')
fertil = ts(fertil3, frequency = 1, start = 1913)
plot(x = fertil[,"year"], y = fertil[,"gfr"], type="l", col="red", ylim = c(0, 250), xlab="Time", ylab="")
par(new=TRUE)
plot(x = fertil[,"year"], y = fertil[,"pe_1"], type="l", col="blue", ylim = c(0, 250),xlab="Time", ylab="")

推荐答案

您应该将时间序列对象ts转换为as.numeric,然后它就是一个矢量,并可用于绘制如下所示的线条:

library(wooldridge)
data('fertil3')
fertil = ts(fertil3, frequency = 1, start = 1913)
plot(x = as.numeric(fertil[,"year"]), y = as.numeric(fertil[,"gfr"]), type="l", col="red", ylim = c(0, 250), xlab="Time", ylab="")
par(new=TRUE)
plot(x = as.numeric(fertil[,"year"]), y = as.numeric(fertil[,"pe_1"]), type="l", col="blue", ylim = c(0, 250),xlab="Time", ylab="")

创建于2022-10-15年第reprex v2.0.2

R相关问答推荐

使用R的序列覆盖

保存包含循环和ifelse的函数的输出

通过使用str_detect对具有相似字符串的组进行分组

为什么观察不会被无功值变化触发?

如何在编辑列时更新可编辑数据表,并使用该表在Shiny中执行连续计算

R Sapply函数产生的值似乎与for循环方法略有不同

如何得到每四个元素向量R?

在嵌套列表中查找元素路径的最佳方法

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

从圆到R中的多边形的标绘雷达图

基于Key->Value数据帧的基因子集相关性提取

调换行/列并将第一行(原始数据帧的第一列)提升为标题的Tidyr类似功能?

减go R中列表的所有唯一元素对

删除数据帧中特定行号之间的每第三行和第四行

在不对R中的变量分组的情况下取两行的平均值

快速合并R内的值

如何根据其他列中的两个条件来计算数据帧中的行之间的差异?

按顺序将地块添加到列表

从不同长度的列中随机排序特定数量的元素

将矩阵中特定行的双精度值添加到下一行中