[英]Four quadrant plot, 4 different variables in R
我正在嘗試在 R 中創建一個顯示所有四個象限的坐標 plot。 我需要的與我在典型的數據可視化中看到的任何東西都不一樣。 我附上了我需要實現的圖片示例。
您會注意到沒有負值,因為每個象限代表不同的變量組合,分數范圍從 0 到 25。
我還沒有找到我需要做什么的例子,所以我沒有“嘗試過但失敗了”的代碼,但我有一個樣本數據集,格式為寬格式和長格式,具體取決於解決方案的要求。 我查看了 ggplot2 中的圖,但我只能使用 2 個變量來計算 plot。 我不確定如何使用 geom_point 之類的東西來表示所有 4 個變量。
我只想一次顯示一個人的坐標,所以我不想一次繪制數據集中每個人的分數。
非常感謝任何關於如何解決這個問題的想法!
樣本數據:
df <- data.frame(
name = c("Donald", "Minnie", "Pluto"),
varA = c(3, 6, 15),
varB = c(4, 17, 6),
varC = c(26, 21, 13),
varD = c(10, 19, 19)
)
library(reshape2)
dflong <- melt(df, id.vars='name', measure.vars=c("varA", "varB", "varC", "varD"))
您可以使用 tidyr、dplyr 和 ggplot2 試試這個:
plot 可能需要一些調整才能使其看起來像您想要的那樣。
如果您一次只想要一個 plot,只需在調用 ggplot 時過濾數據框即可。
library(dplyr)
library(tidyr)
library(ggplot2)
df <- data.frame(
name = c("Donald", "Minnie", "Pluto"),
varA = c(3, 6, 15),
varB = c(4, 17, 6),
varC = c(26, 21, 13),
varD = c(10, 19, 19)
)
df1 <-
df %>%
pivot_longer(-name, names_to = "var", names_prefix = "var", values_to = "val") %>%
group_by(name) %>%
mutate(quad = paste(var, lead(var, default = "A"), sep = "-"),
x = case_when(var == "A" ~ lead(val),
var == "B" ~ val,
var == "C" ~ -lead(val),
var == "D" ~ -val),
y = case_when(var == "A" ~ val,
var == "B" ~ -lead(val),
var == "C" ~ -val,
var == "D" ~ lag(val, n = 3)))
# helper value
val_max <- round(max(df1$val), -1)
# axis data
df_ax <- data.frame(ax = rep(c("x", "y"), each = 2),
x = c(-val_max, val_max, 0, 0),
y = c(0, 0, -val_max, val_max))
#labels for variables
labs <- data.frame(label = LETTERS[1:4],
val = val_max,
x = c( 0, val_max, 0, -val_max),
y = c( val_max, 0, -val_max, 0))
ggplot(df1, aes(x, y))+
geom_point(size = 3)+
facet_wrap(~name)+
geom_line(data = df_ax, aes(x, y, group = ax))+
geom_text(data = labs, aes(x, y, label = label),
nudge_x = c(0, 2, 0, -2),
nudge_y = c(2, 0, -2, 0),
size = 4)+
geom_text(data = labs, aes(x, y, label = val),
nudge_x = c( -2, -2, -2, 2),
nudge_y = c( -2, -2, 2, -2),
size = 3)+
geom_text(aes(x = 2, y = 2, label = 0), size = 3, check_overlap = TRUE)+
coord_fixed(xlim = c(-val_max - 2, val_max + 2),
ylim = c(-val_max -2 , val_max + 2))+
labs(x = NULL,
y = NULL)+
theme(panel.background = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank())
由reprex package (v2.0.0) 創建於 2021-08-24
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.