雷达图

学做雷达图

数据 library(tidyverse) library(scales) library(showtext) showtext_auto() df <- data.frame(语文 = c(50, 60, 70, 90), 姓名 = c("A", "B", "C", "D"), 数学 = c(55, 60, 80, 90), 英语 = c(80, 60, 70, 77)) df ## 语文 姓名 数学 英语 ## 1 50 A 55 80 ## 2 60 B 60 60 ## 3 70 C 80 70 ## 4 90 D 90 77 用ggradar::ggradar()做雷达图 ggradar用的是ggplot2做图。 df.new <- df %>% mutate_if(is.numeric, rescale) %>% select(姓名