Convert plot into pixels in R











up vote
4
down vote

favorite
1












Does anyone know how to convert a simple plot into png_format without saving the picture...? In other words, I look for the most straight forward and fastest way to convert a simple plot into pixels, if it is not already (see code below)...




EDIT: Suggestion given by @hrbrmstr implemented...




## 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


Thanks for any hint...






r png rendering rgb getpixel







share|improve this question




















  • 1




    you can use the graphics devices provided by the magick package.
    – hrbrmstr
    Nov 7 at 13:18










  • Looks promising - let me try...
    – Robert
    Nov 7 at 13:27










  • Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
    – Robert
    Nov 7 at 15:13






  • 1




    FYI I tested with file="clipboard" and it's slower than both of your options.
    – Moody_Mudskipper
    Nov 7 at 16:05















up vote
4
down vote

favorite
1












Does anyone know how to convert a simple plot into png_format without saving the picture...? In other words, I look for the most straight forward and fastest way to convert a simple plot into pixels, if it is not already (see code below)...




EDIT: Suggestion given by @hrbrmstr implemented...




## 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


Thanks for any hint...






r png rendering rgb getpixel







share|improve this question




















  • 1




    you can use the graphics devices provided by the magick package.
    – hrbrmstr
    Nov 7 at 13:18










  • Looks promising - let me try...
    – Robert
    Nov 7 at 13:27










  • Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
    – Robert
    Nov 7 at 15:13






  • 1




    FYI I tested with file="clipboard" and it's slower than both of your options.
    – Moody_Mudskipper
    Nov 7 at 16:05













up vote
4
down vote

favorite
1









up vote
4
down vote

favorite
1






1





Does anyone know how to convert a simple plot into png_format without saving the picture...? In other words, I look for the most straight forward and fastest way to convert a simple plot into pixels, if it is not already (see code below)...




EDIT: Suggestion given by @hrbrmstr implemented...




## 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


Thanks for any hint...






r png rendering rgb getpixel







share|improve this question















Does anyone know how to convert a simple plot into png_format without saving the picture...? In other words, I look for the most straight forward and fastest way to convert a simple plot into pixels, if it is not already (see code below)...




EDIT: Suggestion given by @hrbrmstr implemented...




## 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


Thanks for any hint...






r png rendering rgb getpixel




r png rendering rgb getpixel






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 7 at 14:15

























asked Nov 7 at 12:47









Robert

688




688








  • 1




    you can use the graphics devices provided by the magick package.
    – hrbrmstr
    Nov 7 at 13:18










  • Looks promising - let me try...
    – Robert
    Nov 7 at 13:27










  • Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
    – Robert
    Nov 7 at 15:13






  • 1




    FYI I tested with file="clipboard" and it's slower than both of your options.
    – Moody_Mudskipper
    Nov 7 at 16:05














  • 1




    you can use the graphics devices provided by the magick package.
    – hrbrmstr
    Nov 7 at 13:18










  • Looks promising - let me try...
    – Robert
    Nov 7 at 13:27










  • Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
    – Robert
    Nov 7 at 15:13






  • 1




    FYI I tested with file="clipboard" and it's slower than both of your options.
    – Moody_Mudskipper
    Nov 7 at 16:05








1




1




you can use the graphics devices provided by the magick package.
– hrbrmstr
Nov 7 at 13:18




you can use the graphics devices provided by the magick package.
– hrbrmstr
Nov 7 at 13:18












Looks promising - let me try...
– Robert
Nov 7 at 13:27




Looks promising - let me try...
– Robert
Nov 7 at 13:27












Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
– Robert
Nov 7 at 15:13




Given that I did everything right in using the magick package, time elapsed for extracting the information needed is not reduced (see above)...
– Robert
Nov 7 at 15:13




1




1




FYI I tested with file="clipboard" and it's slower than both of your options.
– Moody_Mudskipper
Nov 7 at 16:05




FYI I tested with file="clipboard" and it's slower than both of your options.
– Moody_Mudskipper
Nov 7 at 16:05

















active

oldest

votes











Your Answer






StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














 

draft saved


draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53189750%2fconvert-plot-into-pixels-in-r%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown






























active

oldest

votes













active

oldest

votes









active

oldest

votes






active

oldest

votes
















 

draft saved


draft discarded



















































 


draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53189750%2fconvert-plot-into-pixels-in-r%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







-

這個網誌中的熱門文章

Hercules Kyvelos

圖片
Hercules Kyvelos Statistics Real name Hercules Kyvelos Nickname(s) The God Weight(s) Middleweight Light Middleweight Welterweight Height 5 ft 10 in (180 cm) Reach 72 in (183 cm) Nationality Canadian Born ( 1975-02-25 ) February 25, 1975 (age 43) Montreal, Quebec Stance Orthodox Boxing record Total fights 27 Wins 24 Wins by KO 12 Losses 3 Draws 0 No contests 0 Hercules Kyvelos Medal record Men's Boxing Representing   Canada Pan American Games 1995 Mar del Plata Welterweight Hercules Kyvelos (born February 25, 1975) is a Greek-Canadian boxer in the Welterweight division and is the former Canadian Welterweight Champion. [1] He fought at the 1996 Summer Olympics in Atlanta, Georgia. Contents 1 Early life 2 Amateur career 3 Pro career 3.1 WBO Welterweight Championship 3.2 Personal life 4 References 5 External links Early life Hercules was born in
閱讀完整內容

Tangent Lines Diagram Along Smooth Curve

圖片
7 1 I am trying to replicate a diagram and have a minimal example. I don't know how to add additional tangents between the specified points and preserve smoothness. documentclass{article} usepackage{tikz} usetikzlibrary{calc,intersections} begin{document} begin{tikzpicture} % Axes draw [->, name path=x] (-1,0) -- (11,0) node [right] {$x$}; draw [->] (0,-1) -- (0,6) node [above] {$y$}; % Origin node at (0,0) [below left] {$0$}; % Points coordinate (start) at (1,-0.8); coordinate (c1) at (3,3); coordinate (c2) at (5.5,1.5); coordinate (c3) at (8,4); coordinate (end) at (10.5,-0.8); % show the points foreach n in {start,c1,c2,c3,end} fill [black] (n) circle (2pt) node [below] {}; % join the coordinates draw [thick,name path=curve] (start) to[out=70,in=180] (c1) to[out=0,in=180]
閱讀完整內容

Yusuf al-Mu'taman ibn Hud

圖片
Main article: Taifa of Zaragoza Al-Mu'taman Ruler of Zaragoza Reign 1081–1085 Predecessor Ahmad al-Muqtadir Successor Al-Mustain II Born Zaragoza Died 1085 Full name Yusuf ibn Ahmad al-Mu'taman ibn Hūd House Banu Hud Yusuf ibn Ahmad al-Mu'taman ibn Hūd (Arabic: المؤتمن بالله يوسف إبن أحمد إبن هود ‎, al-Mutaman bi l-Lah , died c. 1085) was the third king of the Banu Hud dynasty who ruled over the Taifa of Zaragoza from 1081 to 1085. Yusuf al-Mutaman reigned during the height of power of Muslim Zaragoza , following the thriving period of his father Ahmad al-Muqtadir. He continued his father's efforts and created around him a court of intellectuals, living in the beautiful palace of Aljafería, nicknamed as "the palace of joy". Al-Mu'taman was also a scholarly king and a patron of science, philosophy and arts. As an example of a wise king, he knew astrology, philosophy, and especially mathematics, a discipline in which
閱讀完整內容