如何在R语言中基于十六进制颜色字符串的数据框生成图像

这里提供两种直接可行的方法，分别使用ggplot2（更直观）和base R的grid包（无额外依赖）来实现需求：

方法一：使用ggplot2包 #

ggplot2的瓦片图功能可以轻松实现这种颜色网格的绘制，步骤如下：

1. 首先加载所需包并将宽格式数据转换为长格式：

library(ggplot2)
library(tidyr)
library(dplyr)

# 转换为长格式并添加坐标信息
df_long <- df %>%
  mutate(y = row_number()) %>%
  pivot_longer(cols = starts_with("col"), names_to = "x_col", values_to = "color") %>%
  mutate(x = as.integer(sub("col", "", x_col)))

2. 绘制颜色网格：

ggplot(df_long, aes(x = x, y = y)) +
  geom_tile(fill = df_long$color, color = NA) +
  scale_y_reverse() +  # 反转y轴，让数据框第一行显示在图像顶部
  theme_void()  # 移除所有冗余元素，只保留颜色块

方法二：使用base R的grid包 #

如果不想安装额外包，可以使用内置的grid包直接绘制每个色块：

library(grid)

# 将数据框转为矩阵
color_mat <- as.matrix(df)
rows <- nrow(color_mat)
cols <- ncol(color_mat)

# 初始化绘图设备
grid.newpage()

# 循环绘制每个颜色块
for (row in 1:rows) {
  for (col in 1:cols) {
    grid.rect(
      x = (col - 0.5)/cols,
      y = (rows - row + 0.5)/rows,
      width = 1/cols,
      height = 1/rows,
      gp = gpar(fill = color_mat[row, col], col = NA)
    )
  }
}

为什么之前的尝试失败？ #

• image()函数要求输入数值矩阵，用于映射到预设的颜色调色板，无法直接识别十六进制颜色字符串。
• htmlTable是用于生成带样式的HTML表格，并非生成图像，因此无法得到你需要的可视化结果。

内容的提问来源于stack exchange，提问作者mysteRious