ggplot2——玫瑰图

初始图样：

library(ggplot2)
dt = data.frame(A = c(2, 7, 4, 10, 1), B = c('B','A','C','D','E'))
windowsFonts(myFont = windowsFont("楷体"))   ## 绑定字体

p = ggplot(dt, aes(x = B, y = A, fill = B)) + 
  geom_bar(stat = "identity", alpha = 0.7) + 
  coord_polar() 
p

修补过后的玫瑰图：

library(ggplot2)
dt = data.frame(A = c(2, 7, 4, 10, 1), B = c('B','A','C','D','E'))
windowsFonts(myFont = windowsFont("楷体"))   ## 绑定字体

p = ggplot(dt, aes(x = B, y = A, fill = B)) + 
  geom_bar(stat = "identity", alpha = 0.7) + 
  coord_polar() + 
  theme_bw() + 
  labs(x = "", y = "", title = "这个玫瑰图有点丑") + 
  geom_text(aes(y = A/2 + max(A)/4, label = A, color = B), size = 5) +    ## 加上数字
  theme(axis.text.y = element_blank()) +    ## 去掉左上角的刻度标签
  theme(axis.ticks = element_blank()) +    ## 去掉左上角的刻度线
  theme(panel.border = element_blank()) +   ## 去掉外层边框
  theme(legend.position = "none") +   ## 去掉图例
  theme(title = element_text(vjust = -56, face = "bold", family = "myFont"))   ## 将图例移到图的下方，并更改一下字体格式
p