在 R 中使用 ggplot2 创建“雷达图”（又名星图；蜘蛛图）

我想创建一个如下图所示的图：

我知道我可以使用radarchart函数来自fmsb包裹。我怀疑是否ggplot2可以用极坐标这样做吗？谢谢。

首先，我们加载一些包。

library(reshape2)
library(ggplot2)
library(scales)

以下是您链接到的雷达图示例中的数据。

maxmin <- data.frame(
  total  = c(5, 1),
  phys   = c(15, 3),
  psycho = c(3, 0),
  social = c(5, 1),
  env    = c(5, 1)
)
dat <- data.frame(
  total  = runif(3, 1, 5),
  phys   = rnorm(3, 10, 2),
  psycho = c(0.5, NA, 3),
  social = runif(3, 1, 5),
  env    = c(5, 2.5, 4)
)

我们需要一些操作来使它们适合 ggplot。

对它们进行标准化，添加 id 列并转换为长格式。

normalised_dat <- as.data.frame(mapply(
    function(x, mm)
    {
      (x - mm[2]) / (mm[1] - mm[2])
    },
    dat,
    maxmin
))

normalised_dat$id <- factor(seq_len(nrow(normalised_dat)))
long_dat <- melt(normalised_dat, id.vars = "id")

ggplot also wraps the values so the first and last factors meet up. We add an extra factor level to avoid this. This is no longer true.

levels(long_dat$variable) <- c(levels(long_dat$variable), "")

这是情节。它并不完全相同，但它应该可以帮助您入门。

ggplot(long_dat, aes(x = variable, y = value, colour = id, group = id)) +
  geom_line() +
  coord_polar(theta = "x", direction = -1) +
  scale_y_continuous(labels = percent)

Note that when you use coord_polar, the lines are curved. If you want straight lines, then you'll have to try a different technique.