加载R包
代码语言：javascript
复制library(scales)
library(tidyverse)
导入数据
代码语言：javascript
复制df <- read_csv("values.csv")
数据清洗
代码语言：javascript
复制df <- df %>%
mutate(across(2:4, ~ .x / 100)) %>%
arrange(Overall) %>%
mutate(order = row_number()) %>%
mutate(Institution = fct_reorder(Institution, order)) %>%
rename(cont = 1, overall = 2, x1 = 3, x2 = 4) %>%
mutate(diff = abs(x2 - x1)) %>%
mutate(x1pr = scales::percent(x1, accuracy = 1),
x2pr = scales::percent(x2, accuracy = 1),
dipr = scales::percent(diff, accuracy = 1),
ovpr = scales::percent(overall, accuracy = 1)) %>%
mutate(x1nu = if_else(x1 > x2, 1, if_else(x1 < x2, -1, -1)) / 16,
x2nu = -1 * x1nu)
数据整合
代码语言：javascript
复制df2 <- df %>% filter(row_number() %% 2 == 0) %>%
mutate(xmin = -2, xmax = 2)
df <- left_join(df, df2, by = colnames(df)) %>% head(10)
数据可视化
代码语言：javascript
复制ggplot(df, aes(y = cont))
geom_rect(aes(xmin=xmin, xmax=xmax, ymin=as.numeric(cont)-1.5, ymax=as.numeric(cont)-.5),
fill="#f6f6f6")
geom_text(label = "Institution", x = -.675, y = dim(df)[1] 1, size = txt.sz, color = "black", fontface = 2, hjust = 0)
geom_text(label = "Overall", x = 1.075, y = dim(df)[1] 1, size = txt.sz, color = "black", fontface = 2)
geom_text(label = "u0394", x = 1.2, y = dim(df)[1] 1, size = txt.sz, color = "black", fontface = 2)
geom_text(aes(x = x1, label = x1pr), size = txt.sz, color = "#E6956F", nudge_x = df$x1nu)
geom_text(aes(x = x2, label = x2pr), size = txt.sz, color = x2.col, nudge_x = df$x2nu)
geom_text(aes(x = x1*0 1.075, label = ovpr), size = txt.sz, color = "black")
geom_text(aes(x = x1*0 1.2, label = dipr), size = txt.sz, color = "black")
geom_segment(aes(x = x1, xend = x2, yend = cont), color = "gray40", size=1)
geom_point(aes(x=x1), shape = 16, size = 2.5, color = "#E6956F")
geom_point(aes(x=x2), shape = 16, size = 2.5, color = "#E6956F")
scale_y_discrete(expand = c(0, 0))
scale_x_continuous()
coord_cartesian(ylim = c(0.2, 12.5), xlim = c(0,1.2), clip = 'off')
