Если можно, я предлагаю использовать ggRadar
от 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())
Кроме того, вы можете использовать грамматику ggplot2
.
Также я думаю, что лучше использовать простой ggsave
, просто поиграйтесь с размером, вам не придется жертвовать размером текста:
g <- ggRadar(data, aes(color = group), scales = "free") +
theme_minimal() +
theme(axis.text.y = element_blank())
print(g)
ggsave("/plt.png", width = 16, height = 9, dpi = 120)
Используемые данные:
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)
)