使用 ggplot & data wrangling 重现绘图

Question

我有一个如下所示的数据集

# # A tibble: 94 × 4
#    type          shortcut    date              time
#    <chr>         <chr>       <date>            <dbl>         
#  1 Three lap      No         2010-08-17         24.24                          
#  2 Three lap      No         2010-08-24         38                             
#  3 Three lap      Yes        2010-08-31         32.4                             
#  4 Single lap     No         2010-09-07         20.6                           
#  5 Single lap     No         2010-09-14         39.03                          

我想重现照片中的情节

我不知道如何重新创建图中的“Race”变量。我试过了，但它不起作用！

newdata <- records %>%
 group_by(type, shortcut) %>%
 mutate(race = case_when( 
                 type == "Three lap" && shortcut == "No" ~ "Three lap with no shortcut",
                 type == "Three lap" && shortcut == "Yes" ~ "Three lap with shortcut",
                 type == "Single lap" && shortcut == "No" ~ "Single lap with no shortcut",
                 type == "Single lap" && shortcut == "Yes" ~ "Single lap with shortcut")) 

ggplot(data = newdata, mapping = aes(x = date, y = time, color = race)) +
  geom_line() + 
  geom_point()

对我应该尝试什么有什么建议吗？

Answer 1

使用& 而不是&&，因为&& 用于标量。此外，这里不需要group_by。

试试-

library(dplyr)
library(ggplot2)

records %>%
  mutate(race = case_when( 
    type == "Three lap" & shortcut == "No" ~ "Three lap with no shortcut",
    type == "Three lap" & shortcut == "Yes" ~ "Three lap with shortcut",
    type == "Single lap" & shortcut == "No" ~ "Single lap with no shortcut",
    type == "Single lap" & shortcut == "Yes" ~ "Single lap with no shortcut",
    TRUE ~ "Single lap with shortcut"))  %>%
  ggplot(aes(x = date, y = time, color = race)) +
    geom_line() + 
    geom_point()