R 雷达图上的错误条?

R 雷达图上的错误条?,r,excel,plot,R,Excel,Plot,我想为多元数据做一个雷达图,这对于excel来说是一项非常简单的任务 当我还想在这上面绘制一些错误条时,问题就来了。据我所知,我无法在excel中执行此操作。这在R上可能吗 或者有人能提出一个替代方案吗?我有32个单值维度 谢谢 我不太喜欢雷达图,但这里有一些想法可以让你继续前进,继续前进。我最喜欢选项1的外观,但我不确定如何解决var32和var1之间的差距(我有一些想法,但有点尴尬) 编辑/添加 我想我更喜欢这个: # Option 4: mydata %>% ggplot(a

我想为多元数据做一个雷达图,这对于excel来说是一项非常简单的任务

当我还想在这上面绘制一些错误条时,问题就来了。据我所知,我无法在excel中执行此操作。这在R上可能吗

或者有人能提出一个替代方案吗?我有32个单值维度


谢谢

我不太喜欢雷达图,但这里有一些想法可以让你继续前进,继续前进。我最喜欢选项1的外观,但我不确定如何解决var32和var1之间的差距(我有一些想法,但有点尴尬)

编辑/添加 我想我更喜欢这个:

# 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 = "")

这太棒了!这正是我想要描述的。谢谢有没有关于如何将这三个元素组合成一个元素的想法?我想在一张图上画出多个雷达,听起来很混乱。我会使用上面的最后一个选项,每个雷达都有不同的颜色填充。两个以上的文件不太可能可读。
# 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 = "")