每N個月將網格線添加到geom_point圖中，日期為x軸

我有一個資料框，如下所示：

df <- data.frame(list(Name = c("A", "A", "A", "A", "A", 
                                     "B", "B", "B", "B", "B"), 
                            Date_Types = c("Date1", "Date2", 
                                     "Date3","Date4", "Date5", 
                                     "Date1", "Date2", "Date3", 
                                     "Date4", "Date5"), Dates = 
                              structure(c(18903, 18965, 19081, 
                                     19116, 19172, 19083, 19097, 
                                     19219, 19249, 19341), class = 
                                 "Date")))

我想創建一個繪圖并每 3 個月添加一次垂直網格線（所以每年的每個季度）。我有以下代碼：

library(ggplot2)
my_date_format <- function()
{
   function(x)
   {
       m <- format(x,"%b")
       y <- format(x,"%Y")
       ifelse(duplicated(y),m,paste(m,y))
   }
}

ggplot(df, aes(x = Dates, y = Name))   
  theme_classic()   geom_point(aes(shape = Date_Types), size = 8)  
  theme(axis.line.y = element_blank(), axis.ticks = element_blank(),
        axis.title = element_blank(), axis.text = element_text(size=22),
        legend.text = element_text(size=22), legend.title = element_blank())  
  scale_x_date(date_break = "1 month", labels = my_date_format())  
  geom_vline(aes(xintercept= as.Date("2022-05-01")), 
             linetype = "dashed", color = "black", size = 1)

這意味著每年 1 月、4 月、7 月和 10 月的垂直線。所需的輸出如下所示：

uj5u.com熱心網友回復：

使用該lubridate包，創建一個季度序列并將其作為垂直線添加到圖中：

library(lubridate)

...   
geom_vline(xintercept = seq(floor_date(min(df$Dates), unit = "quarter"),
                            ceiling_date(max(df$Dates), unit = "quarter"),
                            by = "1 quarter"))

完整代碼：

df <- data.frame(list(Name = c("A", "A", "A", "A", "A", 
                                     "B", "B", "B", "B", "B"), 
                            Date_Types = c("Date1", "Date2", 
                                     "Date3","Date4", "Date5", 
                                     "Date1", "Date2", "Date3", 
                                     "Date4", "Date5"), Dates = 
                              structure(c(18903, 18965, 19081, 
                                     19116, 19172, 19083, 19097, 
                                     19219, 19249, 19341), class = 
                                 "Date")))
library(ggplot2)
my_date_format <- function()
{
    function(x)
    {
        m <- format(x,"%b")
        y <- format(x,"%Y")
        ifelse(duplicated(y),m,paste(m,y))
    }
}
library(lubridate)
ggplot(df, aes(x = Dates, y = Name))   
geom_vline(xintercept = seq(floor_date(min(df$Dates), unit = "quarter"),
                            ceiling_date(max(df$Dates), unit = "quarter"),
                            by = "1 quarter"),
           color = "grey80")   
theme_classic()   geom_point(aes(shape = Date_Types), size = 8)  
theme(axis.line.y = element_blank(), axis.ticks = element_blank(),
      axis.title = element_blank(), axis.text = element_text(size=12),
      legend.text = element_text(size=22), legend.title = element_blank())  
scale_x_date(date_break = "1 month", labels = my_date_format())  
geom_vline(aes(xintercept= as.Date("2022-05-01")), 
           linetype = "dashed", color = "black", size = 1) 

uj5u.com熱心網友回復：

一種方法是手動添加“網格線”geom_vline和一個您想要網格線的日期向量。您可以手動創建向量或使用動態計算開始和結束季度lubridate。

library(ggplot2)
library(lubridate)

min_date <- lubridate::floor_date(min(df$Dates), unit = "quarter")
max_date <- lubridate::ceiling_date(max(df$Dates), unit = "quarter")

quarters <- seq.Date(min_date, max_date, by = "quarter")

ggplot(df, aes(x = Dates, y = Name))  
  theme_classic()  
  geom_vline(xintercept = quarters, color = "grey92", size = .5)  
  geom_point(aes(shape = Date_Types), size = 8)  
  theme(
    axis.line.y = element_blank(), axis.ticks = element_blank(),
    axis.title = element_blank(), axis.text = element_text(size = 12),
    legend.text = element_text(size = 12), legend.title = element_blank()
  )  
  scale_x_date(date_break = "1 month", labels = my_date_format())  
  geom_vline(aes(xintercept = as.Date("2022-05-01")),
    linetype = "dashed", color = "black", size = 1
  )

uj5u.com熱心網友回復：

您可以data.frame使用日期（從原始資料框生成）創建一個新的并將其提供給geom_vline這樣的：

quarters <- data.frame(
   q = seq.Date(as.Date(ISOdate(min(year(df$Dates)), 1, 1)),
                max(df$Dates),
                "3 months"))

ggplot(df, aes(x = Dates, y = Name))   
  theme_classic()   geom_point(aes(shape = Date_Types))  
  theme(axis.line.y = element_blank(), axis.ticks = element_blank(),
        axis.title = element_blank(), legend.title = element_blank())  
  scale_x_date(date_break = "1 month", labels = my_date_format())  
  geom_vline(aes(xintercept = q), data = quarters,
             linetype = "dashed", color = "black", size = 1)

標籤：r ggplot2

上一篇：當點超出r中ggplot中x軸刻度的限制時，尾隨geom_segment線

下一篇：如何在geom_segment中創建多條帶箭頭的線