ggplot2，总结为y美学-r

我的任务是：

创建以下图表：

按类型1对口袋妖怪数据进行分组，并且是传奇 用攻击的平均值总结数据 创建一个条形图，在x上键入1，y上的攻击平均值，然后键入一个填充 将type one的颜色更改为type\ U颜色 facet_对其进行包装，以便常规口袋妖怪和传奇口袋妖怪有不同的条形图 我能够通过攻击的方式总结数据，但它不是我的数据集中的一列。我该如何使攻击的意思是y美学？我是否忽略了一种更简单的方法

我曾尝试在原始的口袋妖怪数据集上创建一个新列，但这将创建所有数据的平均值，而不是按type1或it_对其进行分组

我还不断得到错误：error:stat_count不能与y一起使用。但当我查找这个错误时，我看不出它是如何应用于这个特定问题的

pokemon$type1 <- factor(pokemon$type1)
pokemon$is_legendary <- factor(pokemon$is_legendary)

pokemon %>% 
  group_by(type1, is_legendary) %>%  
  summarize(mean_attack = mean(attack)) %>% 
  ggplot(mapping = aes(x = type1, y = mean_attack, fill = type1)) + geom_bar() 
+ scale_fill_manual(values = type_color) + facet_wrap(~ is_legendary) 
+ labs(title = "Average Attack of Legendary and Regular Pokemon") + pokemon.theme

---

如geom_bar数据表所述：

默认情况下，geom_栏使用stat_count：它统计每个x位置的案例数。geom_col使用stat_identity：它保持数据的原样

下面是一个使用iris数据集尝试获取的示例：

图书馆管理员 虹膜%>%按物种分组%>%SummaryMeansep=平均萼片长度 一个tibble:3x2 物种平均 1.5.01 2彩色5.94 3弗吉尼亚州6.59 如果您试图使用geom_bar绘制它，您会得到：

虹膜%>%按物种分组%>%summariseMeanSep=平均萼片长度%>% ggplot.，aesx=物种，y=平均SEP，fill=物种+ geom_酒吧 错误：stat_count不能与y组合使用。 但是，如果您尝试使用camille提到的geom_col，或者您使用'geom_barstat=identity，您将得到您的绘图：

虹膜%>%按物种分组%>%summariseMeanSep=平均萼片长度%>% ggplot.，aesx=物种，y=平均SEP，fill=物种+ geom_col 虹膜%>%按物种分组%>%summariseMeanSep=平均萼片长度%>% ggplot.，aesx=物种，y=平均SEP，fill=物种+ geom_barstat=标识

---

希望它能回答您的问题

一个小提示，如果您正在将汇总数据导入ggplot，您可能不希望同时将原始口袋妖怪数据框作为数据源。如果您想给出y坐标，请使用geom_col。geom_bar是当你想让ggplot为你聚合计数时使用的。这里有几篇文章，你可以通过搜索错误消息得到。除此之外，你还可以让这成为一个