Преобразовать график в пиксели в R - PullRequest
Новая
       45

Преобразовать график в пиксели в R

0 голосов
/ 07 ноября 2018

Кто-нибудь знает, как преобразовать простой график в png_format без сохранения изображения ...? Другими словами, я ищу наиболее простой и быстрый способ преобразования простого графика в пиксели, если это еще не сделано (см. Код ниже) ...

РЕДАКТИРОВАТЬ: Предложение @hrbrmstr выполнено ... 

## SolutionOne

library(png)
testONE <- system.time({
  ## Save plot as .png
  tmp <- tempfile()
  png(tmp, width = 800, height = 600, res = 72)
  plot(1:10, pch = 19, col = "yellowgreen", cex = 20)
  dev.off()
  ## Read .png
  asPixels <- readPNG(tmp)
  ## Information needed (e.g. RGB)
  dim(asPixels)
  pixONE <- asPixels[300, 400, 1:3]
})

## SolutionTwo

library(magick)
testTWO <- system.time({
  ## Produce image using graphics device
  fig <- image_graph()
  plot(1:10, pch = 19, col = "yellowgreen", cex = 20)
  ## Information needed
  pixTWO <- image_data(fig)[1:3, 400, 300]
  dev.off()
})

testONE # elapsed time: 0.064
testTWO # elapsed time: 0.164

Спасибо за любую подсказку ...

...