|
第一步:数据导入
- # 数据导入
- library(readxl)
- model_accuracy_data <- read_excel('model_accuracy.xlsx')
- # 变量重命名
- names(model_accuracy_data) <- c('Sample', 'Model1', 'Model2', 'Model3')
- model_accuracy_data
复制代码
数据检视结果如下图:
第二步:宽数据转换为长数据
- library(tidyverse)
- model_accuracy_data1 <- model_accuracy_data %>%
- gather(key = 'Model', value = 'Accuracy', -Sample)
复制代码
第三步:数据可视化
- ggplot(data = model_accuracy_data1, aes(x = Sample, y = Accuracy)) +
- geom_point() +
- geom_line(aes(col = Model)) +
- theme_classic() +
- theme(legend.background = element_rect(fill="lightblue",
- size=0.5, linetype="solid",
- colour ="darkblue")) +
- scale_x_continuous(breaks=model_accuracy_data1$Sample) +
- expand_limits(y=c(0, 0.8))
复制代码
数据可视化结果如下图:
|
|