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

陆勤 2019-11-17 205658 0 0

#### 问题提出 利用多种算法解决科学问题的时候，记录每种算法在各个采样点下性能指标，比方说Accuracy，如何绘制这些算法的Accuracy的对比分析的可视化呢？ #### 解决方法 第一步：数据导入 ``` # 数据导入 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)) ``` 数据可视化结果如下图：  #### 思考题 如何把数据可视化结果保存为高质量可出版的图片？ <br/><br/><b>版权声明：</b>作者保留权利。文章为作者独立观点，不代表数据人网立场。严禁修改，转载请注明原文链接:http://www.shujuren.org/article/19812.html<br/><b>数据人网：</b>数据人学习，交流和分享的平台，诚邀您创造和分享数据知识，共建和共享数据智库。