显示/打印带注释数据框的颜色

Question

我正在寻找一种打印数据框的方法，该数据框的颜色值分配给类别，就像传奇一样。

> color.df
  name   color
1    a #E41A1C
2    b #AA3B50
3    c #705C83

我想要的输出是一个渲染表，它有两列，一列是名字，另一列是相应颜色代码。

Answer 1

你可以使用legend功能，虽然它不是真正的桌子。下面是一个空白图的例子：

color.df = read.table(text="name  color
  a     '#E41A1C'
  b     '#AA3B50'
  c     '#705C83'", header=T)

#blank plot
plot(1, type="n", axes=F, xlab="", ylab="")

legend("center", fill=color.df$color, legend=color.df$name, cex=5)