设为首页收藏本站

EPS数据狗论坛

搜索
快捷导航
查看: 234|回复: 0

[数据可视化] 绘制多种算法的Accuracy的对比分析可视化

[复制链接]

14

主题

112

金钱

187

积分

入门用户

发表于 2019-12-16 14:58:10 | 显示全部楼层 |阅读模式

第一步:数据导入
  1. # 数据导入
  2. library(readxl)
  3. model_accuracy_data <- read_excel('model_accuracy.xlsx')
  4. # 变量重命名
  5. names(model_accuracy_data) <- c('Sample', 'Model1', 'Model2', 'Model3')
  6. model_accuracy_data
复制代码


数据检视结果如下图:
1.png

第二步:宽数据转换为长数据
  1. library(tidyverse)
  2. model_accuracy_data1 <- model_accuracy_data %>%
  3.   gather(key = 'Model', value = 'Accuracy', -Sample)
复制代码


第三步:数据可视化
  1. ggplot(data = model_accuracy_data1, aes(x = Sample, y = Accuracy)) +
  2.   geom_point() +
  3.   geom_line(aes(col = Model)) +
  4.   theme_classic() +
  5.   theme(legend.background = element_rect(fill="lightblue",
  6.                                          size=0.5, linetype="solid",
  7.                                          colour ="darkblue")) +
  8.   scale_x_continuous(breaks=model_accuracy_data1$Sample) +
  9.   expand_limits(y=c(0, 0.8))
复制代码


数据可视化结果如下图:
2.png
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

客服中心
关闭
在线时间:
周一~周五
9:00-18:00
QQ群:
542280196
联系电话:
010-85786021-8014
在线咨询
客服中心

Powered by BFIT! X3.2© 2008-2018 BFIT Inc.

快速回复 返回顶部 返回列表