❝在原有直角坐标基础上进行加工转换成环状,整体内容与常见云雨图无差别。 ❞
library(tidyverse)
library(geomtextpath)
library(gghalves)
library(magrittr)
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)