在GGR中重塑组标签

使用

ggradar

时，长变量名不适合窗格。有没有办法在

ggradar

中重塑变量名

可复制示例：

library(ggradar)
suppressPackageStartupMessages(library(dplyr))
library(scales)

data <- data.frame(
  group = c("A", "B", "C"),
  variable_with_long_name_1 = c(0,1,0.5),
  variable_with_long_name_2 = c(0,1,.5),
  variable_with_long_name_3 = c(1,0,0.5)
)
ggradar(data)

库（ggradar）
SuppressPackageStatupMessages（库（dplyr））
图书馆（比例尺）
数据如果可以，我建议使用from
ggiraphExtra
：

library(ggiraphExtra)

g <- ggRadar(data, aes(color = group), scales = "free") + 
theme_minimal() +
theme(text = element_text(size=7), # custom font size
    axis.text.y = element_blank())

使用的数据：

data <- data.frame(
  group = c("A", "B", "C"),
  variable_with_long_name_1 = c(0,1,0.5),
  variable_with_long_name_2 = c(0,1,.5),
  variable_with_long_name_3 = c(1,0,0.5)
)

数据实际上是直截了当的
ggradar
允许缩放所有标签：


通过设置
axis.label.size
选项，可以缩放变量名称
通过设置
grid.label.size
选项和
通过设置
legend.label.size
选项来显示图例

所以

库（ggradar）
SuppressPackageStatupMessages（库（dplyr））
图书馆（比例尺）
数据
库（ggradar）
SuppressPackageStatupMessages（库（dplyr））
图书馆（比例尺）
数据另一种可能有效的方法，至少如果您的蜘蛛图中只有几个类别：

将文本添加到图表的前面，如下面链接中的Joachim Schork所示


请将此合并到您以前的答案中。
data <- data.frame(
  group = c("A", "B", "C"),
  variable_with_long_name_1 = c(0,1,0.5),
  variable_with_long_name_2 = c(0,1,.5),
  variable_with_long_name_3 = c(1,0,0.5)
)

library(ggradar)
suppressPackageStartupMessages(library(dplyr))
library(scales)

data <- data.frame(
  group = c("A", "B", "C"),
  variable_with_long_name_1 = c(0,1,0.5),
  variable_with_long_name_2 = c(0,1,.5),
  variable_with_long_name_3 = c(1,0,0.5)
)

ggradar(data, axis.label.size = 3, grid.label.size = 3, legend.text.size = 10)

library(ggradar)
suppressPackageStartupMessages(library(dplyr))
library(scales)

data <- data.frame(
  group = c("A", "B", "C"),
  "variable with long name"= c(0,1,0.5),
  "variable with \n long name" = c(0,1,.5),
  variable_with_long_name_3 = c(1,0,0.5)
)
ggradar(data)+
  ggtitle("Title on \n two lines")

ggp +                               # Add bold text element to plot, could be anything else like italic
annotate("text", x = 4.5, y = 2.2, size = 5,
       label = "My Bold Text",
       fontface = "bold")