rm(list = ls())
library(dplyr)
df <-read.csv("/data/bigfiles/iris.csv")
df <- df %>% as_tibble()
head(df)

新建两列，分别是sepal的长款比（sepal_ratio)和

petal的长宽比(petal_ratio)

df <- df %>%

然后再使用species这一列来分组并汇总

sepal_ratio和petal_ratio的平均值

汇总后的平均值列仍然命名为sepal_ratio和petal_ratio

提示：用group_by和summarize函数

ave <- df %>%

print(round(ave$sepal_ratio, 2))

完整填充后的代码如下，望采纳

# 清空环境中的对象列表
rm(list = ls())

# 加载 dplyr 包
library(dplyr)

# 读取 iris 数据集
df <- read.csv("/data/bigfiles/iris.csv")

# 将数据框转换为 tibble
df <- df %>% as_tibble()

# 计算花萼和花瓣的长宽比
df <- df %>%
  # 在数据集中添加两列：花萼长宽比和花瓣长宽比
  mutate(sepal_ratio = Sepal.Length / Sepal.Width,
         petal_ratio = Petal.Length / Petal.Width)

# 按种类分组并计算花萼和花瓣长宽比的平均值
ave <- df %>%
  group_by(Species) %>%
  summarize(sepal_ratio = mean(sepal_ratio),
            petal_ratio = mean(petal_ratio))

# 输出结果
print(round(ave$sepal_ratio, 2))

请问有什么问题嘛？