做雙圖例時如何添加條件陳述句

我嘗試為水平線和垂直線繪制帶有圖例的圖。現在我想測驗一下是否可以if根據事件狀態添加陳述句。

對于df兩者Delay和Sick，我的代碼有效。但是如果我想修改我的繪圖部分，以便我可以在df可能只有Delayor 的地方使用它Sick，我的geom_vline和scale_linetype_manual部分應該怎么做？例如，如果我想在 df2 上使用我的代碼。

df<-structure(list(Day = c(0L, 0L, 0L, 1L, 1L, 1L, 8L, 8L, 8L, 15L, 
15L, 15L, 22L, 22L, 22L, 27L, 29L, 29L, 29L, 36L, 36L, 36L, 43L, 
43L, 43L, 43L, 43L, 43L), Subject = c("ELA", "Math", "Art", "Math", 
"Art", "ELA", "ELA", "Math", "Art", "ELA", "Math", "Art", "ELA", 
"Math", "Art", NA, "ELA", "Math", "Art", "ELA", "Math", "Art", 
"Art", "Art", "Math", "Math", "ELA", "ELA"), Score = c(73L, 157L, 
75L, 111L, 82L, 69L, 78L, 131L, 93L, 58L, 109L, 99L, 79L, 131L, 
84L, NA, 67L, 106L, 90L, 75L, 123L, 95L, 122L, 122L, 137L, 137L, 
83L, 83L), Event = c(NA, NA, NA, "Delay", "Delay", "Delay", NA, 
NA, NA, NA, NA, NA, NA, NA, NA, "Sick", NA, NA, NA, NA, NA, NA, 
"Sick", "Delay", "Sick", "Delay", "Sick", "Delay")), class = "data.frame", row.names = c(NA, 
-28L))

ggplot(data =df) 
    geom_line(data=df[!is.na(df$Score),],aes(x = Day, y = Score, color=Subject),size=0.8) 
        scale_colour_manual(breaks = c("ELA", "Math", "Art"),
                        values=c(ELA="#cc0022",Math="#70ad47", Art="#fd9300")) 
    geom_vline(data=df[(!is.na(df$Event)&df$Event=="Delay"),], aes(xintercept=jitter(Day), linetype="Delay"), color="black", size=0.4) 
geom_vline(data=df[(!is.na(df$Event)&df$Event=="Sick"),], aes(xintercept=jitter(Day), linetype="Sick"), color="purple", size=0.4) 
scale_linetype_manual(name = 'Event',
                        values = c('Delay' = 1,
                                   'Sick' = 1),
                        guide = guide_legend(override.aes = list(colour = c("black",
                        "purple"))))

df2 <-structure(list(Day = c(0L, 0L, 0L, 1L, 1L, 1L, 8L, 8L, 8L, 15L, 
15L, 15L, 22L, 22L, 22L, 27L, 29L, 29L, 29L, 36L, 36L, 36L, 43L, 
43L, 43L, 43L, 43L, 43L), Subject = c("ELA", "Math", "Art", "Math", 
"Art", "ELA", "ELA", "Math", "Art", "ELA", "Math", "Art", "ELA", 
"Math", "Art", NA, "ELA", "Math", "Art", "ELA", "Math", "Art", 
"Art", "Art", "Math", "Math", "ELA", "ELA"), Score = c(73L, 157L, 
75L, 111L, 82L, 69L, 78L, 131L, 93L, 58L, 109L, 99L, 79L, 131L, 
84L, NA, 67L, 106L, 90L, 75L, 123L, 95L, 122L, 122L, 137L, 137L, 
83L, 83L), Event = c(NA, NA, NA, "Delay", "Delay", "Delay", NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, "Delay", NA, "Delay")), class = "data.frame", row.names = c(NA, 
-28L))

我正在考慮使用這樣的東西（它們不起作用）

df<-df2
ggplot(data =df) 
    geom_line(data=df[!is.na(df$Score),],aes(x = Day, y = Score, color=Subject),size=0.8) 
        scale_colour_manual(breaks = c("ELA", "Math", "Art"),
                        values=c(ELA="#cc0022",Math="#70ad47", Art="#fd9300")) 
   {if (grepl("Delay", df$Event)) geom_vline(data=df[(!is.na(df$Event)&df$Event=="Delay"),], aes(xintercept=jitter(Day), linetype="Delay"), color="black", size=0.4)} 
   {if (grepl("Sick", df$Event)) geom_vline(data=df[(!is.na(df$Event)&df$Event=="Sick"),], aes(xintercept=jitter(Day), linetype="Sick"), color="purple", size=0.4)} 
scale_linetype_manual(name = 'Event',
                        values = c('Delay' = 1,
                                   'Sick' = 1),
                        guide = guide_legend(override.aes = list(colour = c("black",
                        "purple"))))

代碼塊 3：

ggplot(data =df) 
    geom_line(data=df[!is.na(df$Score),],aes(x = Day, y = Score, color=Subject),size=0.8) 
        scale_colour_manual(breaks = c("ELA", "Math", "Art"),
                        values=c(ELA="#cc0022",Math="#70ad47", Art="#fd9300")) 
 geom_vline(data=df[(!is.na(df$Event)&df$Event=="Delay"),], aes(xintercept=jitter(Day),linetype="Delay"), color="black", size=0.4) 
# geom_vline(data=df[(!is.na(df$Event)&df$Event=="Sick"),], aes(xintercept=jitter(Day) ), color="purple", size=0.4) 
scale_linetype_manual(name = 'Event',
                      values = c(
        "Delay" = 1,
        "Sick" = 1
      ),
                        guide = guide_legend(override.aes = list(colour = c("black",
                        "purple"))))

uj5u.com熱心網友回復：

使用 anif添加圖層，您就走在正確的軌道上。與其將條件放在 ggplot 代碼中，我更喜歡在 ggplot 代碼之外設定條件層，最好將所有內容都放在函式中。

這樣做，實作所需結果的一種選擇可能如下所示：

編輯此外，linetype您可以使用該ggnewscale包添加第二個顏色圖例，而不是通過aes使用 hack來獲得單獨的圖例。一個好處是我們不需要擺弄通過override.aes，也不需要額外的條件來管理不同的情況：

library(ggplot2)

plot_fun <- function(df) {
  is_delay <- !is.na(df$Event) & df$Event == "Delay"
  is_sick <- !is.na(df$Event) & df$Event == "Sick"
  
  layer_delay <- if (any(is_delay)) geom_vline(data = df[is_delay, ], aes(xintercept = jitter(Day), color = "Delay"), size = 0.4)
  layer_sick <- if (any(is_sick)) geom_vline(data = df[is_sick, ], aes(xintercept = jitter(Day), color = "Sick"), size = 0.4)
  
  ggplot(data = df)  
    geom_line(data = df[!is.na(df$Score), ], aes(x = Day, y = Score, color = Subject), size = 0.8)  
    scale_colour_manual(
      breaks = c("ELA", "Math", "Art"),
      values = c(ELA = "#cc0022", Math = "#70ad47", Art = "#fd9300"),
    )  
    ggnewscale::new_scale_color()  
    layer_delay  
    layer_sick  
    scale_colour_manual(
      name = "Event",
      values = c(Delay = "black", Sick = "purple"),
      limits = force
    )
}

plot_fun(df2)

標籤：r

上一篇：考慮到R中串列中的先前值，如何替換一個值？

下一篇：拆分列的值并僅將數值存盤在不同的列中