R中的绘图线类型

Question

更新：

截至2022年2月28日，这已被确认为苹果操作系统上的一个错误。

更新：

下面是我的sessionInfo。我尝试重新启动了我的RStudio，并尝试了dev.off()，但两者都不起作用。我还在弄奇怪的虚线。

我试过R上的代码(不是RStudio)，虚线仍然是错误的。

> sessionInfo()
R version 4.1.2 (2021-11-01)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Monterey 12.2.1

Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.1/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] compiler_4.1.2 tools_4.1.2   

下面的代码将产生图1。

zeta.ppt <- function(v){
  ppt=function(i){
    result <- numeric(length(i))
    for (j in i){
      if (j < 11) {result[j] <- (11-j)/110}
      else {result[j] <- 3/pi^2/(j-10)^2}
    }
    result
  }
  p <- ppt(1:10000)
  printout <- numeric(length(v))
  for (k in 1:length(v)) {
    printout[k] <- sum(p*(1-p)^v[k])
  }
  printout
}
zeta.sept <- function(v){
  sept=function(i){
    result <- numeric(length(i))
    for (j in i){
      if (j < 11) {result[j] <- (11-j)/110}
      else {result[j] <- 0.5/1.670407*exp(-sqrt(j-10))}
    }
    result
  }
  p <- sept(1:10000)
  printout <- numeric(length(v))
  for (k in 1:length(v)) {
    printout[k] <- sum(p*(1-p)^v[k])
  }
  printout
}
tau.ppt <- function(v){
  v*zeta.ppt(v)
}
tau.sept <- function(v){
  v*zeta.sept(v)
}
plot(log(tau.ppt(1:20000))~log(1:20000), xlim = c(0,10), ylim=c(0, 5), axes = F, ylab = "", xlab = "", type = "l")
lines(log(tau.sept(1:20000))~log(1:20000), lty = 2, type = "l")
box()

​

​

如果你看一下虚线，它的右边部分是不均匀分开的。我如何使它成为一个均匀的虚线，如图2

​

​

谢谢!

Answer 1

我在RStudio中绘制了它，线是分开的(作者要求显示我的图像)。在绘制映像之前，还可以尝试运行dev.off()。

我的RStudio版本：

R version 4.1.2 (2021-11-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 22000)

​

​