是``总结（）

Question

大家好，这里是一个示例代码

library(palmerpenguins)
mypenguins = penguins %>% drop_na()
penguins_df <- mypenguins %>% 
  group_by(species) %>% 
  summarize(mean_g = mean(bill_length_mm)) 
penguins_df %>% 
  ggplot(aes(x = mean_g, y = species)) +
  geom_col(width = 0.5) +
  theme(
    axis.text.y = element_text(
      color = if_else(penguins_df$mean_g > 48, "red", "black"), 
      face = if_else(penguins_df$mean_g  > 48, "bold", "plain"), 
      size = 20
    )
  )

，但是当我想整合两个部分“汇总”和“ ggplot”时，

penguins_df <- mypenguins %>% 
  group_by(species) %>% 
  summarize(mean_g = mean(bill_length_mm)) %>%
  ggplot(aes(x = mean_g, y = species)) +
  geom_col(width = 0.5) +
  theme(
    axis.text.y = element_text(
      color = if_else(mean_g > 48, "red", "black"), 
      face = if_else(mean_g  > 48, "bold", "plain"), 
      size = 20
    )
  )

我被警告了：“ nare_g”找不到，但是我确实定义了“ sane_g”，这使我感到非常困惑。 有人会介意提供一些建议吗？谢谢。

Answer 1

我们可以使用卷曲牙套的围绕GGPLOT表达式的“技巧”。唯一的缺点是我们需要用点明确指的是管道对象。

这是代码：

library(tidyverse)
library(palmerpenguins)


mypenguins <- penguins %>% drop_na()

penguins_df <- mypenguins %>%
  group_by(species) %>%
  summarize(mean_g = mean(bill_length_mm))

penguins_df %>%
  {
    ggplot(., aes(x = mean_g, y = species)) +
      geom_col(width = 0.5) +
      theme(
        axis.text.y = element_text(
          color = if_else(.$mean_g > 48, "red", "black"),
          face = if_else(.$mean_g > 48, "bold", "plain"),
          size = 20
        )
      )
  }

Answer 2

评论太久了。

用ggplot（AES（...））定义的美学，仅适用于GEOM s，而不是theme。这就是为什么这不起作用。

因此，例如，您可以编写：

mypenguins <- penguins %>% drop_na()
mypenguins %>% 
  group_by(species) %>% 
  summarize(mean_g = mean(bill_length_mm)) %>%
  ggplot(aes(x = mean_g, y = species)) +
  geom_col(width = 0.5)

这将起作用，因为mean_g是一种美学，因此ggplot在data.frame （它查找Mean_g列）。 主题（...）函数不尊重美学，因此它在调用环境中查找mean_g，并且由于没有这样的对象而失败。