代码之家 › 专栏 › 技术社区 › Alper Yilmaz

从R中的RGB数据帧保存多个PNG

purrr tidyverse rgb png r

Alper Yilmaz · 技术社区 · 6 年前

我有一个如下所示的数据框。我想在此数据框中保存两个png文件,命名基于 sample 柱 1.png 和 2.png 使用各列上的rgb值,两者都是2x3像素大。

据我所知,我需要为每个通道准备一个3d阵列,然后使用 writePNG 函数将每个数组另存为PNG文件,但在为每个示例嵌套rgb值后,我陷入了困境。

任何帮助都将不胜感激 tidyverse 和 purrr 这样会更受欢迎;)

数据框:

| sample| pixel| red| green| blue|
|------:|-----:|---:|-----:|----:|
|      1|     1| 255|     0|    0|
|      1|     2| 255|    32|    0|
|      1|     3| 255|    64|    0|
|      1|     4| 255|    96|    0|
|      1|     5| 255|   128|    0|
|      1|     6| 255|   159|    0|
|      2|     1| 255|   191|    0|
|      2|     2| 255|   223|    0|
|      2|     3| 255|   255|    0|
|      2|     4| 255|   255|   42|
|      2|     5| 255|   255|  128|
|      2|     6| 255|   255|  213|

以下是生成此数据帧的代码:

test_df <- data_frame(sample=rep(1:2,each=6), pixel=rep(1:6,2)) %>% 
  bind_cols(as_data_frame(t(col2rgb(heat.colors(12)))))

1 回复 | 直到 6 年前

Aurèle 6 年前

例如:

library(purrr)

test_df %>% 
  split(.$sample) %>% 
  setNames(paste0(names(.), ".png")) %>% 
  map(~ array(c(.x$red, .x$green, .x$blue), c(2, 3, 3)) / 255) %>%
  iwalk(png::writePNG)

或者以更“循序渐进”的方式:

test_df %>% 
  split(.$sample) %>% 
  setNames(paste0(names(.), ".png")) %>% 
  map(`[`, 3:5) %>% 
  map(as.matrix) %>% 
  map(`/`, 255) %>% 
  map(array, c(2, 3, 3)) %>% 
  iwalk(png::writePNG)

或者没有tidyverse:

z <- split(test_df, test_df$sample)
mapply(function(x, y) {
  png::writePNG(array(as.matrix(x[3:5]), c(2, 3, 3)) / 255, paste0(y, ".png"))
}, z, names(z))

推荐文章

MCP_infiltrator · 在“tible”中添加一列,给出其列表位置

2 年前

sbac · 如何对R中数据帧的几列应用统计测试

2 年前

John-Henry · 使用“purrr::map”将“lm”对象循环到“broom::tidy”`

2 年前

deschen · 将列乘以向量的tidyverse解决方案

2 年前

Nuller · 无法对嵌套数据中的列进行子集设置。框架

2 年前

chrischi · R Purrr-系数最高

6 年前

Richard Herron · 从purr的pmap()调用var()返回NA

6 年前

Davide Lorino · 嵌套数据帧上的函数向量算法

6 年前

âÊÊá¸á¸½á¸ · 如何使用purrr从两个元素的列表中提取元素?

6 年前

andrew_reece · map\u dfr:填充。具有字符串标签的id列,而不是没有字符串标签的索引。x已命名

6 年前