- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 58757 个
- 通用积分
- 1374.5409
- 学术水平
- 480 点
- 热心指数
- 587 点
- 信用等级
- 328 点
- 经验
- 126270 点
- 帖子
- 2061
- 精华
- 1
- 在线时间
- 3765 小时
- 注册时间
- 2010-10-27
- 最后登录
- 2024-4-19
|
研究来研究去,没有找到很优雅的方法实现,暂时用笨办法勉强模仿一下,等待高人 - myData <- data.frame(age = c("14岁以下", "15-19岁", "20-24岁", "25-29岁", "30-34岁", "35岁以上"),
- level = c(0.03, 0.175, 0.266, 0.264, 0.182, 0.083))
- windowsFonts(myFont = windowsFont("微软雅黑"))
- myData %>%
- ggplot(aes(x = level, y = age)) +
- ylim(0, 7) +
- xlim(0, 1) +
- annotate(geom = "rect", xmin = 0, xmax = 1, ymin = 0.1 + 1:6, ymax = 0.9 + 1:6, fill = "grey90") +
- annotate(geom = "rect", xmin = 0, xmax = rev(myData$level)[-3], ymin = 0.1 + c(1:3, 5:6), ymax = 0.9 + c(1:3, 5:6), fill = "#789862") +
- annotate(geom = "rect", xmin = 0, xmax = rev(myData$level)[3], ymin = 0.1 + 4, ymax = 0.9 + 4, fill = "#494166") +
- annotate(geom = "text", x = 0, y = 0.5 + 1:6, label = rev(myData$age), hjust = 1.0, fontface = "bold", family = "myFont") +
- annotate(geom = "text", x = 0, y = 6.5, label = "年龄", hjust = 2.5, size = 8, fontface = "bold", family = "myFont") +
- annotate(geom = "text", x = 0.5, y = 0.5 +c(1:3, 5:6), label = paste0(myData$level[-4] * 100, "%"), fontface = "bold", family = "myFont", color = "#789862") +
- annotate(geom = "text", x = 0.5, y = 0.5 + 4, label = paste0(myData$level[4] * 100, "%"), fontface = "bold", family = "myFont", color = "#494166") +
- coord_polar() +
- theme_bw() +
- theme(panel.grid.major = element_blank(),
- panel.grid.minor = element_blank(),
- axis.title = element_blank(),
- axis.text = element_blank(),
- axis.ticks = element_blank(),
- text = element_text(face = "bold"))
复制代码效果如下:
|
-
总评分: 学术水平 + 1
热心指数 + 1
信用等级 + 1
查看全部评分
|