结果展示
图片解读
❝在原有直角坐标基础上进行加工转换成环状,整体内容与常见云雨图无差别。 ❞
加载R包
代码语言:javascript复制library(tidyverse)
library(geomtextpath)
library(gghalves)
library(magrittr)
数据清洗
代码语言:javascript复制df <- read_tsv("data.xls")
dff <- df %>% group_by(id) %>%
mutate(n = n(),
avg = mean(rating)) %>%
arrange(-avg) %>%
filter(n > 60) %>%
mutate(most = fct_relevel(id, uniq)) %>%
filter(!most %in% c("bitter","cocoa")) %>%
ungroup()
uniq <- unique(dff$id)