[英]Plot dates on x-axis and y-axis 'timeseries' R
Using sample data below I would like to reproduce the plot (image shown below) at the bottom of this link https://nsidc.org/data/nsidc-0064 using any suitable package in R.
忽略樣本 plot 中的紅線。
df=structure(list(year = c(2006L, 2007L, 2008L, 2009L, 2010L, 2011L,
2012L, 2013L, 2016L, 2017L), day = c(16L, 3L, 25L, 23L, 15L,
22L, 14L, 27L, 27L, 1L), day.month = c("16-May", "03-Jun", "25-May",
"23-Jun", "15-Apr", "22-May", "14-May", "27-May", "27-Mar", "01-May"
)), class = "data.frame", row.names = c(NA, -10L))
任何建議表示贊賞!
嗨,這很棘手,次要 y 軸確實需要一段時間。
這段代碼做了類似的事情,不同之處在於我無法獲得我想要的圖形的原點,軸標簽與點一起,而不是規則間隔。
library(tidyverse)
df=structure(list(year = c(2006L, 2007L, 2008L, 2009L, 2010L, 2011L,
2012L, 2013L, 2016L, 2017L), day = c(16L, 3L, 25L, 23L, 15L,
22L, 14L, 27L, 27L, 1L), day.month = c("16-May", "03-Jun", "25-May",
"23-Jun", "15-Apr", "22-May", "14-May", "27-May", "27-Mar", "01-May"
)), class = "data.frame", row.names = c(NA, -10L))
ggplot() +
geom_line(data = df, aes(x = year, y = day),
group = 1, colour = 'light blue') +
ylab("Day of year") +
theme(axis.line = element_line(colour = "black")) +
geom_line(data = df, aes(x = year, y = mean(day), group = 1), colour = 'black') +
scale_x_continuous(limits = c(2006, 2017), n.breaks = 12) +
scale_y_continuous(limits = c(1, 27),
breaks = df$day,
sec.axis = dup_axis(name = "",
labels = df$day.month)) +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.line = element_line(colour = "black"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.