输入“ h”图可以得到积分，而不是垂直线（R）

Question

您好，我的问题是昨天我创建了一个“ h”类型的图，它给了我一个垂直线的图，非常适合绘制股票收益。然后今天，我尝试再次运行它，现在该图为我提供了点数，而不是垂直线...知道吗？

我知道这听起来有些怪异，但这不是我第一次尝试运行以前保存在R中的代码，而且它不再起作用了！真的很令人沮丧，但我想我可能会缺少一些东西...

我尝试重新启动计算机并再次运行代码，但是仍然保持不变，我尝试将类型更改为“ l”以查看是否可以工作，但是我仍然得到点而不是行

代码：

PSet1_W2019 <- read.table("PSet1_W2019.txt",header = TRUE, skipNul = T )
colnames(PSet1_W2019)[colnames(PSet1_W2019)=="ÿþ"] <- "...1"
PSet1_W2019$TSXr<- c(0, diff(PSet1_W2019$TSX)/PSet1_W2019$`TSX`[-length(PSet1_W2019$`TSX`)])

plot(PSet1_W2019$...1,PSet1_W2019$TSXr,xlab="Trading day", ylab="TSX returns", type = 'h')
legend("topright", legend=c("mean", "median","10e quantiles","25e quantiles","75e quantiles","90e quantiles"),
       col=c("red", "orange","darkblue","blue","magenta","darkmagenta"),lty = 1,cex = 0.7)

数据（PSet1_W2019）

原始数据-https://www.dropbox.com/s/aq7kga9m09du1kh/PSet1_W2019.txt?dl=0 dput（head（PSet1_W2019））-https://www.dropbox.com/s/4huw8ma3wvryh3v/dput%28%20%29.txt?dl=0

Picture: What i get(without the horizontal lines though)