雷达图上的误差棒？
我正在寻找多元数据的雷达图，这个任务对于excel来说足够简单。
问题出现的时候，我也想绘制一些错误栏上。 据我所知，我不能在excel中做到这一点。 这是可能的R？
或者可以有人提出一个替代？ 我有32个单值的维度。
谢谢！
我不怎么喜欢雷达图表，但是这里有一些想法可以帮助你实现这个目标 。 我最喜欢我的选项1，但我不知道如何解决var32和var1之间的差距（我有一些想法，但有点尴尬）。
library(tidyverse) library(ggplot2) library(scales) # make some mock data mydata <- data.frame(variable = paste0("Var", 1:32), midpoint = rnorm(32), stderr = rnorm(32, 1, 0.1), stringsAsFactors = FALSE) %>% mutate(upper = midpoint + 1.96 * stderr, lower = midpoint - 1.96 * stderr) %>% mutate(variable = factor(variable, levels = variable)) # Option 1: mydata %>% ggplot(aes(x = variable, y = midpoint, group = 1)) + geom_ribbon(aes(ymin = lower, ymax = upper), fill = "grey50", alpha = 0.5) + geom_line(colour = "purple") + theme_light() + theme(panel.grid.minor = element_blank()) + coord_polar() + labs(x = "", y = "") 
# Option 2: mydata %>% gather(measure, value, -variable, -stderr) %>% ggplot(aes(x = variable, y = value, colour = measure, group = measure, linetype = measure)) + geom_polygon(fill = NA) + theme_light() + theme(panel.grid.minor = element_blank()) + coord_polar() + scale_colour_manual(values = c("steelblue", "black", "steelblue")) + scale_linetype_manual(values = c(2,1,2)) + labs(x = "", y = "")
# Option 3: mydata %>% ggplot(aes(x = variable, y = midpoint, group = 1)) + geom_polygon(fill = NA, colour = "purple") + geom_segment(aes(xend = variable, y = lower, yend = upper), colour = "grey50") + geom_point(colour = "purple") + theme_light() + theme(panel.grid.minor = element_blank()) + theme(panel.grid.major.x = element_blank()) + coord_polar() + labs(x = "", y = "")
编辑/添加
我想我更喜欢这个：
# Option 4: mydata %>% ggplot(aes(x = variable, y = midpoint, group = 1)) + geom_polygon(aes(y = upper), fill = "grey50", alpha = 0.5) + geom_polygon(aes(y = lower), fill = "grey99", alpha = 0.7) + geom_polygon(fill = NA, colour = "purple") + theme_light() + theme(panel.grid.minor = element_blank()) + coord_polar() + labs(x = "", y = "")
