這是我想重現的圖表:

但為此我必須更改年份列,因為在圖表上,x 軸以幾十年為單位。我可以通過什么方式做到這一點?
這就是我從網站 ( 
在第 2 行,我使用了這個輔助函式f()來填充偽年份:
f <- \(x1, x2, n1=nchar(x1)) {
u <- lapply(list(x1, x2), as.character)
s <- c(n1 - nchar(u[[2]]) 1, n1)
as.integer(`substr<-`(u[[1]], s[1], s[2], u[[2]]))
}
您可以自己細化聚合方法,使結果看起來像原來的樣子。
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/419511.html
標籤:
