weixin_62936205 2022-12-28 10:01 采纳率: 100%
浏览 14
已结题

数据挖掘r语言分组汇总

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))

  • 写回答

2条回答 默认 最新

  • ShowMeAI 2022-12-28 10:27
    关注

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

    # 清空环境中的对象列表
    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))
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 1月5日
  • 已采纳回答 12月28日
  • 创建了问题 12月28日

悬赏问题

  • ¥15 imageEnView绘图问题
  • ¥15 关于#python#的问题:您好可以加您一下联系方式吗,在复现的时候确实有点问题难以解决
  • ¥15 联想电脑重装系统时无法发现硬盘
  • ¥15 MATLAB与UR10e实体机械臂建立通讯
  • ¥15 c++题需要快一点不用opencv
  • ¥15 关于#java#的问题:想要咨询Flowable流程引擎框架的问题
  • ¥15 vscode里面怎么用plaformio强调串口啊
  • ¥20 针对计算后数据做一致性检验可以用Bland Altman法吗
  • ¥15 win32如何自绘编辑框的背景图片(语言-c++|操作系统-windows)
  • ¥15 微信夜间被转走了1w对,当天手机剪切板里就出现了这个乱码,有铁子可以看看是啥吗可以