这样画箱线图，为你的SCI论文增色！

高级箱线图的绘制

下面的箱线图比较美观，非常适合数据量不大、且分布明显的时候使用。

在论文撰写中，图表的清晰和吸引人的展示方式是至关重要的。箱线图（Whisker Plot）是一种展示数据分布的经典工具，它不仅可以清楚地显示数据的中心趋势、散布和异常值，还能以视觉上吸引人的方式呈现这些信息。

尤其是在撰写SCI论文时，如何通过图表清晰地传达研究结果，不仅能帮助同行专家快速理解研究的核心发现，也能增强论文的吸引力，从而提高被引频次。在众多数据可视化方法中，箱线图因其简洁性和信息量大的特点而广受欢迎。

但是，传统的箱线图往往显得单调乏味，不足以突出研究的重要性。为此，我们探索如何通过结合ghibli和ggdist包在R语言中创建更具吸引力和表现力的箱线图，以使您的SCI论文更加出色。

数据

首先准备我们的数据

library(tidyverse)
data <- read.csv("Rotarod.csv")
data$Day <- factor(data$Day, levels = c("1", "2"))
data$Genotype <- factor(data$Genotype, levels = c("WT", "KO"))
head(data)

代码

本次用ggplot实现这张图的绘制，首先需要安装ghibli库和ggdist，该库提供了一些高级绘图函数，感兴趣的同学可以自行探索。

绘图代码如下：

library(ghibli)
library(ggdist)# Enhanced plot of Rorarod performance
edv <- ggplot(data, aes(x = Day, y = Trial3, fill = Genotype)) +# Improved Ghibli theme color scheme for a more attractive appearancescale_fill_ghibli_d("SpiritedMedium", direction = -1, guide = guide_legend(title = "Genotype")) +# Boxplot with refined aestheticsgeom_boxplot(width = 0.2, outlier.color = "red", alpha = 0.7) +# Enhanced axis labels and title for clarity and impactlabs(x = 'Day',y = 'Time (seconds)',title = "Rorarod Performance Across Different Genotypes",subtitle = "Boxplot and half-eye plot visualization") +# Use the classic theme with a serif font for a sophisticated looktheme_classic(base_size = 16, base_family = "serif") +# Refined theme adjustments for improved readability and aestheticstheme(plot.title = element_text(hjust = 0.5, size = 20),plot.subtitle = element_text(hjust = 0.5, size = 14),legend.position = "bottom",legend.box = "horizontal",legend.title = element_text(face = "bold"),axis.text.x = element_text(angle = 45, hjust = 1),axis.text.y = element_text(face = "italic")) +# Adjust y-axis scale for better data representationscale_y_continuous(breaks = seq(0, 100, by = 20), limits = c(0, 100)) +# Dot plot adjustment for claritystat_dots(side = "left", justification = 1.15,binwidth = 2,color = "darkblue",alpha = 0.5) +# Half-eye plot with refined aestheticsstat_halfeye(adjust = .5, width = .8, justification = -.25, .width = 0.25, fill = NA,color = "darkgreen",alpha = 0.5)# Display the enhanced plot
edv

对代码进行一定修改，还能绘制出另一种风格：

# Load necessary libraries
library(ghibli)
library(ggdist)# Plotting Rorarod performance
edv <- ggplot(data, aes(x = Day, y = Trial3, fill = Genotype)) +# Use Ghibli theme for fill colors, with custom directionscale_fill_ghibli_d("SpiritedMedium", direction = -1) +# Adding a boxplot with custom width and outlier colorgeom_boxplot(width = 0.1, outlier.color = "red") +# Customizing axis labelsxlab('Day') +ylab('Time (s)') +# Setting plot title and applying classic theme with custom base size and familyggtitle("Rorarod performance") +theme_classic(base_size = 18, base_family = "serif") +# Customizing text, axis text, title, subtitle, and legend positioningtheme(text = element_text(size = 18),axis.text.x = element_text(angle = 0, hjust = .1, vjust = 0.5, color = "black"),axis.text.y = element_text(color = "black"),plot.title = element_text(hjust = 0.5),plot.subtitle = element_text(hjust = 0.5),legend.position = "bottom") +# Customizing y-axis scalescale_y_continuous(breaks = seq(0, 100, by = 20), limits = c(0, 100)) +# Adding dot plots from ggdist packagestat_dots(side = "left", justification = 1.12,binwidth = 1.9) +# Adding half-violin from ggdist packagestat_halfeye(adjust = .5, width = .6, justification = -.2, .width = 0, point_colour = NA)# Display the plot
edv