加载R包
library(tidyverse)
library(ggtext)
导入数据
df <- readr::read_csv('data.csv')
构建标签数据
labs ",
"Season 3"))
数据可视化
ggplot...12, 22, 32, 42, 52),
label = c('10', '20', '30', '40', '50'), color = "black") +
# 在y...轴的范围和间隔
scale_y_continuous(limits = c(0, 52), breaks = seq(0, 50, 10)) +
coord_polar() + # 使用极坐标...theme_void() + # 使用空白主题
# 设置主题,移除面板网格和背景
theme(panel.grid = element_blank(),