绘制多种算法的Accuracy的对比分析可视化

美梦被梦惊醒

第一步：数据导入

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

复制代码

数据可视化结果如下图：