使用xts对象添加点，图例和文本到图表

我开始对一对股票（对交易）进行一些分析，这里是我为生成图表（pairs.report - 下面列出）而编写的函数。使用xts对象添加点，图例和文本到图表

我需要在一个绘图中绘制三条不同的线。我列出的函数做我想做的事情，但是如果我想在x轴（时间线）中进行良好的自定义，它将需要一些工作。实际上，它仅在X轴上打印年份（10年的数据）或月份（6个月的数据），没有格式化蜱。

如果我使用XTS对象，也就是说，如果我用

plot(xts-object-with-date-asset1-asset2, ...)

，而不是

plot(date, asset2, ...)

我得到一个很好的格式化的x轴向右走（与电网和盒子一起），但随后使用诸如points（），text（），lines（）等函数添加到绘图失败。我想points.xts（）和text.xts（）不会很快出来。

我想要xts对象的方便，但我也需要对我的情节进行细致的控制。那么我的工作流程应该如何？我是否必须坚持使用基本图形并手动进行所有定制？或者有什么办法可以让我的XT工作？

我知道格和ggplot2，但我现在不想使用它们。这里是我提到的功能（任何批评/改进代码的建议是欢迎） -

library(xts) 

pairs.report <- function(asset1, asset2, dataset) { 

#create data structures 
attach(dataset) 
datasetlm <- lm(formula = asset1 ~ asset2 + 0, data = dataset) 
beta = coef(datasetlm)[1] 

#add extra space to right margin of plot within frame 
par(mar=c(5, 4, 4, 4) + 0.1) 

# Plot first set of data and draw its axis 
ylim <- c(min(asset2,asset1), max(asset2,asset1)) 
plot(date, 
    asset2, 
    axes=T, 
    ylim=ylim, 
    xlab="Timeline", 
    ylab="asset2 and asset1 equity", 
    type="l", 
    col="red", 
    main="Comparison between asset2 and asset1") 
lines(date, asset1, col="green") 
box() 
grid(lwd=3) 

# Allow a second plot on the same graph 
par(new=T) 

# Plot the second plot and 
ylim <- c(min(asset1-beta*asset2), max(asset1-beta*asset2)) 
plot(date, 
    asset1-beta*asset2, 
    xlab="", ylab="", 
    ylim=ylim, 
    axes=F, 
    type="l", 
    col="blue") 

#put axis scale on right 
axis(side=4, 
    ylim=ylim, 
    col="blue", 
    col.axis="blue") 
mtext("Residual Spread",side=4,col="blue",line=2.5) 

abline(h=mean(asset1-beta*asset2)) 
}

来源

2011-08-11 Soumendra

也许我在这个线程中对自己问题的回答也可以帮助你： http://stackoverflow.com/questions/7009711/how-to-get-years-from-a-time-series-index-when - 基础时间序列 - 是米至少你应该得到其他时间跨度只有10年跨度。当然，蜱也是一样。 –

'plot.zoo'可与xts对象一起使用，并为您提供更精细的控制。 ''plot.zoo'有很多例子。 –

plot.xts是基本绘图功能，这意味着你可以使用points.default()和lines.default()如果使用相同的x参数作为plot.xts使用。但这不是必要的。它已经在xt和zoo包中被哈希了，因为当这些包被加载，并且你执行methods(lines)和方法（点）时，你看到这些函数已经可用。在？plot.zoo页面上记录了points.zoo。

来源

2011-08-11 12:39:53

lines.default在执行时并未对剧情做任何事情。我首先使用plot（petroxts）绘制该xts对象中的第一个时间序列，然后在par（new = T）执行lines.default（petro $ date，petroxts $ hpcl，col =“green”）时，提示符为没有任何消息的情况下返回，并且剧情中没有任何反应那么如何使用lines.default？ – Soumendra

您可能正在经历这样的事实：因素和时间日期以用户可能不明显的方式表示。经常发生的情况是，绘图函数会执行一个隐含的as.numeric（），并且由于这些点位于绘图区域之外，绘图似乎不会出现。由于缺乏关于您的问题中“数据集”对象的详细信息，因此无法提供更具体的答案。如果它是动物园/ xts对象，那么“日期”可能在对象的索引组件中。 –

使用xts对象添加点，图例和文本到图表

回答

相关问题