Вид хакерского решения на основе ggplot2
. Я не совсем понимаю, как вы на самом деле хотите отображать свои цвета, поскольку в вашем примере цвета в таблице не сопоставляются с именами ростов testdf
, но здесь я отобразил цвета в value
(преобразован на коэффициент).
testdf$color <- rownames(testdf)
dfm <- melt(testdf, id.vars="color")
p <- ggplot(dfm, aes(x=variable, y=color, label=value, fill=as.factor(value))) +
geom_text(colour="black") +
geom_tile(alpha=0.2)
p
Вы можете изменить, какую переменную отображают значения, используя fill=
, и вы можете изменить отображение, используя scale_fill_manual(values=[a vector of values]
.
Это говорит о том, что я был бы Любопытно видеть решение, которое создает фактическую таблицу, а не сюжет, замаскированный под стол. Возможно использование таблиц Sweave и LaTeX?
[/g0]