菜鸟求助：R语言如何制作南丁格尔玫瑰图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本人R语言菜鸟，想做风向频率玫瑰图和风能频率玫瑰图，用ggplot+geom_bar+coord_polar捣鼓了好久，还是有各种问题。
我把数据和想要的图发在这里，希望能有老师们指点迷津。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：南丁格尔 R语言 gplot plot 指点迷津

1. library(tidyverse)
   
2. data %>%
   
3.   mutate(X2 = factor(X2, levels = c("E", "ESE", "SE", "SSE",
   
4.                                     "S", "SSW", "SW", "WSW",
   
5.                                     "W", "WNW", "NW", "NNW",
   
6.                                     "N", "NNE", "NE", "ENE"))) %>%
   
7.   ggplot(aes(x = X2, y = X3, fill = X1)) +
   
8.   geom_bar(position = "dodge", stat = "identity") +
   
9.   geom_vline(xintercept = seq(.5, 15.5, 1), color = "grey92") +
   
10.   scale_x_discrete(expand = c(0, 0)) +
    
11.   scale_y_continuous(expand = c(0, 0)) +
    
12.   theme_bw() +
    
13.   theme(axis.ticks = element_blank(),
    
14.         axis.line = element_blank(),
    
15.         axis.text.x = element_text(face = "bold"),
    
16.         axis.text.y = element_blank(),
    
17.         legend.position = c(0.1, 0.9),
    
18.         legend.background = element_blank(),
    
19.         panel.grid.major.x = element_blank()) +
    
20.   labs(x = NULL, y = NULL, fill = NULL) +
    
21.   scale_fill_brewer(palette = "Pastel1") +
    
22.   coord_polar(start = pi * (1/2 - 1/16))

复制代码

cheetahfly 发表于 2018-1-23 14:36

谢谢哈，非常感谢。再请教一下，我用12段ggplot代码分别做了12张图（p1~p12），单独运行每段代码，得出的图是想要的。
但是12段代码一起运行，然后用ggplot2.multiplot(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,cols = 3)出图，结果p1~p12都是一样的。
不懂怎么回事

学习学习先

下是一种 发表于 2018-1-25 16:08
谢谢哈，非常感谢。再请教一下，我用12段ggplot代码分别做了12张图（p1~p12），单独运行每段代码，得出的 ...

试试ggarrange把p1-p12放进同一个panel？