这里有一个问题:为分类变量的三重组合绘制值的最佳方法是什么?
这是我在 R 中得到的:
library(tidyverse)
library(ggtern)
df_person <- tibble( name = c( 'Alice', 'Bob', 'Carla', 'Dave', 'Eve' ) ) %>%
rowid_to_column( 'id_person' )
# generate all trios of persons (5 choose 3)
df <- df_person %>% select( name ) %>%
map_df( function(x) { combn(x, 3, paste, collapse = '_') } ) %>%
separate( name, c('person1', 'person2', 'person3') ) %>%
mutate_all(~ as.factor(.) )
# assign a value to each trio
df$val <- runif( nrow(df) )
# generate ticks and labels for axes
axis <- df_person %>% mutate( fct = as.factor(name) ) %>%
mutate( tick = as.numeric(fct) / 5 )
ggtern( df, aes(x = as.numeric(person1),
y = as.numeric(person2),
z = as.numeric(person3),
color = val) ) +
geom_point() +
scale_T_continuous( breaks = axis$tick, labels = axis$name ) +
scale_L_continuous( breaks = axis$tick, labels = axis$name ) +
scale_R_continuous( breaks = axis$tick, labels = axis$name ) +
labs( x = 'person1', y = 'person2', z = 'person3' )
我希望有十个点位于网格线相交的位置(因为这些是分类变量)。
理想情况下,我想生成一个类似热图的图,即三角形瓷砖而不是点。
非常感谢任何帮助!