R语言论文插图模板第9期—滑珠散点图

在之前的文章中,分享了R语言分组散点图的绘制模板:

特征渲染的 散点 的绘制方法:

进一步,再来分享一下滑珠 散点 的绘制方法。

先来看一下成品效果:

特别提示 :本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以在同名公号阿昆的科研日常后台回复关键词【全家桶】查看加群方式


1. 数据准备

此部分主要是读取原始数据,并进行绘图前的预处理

复制代码
# 加载库library(readxl)library(tidyr)library(ggplot2)​# 修改工作路径# setwd("D:/R")​# 读取数据data <- read_excel("data_bubblescatter.xlsx")​# 将数据转换为数据框格式data <- as.data.frame(data)​# 排序data_sorted <- data[order(data$value), ]data_sorted$name <- factor(data_sorted$name, levels = data_sorted$name)

2. 颜色定义

作图不配色就好比做菜不放盐,总让人感觉少些味道。

但颜色搭配比较考验个人审美,需要多加尝试。

这里直接使用TheBestColors配色工具中的SCI顶刊配色

复制代码
library(TheBestColors)map <- Best100(61)CC <- map[c(8)]

3.滑珠散点图绘制

利用'geom_point'函数,绘制初始滑珠散点图

复制代码
p <- ggplot(data_sorted, aes(x = value, y = name)) +  geom_point(color=CC,size=4)+  labs(x = 'MeanDecreaseAccuracy', y = 'Product')print(p)

4. 细节优化

为了插图的美观,对坐标轴细节等进行美化,并按期刊所需分辨率、格式输出图片。

复制代码
# 细节调整p +   theme_classic(base_size = 8) + # 设置基本字号为8pt  theme(    panel.border = element_rect(size=0.5,fill = 'transparent'), # 添加全框线    axis.line = element_blank(), # 删除原始轴线    panel.grid.major.y = element_line(size = 0.2, linetype = 'solid', color = "gray"), # 开启y轴主网格线    axis.ticks = element_line(size = 0.5), #设置刻度线粗细与颜色    axis.ticks.length = unit(1.5, "mm"), # 设置刻度线的长度    legend.title = element_blank(), # 设置图例标题为空    legend.position = 'top', # 设置图例位置    axis.text = element_text(size = 10), # 设置坐标轴标签字号和颜色    legend.text = element_text(size = 10), # 设置图例文本字号    axis.title = element_text(size = 10), # 设置坐标轴标题字号  )​# 图片导出ggsave("滑珠散点图.png",  width = 18, height = 18, units = "cm", dpi = 600)

以上。

相关推荐
你不是我我19 分钟前
【Java 开发日记】我们来说一说 Redisson 的原理
java·开发语言
kk”19 分钟前
C++ stack 和 queue
开发语言·c++
Matlab仿真实验室33 分钟前
基于Matlab实现双目图计算深度图
开发语言·数码相机·matlab·双目图计算深度图
QT 小鲜肉1 小时前
【数据结构与算法基础】05. 栈详解(C++ 实战)
开发语言·数据结构·c++·笔记·学习·算法·学习方法
老K的Java兵器库1 小时前
Collections 工具类 15 个常用方法源码:sort、binarySearch、reverse、shuffle、unmodifiableXxx
java·开发语言·哈希算法
武子康1 小时前
Java-153 深入浅出 MongoDB 全面的适用场景分析与选型指南 场景应用指南
java·开发语言·数据库·mongodb·性能优化·系统架构·nosql
rit84324991 小时前
ES6 箭头函数:告别 `this` 的困扰
开发语言·javascript·es6
嵌入式-老费1 小时前
Easyx图形库应用(用lua开发图形界面)
开发语言·lua
ellis19701 小时前
Lua协程coroutine库用法
开发语言·lua
nwsuaf_huasir2 小时前
matlab构造带通巴特沃斯滤波器进行滤波
开发语言·matlab