小编bth*_*ead的帖子

最近我被迫将 R 更新到版本 4.05，从那时起我在 ggplot 中出现了意外的行为。我希望 ggplot 隐藏图例中未使用的因子水平。这应该与以下代码一起使用。它在我的旧 R 版本中确实有效。

有谁知道，我必须在 R 4.05 中更改什么？在此示例中，我希望仅在图例中看到“VC”（红色）。

library(tidyverse)

mycols <- setNames(c('red' , 'blue') ,
                   c('VC' , 'OJ'))

ToothGrowth %>% filter(supp == 'VC') %>%
ggplot(aes(x=len , y = supp)) +
  geom_col(aes(fill = supp)) +
  scale_fill_manual(values = mycols , drop = TRUE)

我有一个带有一系列成对列的“宽”data.frame。我的目标是使用pivot_longer 取消旋转它。对于所有列中带有前缀的成对列有很多帮助。但在我的情况下，只有一半的对有前缀，我不知道如何定义“names_pattern”，如果这可能的话。

在以下示例中，所有配对列都有一个前缀，我可以将其与 pivot_longer 的 names_pattern 属性拆分：

df_wide <- tribble(
  ~id , ~f_start , ~d_start , ~f_end , ~d_end ,
  'A' , 'p' , '2018-01-01' , 'p' , '2018-02-01' ,
  'B' , 'i' , '2019-04-01' , 'p' , '2020-01-01' ,
  'C' , 'i' , '2018-06-01' , 'i' , '2019-03-01' ,
  'D' , 'p' , '2019-12-01' , 'p' , '2020-05-01' ,
  'E' , 'p' , '2019-02-01' , 'p' , '2019-05-01' ,
  'F' , 'i' , '2018-04-01' , 'i' , '2018-07-01' , …