加载R包
library(tidyverse)
library(ggtext)
导入数据
df <- readr::read_csv('data.csv')
构建标签数据
labs <- data.frame...= Episode_order)) +
# 为y轴的值添加文本注释
annotate('text', x = 34.5, y = c(12, 22, 32, 42, 52),...label = c('10', '20', '30', '40', '50'), color = "black") +
# 在y轴上以10为间隔添加水平线
geom_hline(yintercept...F_count_total, fill = as.factor(Season)), alpha = 0.8, show.legend = FALSE) +
# 添加柱状图,表示RK的计数...geom_col(aes(y = F_count_RK, fill = as.factor(Season)), show.legend = FALSE) +
# 添加富文本,用于显示季节标签