R 闪亮日期仅以 5 年为间隔显示

Question

这是我在 R 图中使用的日期

dates <- c("2001", "2002", "2003", "2004", "2005", "2006", "2007", "2008", 
           "2009", "2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017")

当我绘制图表时，这里是代码，日期仅以 5 年为间隔显示，而不是每年显示。

  plot(x = dates, y=Comp_selected_DF[idx_country, 2:18], type = "l"
         , xlab = "", ylab = "", col="grey20", ylim = c(-2, overall_max_z), lwd=3)
    mtext("Financial Vulnerability Indicator", side=3, adj=0, line=1.2, cex=2, font=2)
    mtext("Z-Score", side=3, adj=0, line=0.1, cex=1, font=0.5)
    lines(dates, Bank_selected_DF[idx_country, 2:18], col="green2", lwd=3)
    lines(dates, Curr_selected_DF[idx_country, 2:18], col="purple", lwd=3)
    lines(dates, Sover_selected_DF[idx_country, 2:18], col="red", lwd=3)
    lines(dates, Sudden_selected_DF[idx_country, 2:18], col="orange", lwd=3)
    legend(
      "bottom", 
      lty=c(1,1,1,1), 
      col=c("grey20", "green2", "purple", "red", "orange"), 
      legend = c("Composite", "Banking", "Currency", "Sovereign", "Sudden Stop")
      ,ncol=5
    )

编辑：这是我在运行您的代码时得到的。似乎传说现在已经传开了。

Answer 1

在基本图形中，如果您想对轴进行精细控制，可以使用整数来绘制数据并明确设置标签。

进行了以下更改：

• 伪造一些数据进行实验
• 创建了一个新的整数值 x 轴范围 (1:17)
• 使用axis 调用将dates 映射到这些值
• 按照 Ryan Morton 的建议，使用 las=2 将 x 轴标签旋转 90 度。
• 使用lwd 参数将图例中的线型设置为3（如lines）。

代码如下：

dates <- c("2001", "2002", "2003", "2004", "2005", "2006", "2007", "2008", 
           "2009", "2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017")

# fake up some data
set.seed(123)
gendf <- function(){
  cname <- c("USA","Mexico","Canada")
  df <- data.frame(dum=1:18)
  for (i in 1:3){
    df[[cname[i]]] <- cumsum(rnorm(18,1,1))
  }
  df$dum <- NULL
  rownames(df) <- c("country",dates)
  ndf <- as.data.frame(t(df))
  ndf$country <- cname
  ndf
}
Comp_selected_DF <- gendf()
Bank_selected_DF <- gendf()
Curr_selected_DF <- gendf()
Sover_selected_DF <- gendf()
Sudden_selected_DF <- gendf()

overall_max_z <- max(Comp_selected_DF[,2:18])
idx_country <- 1


# Now plot it out
xvals <- 1:17   # our new xvalues (instead of dates)

plot(x = xvals, y=Comp_selected_DF[idx_country, 2:18], type = "l"
     , xlab = "", ylab = "", col="grey20", ylim = c(-2, overall_max_z), lwd=3,las=2)
mtext("Z-Score", side=3, adj=0, line=0.1, cex=1, font=0.5)
axis(1,at=xvals,label=dates, cex.axis=1, las=2)
mtext("Financial Vulnerability Indicator", side=3, adj=0, line=1.2, cex=2, font=2)
 lines(xvals, Bank_selected_DF[idx_country, 2:18], col="green2", lwd=3)
 lines(xvals, Curr_selected_DF[idx_country, 2:18], col="purple", lwd=3)
 lines(xvals, Sover_selected_DF[idx_country, 2:18], col="red", lwd=3)
 lines(xvals, Sudden_selected_DF[idx_country, 2:18], col="orange", lwd=3)
 legend(
   "bottom", 
   lty=c(1,1,1,1), 
   lwd=c(3,3,3,3), 
   col=c("grey20", "green2", "purple", "red", "orange"), 
   legend = c("Composite", "Banking", "Currency", "Sovereign", "Sudden Stop")
   ,ncol=5
 )

这就是它的外观：