У меня есть три фактора (set1, set2 и set3) для каждого из примерно 50 человек. Значениями для set1, set2 и set3 являются "A", "B", "C". Я хотел бы сделать графический рисунок этих данных, но легенда показывает цвет, связанный со значениями (например, A = 'красный', B = 'синий', C = 'черный'). Любые предложения?
Спасибо.
Я решил, что было бы легко подходить к этому с ggplot2 (для меня все равно):
#recreate a data set
dat <- data.frame(person=factor(paste0("id#", 1:50),
levels =rev(paste0("id#", 1:50))), matrix(sample(LETTERS[1:3], 150, T), ncol = 3))
library(ggplot2); library(reshape2)
dat3 <- melt(dat, id.var = 'person')
ggplot(dat3, aes(variable, person)) + geom_tile(aes(fill = value),
colour = "white") + scale_fill_manual(values=c("red", "blue", "black"))
Аналогичный сюжет также можно сделать с базовой графикой. Вот один метод с использованием базовой функции image. Этот образец имеет категориальный ответ, а не числовой.
dx <- data.frame( Tasks = c('1','2','3','4'),
Phase1 = c('Done','Done','Done','WIP'),
Phase2 = c('WIP','Done','Done',''),
Phase3 = c('','WIP','Done',''))
ff<-factor(as.matrix(dx[,2:4]),
levels=c("Done","WIP",""),
labels=c("done","wip","-empty-")
)
fx<-matrix(as.numeric(ff), ncol=ncol(dx)-1)
#use labels to assign colors
col<-c(done="darkgreen",wip="orange","-empty-"="black")
imgflip<-function(x) {t(x[nrow(x):1,])}
image(imgflip(fx),
breaks=(1:(nlevels(ff)+1))-.5,
col=col[levels(ff)],
xaxt="n", yaxt="n"
)
axis(2, at=seq(0,1,length.out=nrow(dx)), labels=rev(paste("Task",dx$Tasks)), las=2)
axis(3, at=seq(0,1,length.out=length(names(dx))-1), labels=names(dx)[-1])
который создаст это изображение.
