如何繪製ggplot2或R中的雷達圖表

Question

我正在使用和ggplot2（或R中的任何其他軟件包）在附件image中製作雷達圖。 This談論這個，但我的情況是不同的，因爲我試圖創建一個具有一定範圍的響應數據的蜘蛛情節。 我使用下面的代碼做了一個情節，但我無法弄清楚如何在圖像中做出這種情況。請幫助我。

Impcts <- c("system","supply","security","well-being") 
present <- c(5,5,3,5) 
past <- c(6,6,4,5) 
group.names <- c("present", "past") 
ddf.pre <- data.frame(matrix(c(rep(group.names[1], 4), Impcts), nrow = 4,  ncol = 2), var.order = seq(1:4), value = present) 
ddf.pas <- data.frame(matrix(c(rep(group.names[2], 4), Impcts), nrow = 4, ncol = 2), var.order = seq(1:4), value = past) 
ddf <- rbind(ddf.pre, ddf.pas) 
colnames(ddf) <- c("Group", "Impcts", "var.order", "var.value") 
library(ggplot2) 
ggplot(ddf, aes(y = var.value, x = reorder(Impcts, var.order), 
group = Group, colour = Group))+ 
coord_polar() + 
geom_path() + 
geom_point()+ 
labs(title = "Impacts Analysis"). 

Answer 1

下面是使用geom_path()我attempt.First我畫正方形。然後，我使用geom_polygon()在正方形的頂部繪製了兩個多邊形。最後我添加了註釋。

### Draw squares 
mydf <- data.frame(id = rep(1:6, each = 5), 
        x = c(0, 6, 0, -6, 0, 
         0, 5, 0, -5, 0, 
         0, 4, 0, -4, 0, 
         0, 3, 0, -3, 0, 
         0, 2, 0, -2, 0, 
         0, 1, 0, -1, 0), 
        y = c(6, 0, -6, 0, 6, 
         5, 0, -5, 0, 5, 
         4, 0, -4, 0, 4, 
         3, 0, -3, 0, 3, 
         2, 0, -2, 0, 2, 
         1, 0, -1, 0, 1)) 

g <- ggplot(data = mydf, aes(x = x, y = y, group = factor(id)) + 
    geom_path() 

### Draw polygons 
mydf2 <- data.frame(id = rep(7:8, each = 5), 
        x = c(0, 6, 0, -5, 0, 
          0, 5, 0, -5, 0), 
        y = c(6, 0, -4, 0, 6, 
          5, 0, -3, 0, 5)) 

gg <- g + 
     geom_polygon(data = mydf2, aes(x = x, y = y, group = factor(id), fill = factor(id))) + 
     scale_fill_manual(name = "Time", values = c("darkolivegreen4", "brown4"), 
         labels = c("Past", "Present")) 


### Add annotation 

mydf3 <- data.frame(x = c(0, 6.5, 0, -6.5), 
        y = c(6.5, 0, -6.5, 0), 
        label = c("system", "supply", "security", "well-being")) 


ggg <- gg + 
     annotate("text", x = mydf3$x, y = mydf3$y, label = mydf3$label, size = 3) 

ggsave(ggg, file = "name.png", width = 10, height = 9)