我正在尝试绘制一个包含x轴上显示的所有x值的图。
m <- lm(MOCtfd_duration ~ CallMonth)
n <- lm(MTCtfd_duration ~ CallMonth)
summary(m)
summary(n)
title = OpName[1]
plot(MOCtfd_duration ~ CallMonth,type="l", col="red", ylim = c(600,1700), ylab="Duration", las=2, main = title )
lines(MTCtfd_duration ~ CallMonth, col="blue")
axTicks(CallMonth)
abline(m, col="darkred")
abline(n, col="darkblue")
x轴项目的值为:
> CallMonth
[1] "2014-05-01" "2014-04-01" "2014-03-01" "2014-02-01" "2014-01-01" "2013-12-01" "2013- 11-01" "2013-10-01" "2013-09-01" "2013-08-01"
[11] "2013-07-01" "2013-06-01" "2013-05-01" "2013-04-01" "2013-03-01" "2013-02-01" "2013-01-01" "2012-12-01" "2012-11-01" "2012-10-01"
[21] "2012-09-01" "2012-08-01" "2012-07-01" "2012-06-01"
但我只获得了两个价值观:2013年和2014年,尽管所有的观点都正确地反映在情节中;这本身就令人费解,因为这些不是数据中的值。
我已尝试使用和不使用axTicks()(文档似乎非常有限),但这似乎没有任何效果。
有人可以指出我的基本错误!
答案 0 :(得分:0)
使用xaxt="n"
使用axis.Date
选择边,并使用pretty
确定点数,频率
使用格式"%m-%Y
作为轴的格式
使用las=2
将新轴项目旋转90度:
plot(MOCtfd_duration~CallMonth,type =“l”,col =“red”,ylim = c(0,max(MOCtfd_duration)* 1.3),xaxt =“n”,ylab =“Duration”,xlab =“ “,主要=标题) 行(MTCtfd_duration~CallMonth,col =“blue”) abline(m,col =“darkred”) abline(n,col =“darkblue”) 图例(min(CallMonth),max(MOCtfd_duration)* 1.15,c(“MOC”,“MTC”),fill = c(“red”,“blue”)) axis.Date(side = 1,at = pretty(CallMonth,min.n = 6,by =“month”),format =“%m-%Y”,las = 2)