-4

我有这个深度与时间的图： 这个图在五月初有一个奇怪的差距。

在此处输入图像描述

我检查了数据，但没有 NAs 或 Nans 或没有丢失数据。这是一个以 15 分钟为间隔的时间序列

我不能在这里给出数据集，因为它包含 10,000 行。有人可以提出建议吗？

我正在使用以下绘图代码：

   library(zoo)
   z=read.zoo("data.txt", header=TRUE)
   temp=index(z[,1])
   m=coredata(z[,1])
x=0.001
p=rep.int(x,length(temp))
png(filename=paste(Name[k],"_mean1.png", sep=''), width= 3500, height=1600, units="px")
par(mar=c(13,13,5,3),cex.axis= 2.5, cex.lab=3, cex.main=3.5, cex.sub=5)
plot(temp,m, xlab="Time", ylab="Depth",type='l', main=Name[k])
symbols(temp,m,add=TRUE,circles=p, inches=1/15, ann=F, bg="steelblue2", fg=NULL)
dev.off()
4

1 回答 1

7

好的，这是您发布的内容的猜测。

我猜在 5 月初的一段时间内没有数据显示有问题的“差距”突然出现。没有 NA，因为这一时期根本没有任何数据行。这行代码仍然在绘图上绘制了一条细黑线，它将数据中的“差距”联系起来......

plot(temp,m, xlab="Time", ylab="Depth",type='l', main=Name[k])

...但是没有足够近的蓝色符号（圆圈）绘制在一起，使其看起来像一条连续的蓝线。使用以下代码在现有绘图的顶部绘制蓝色符号：

symbols(temp,m,add=TRUE,circles=p, inches=1/15, ann=F, bg="steelblue2", fg=NULL)

我建议不要绘制一条线，然后在其顶部绘制符号，而是绘制一条粗蓝线以开始，例如：

plot(temp,m, xlab="Time", ylab="Depth",type='l', main=Name[k],lwd=5,col="steelblue2")
于 2012-06-29T04:02:42.247 回答