दिलचस्प पोस्ट
एंड्रॉइड कैसे अपनी उंगली के बाद एक चिकनी लाइन आकर्षित करने के लिए आईडी का अर्थ क्या है? 'कंपनीनाम.फू' एक 'नेमस्पेस' है लेकिन इसे 'टाइप' जैसी प्रयोग किया जाता है जावास्क्रिप्ट – सरणी में एक ऑब्जेक्ट की तरह वर्णानुक्रम में सरणी के गुण Sqlite3 मणि त्रुटि के कारण हेरोोक परिनियोजन विफल रहे "PHP घातक त्रुटि: क्लास 'एचटीपीआरएक्वेस्ट' नहीं मिला" सेग्वे और बटन प्रोग्रामेटिक रूप से तेज एक स्ट्रिंग में एक वर्ण के सभी उदाहरणों को बदलने के लिए सबसे तेज़ तरीका ग्रहण त्रुटि संदेश देता है "जावा प्रारंभ किया गया था, लेकिन निकासी कोड = 1 लौटा" सिस्टम.नेट.एनएनएस के साथ एक डीएनएस नाम के लिए एमएक्स रिकॉर्ड कैसे प्राप्त करें? Node.js – मोंगोज़ – एक संग्रह मौजूद है या नहीं क्या स्टिडिन को टाइमस्टैम्प को प्रीपेड करने के लिए यूनिक्स सुविधा है? Django – सरल कस्टम टेम्पलेट टैग उदाहरण "आर" के साथ एक स्ट्रिंग शब्दशः से पहले क्या होता है? कैसे एक उदाहरण initializer एक निर्माता से अलग है?

एक छवि को ggplot2 में डालना

क्या यह एक राइटर छवि या ggplot2 प्लॉट पर एक ggplot2 geom_line() नीचे एक पीडीएफ छवि सम्मिलित करना संभव है?

मैं जल्दी से एक पहले से गणना की गई भूखंड पर डेटा साजिश करने में सक्षम होना चाहता था जो उत्पन्न करने के लिए लंबा समय लगता है क्योंकि यह बड़ी मात्रा में डेटा का उपयोग करता है

मैं इस उदाहरण के माध्यम से पढ़ा। हालांकि, जैसा कि यह एक वर्ष से अधिक पुराना है, मैंने सोचा था कि अब ऐसा करने का एक अलग तरीका हो सकता है।

Solutions Collecting From Web of "एक छवि को ggplot2 में डालना"

ggplot2 में ?annotation_custom कोशिश करो ?annotation_custom

उदाहरण,

 library(png) library(grid) img <- readPNG(system.file("img", "Rlogo.png", package="png")) g <- rasterGrob(img, interpolate=TRUE) qplot(1:10, 1:10, geom="blank") + annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + geom_point() 

भयानक मैगिक पैकेज से अपडेट जोड़ना:

 library(ggplot2) library(magick) library(here) # For making the script run without a wd library(magrittr) # For piping the logo # Make a simple plot and save it ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point() + ggtitle("Cars") + ggsave(filename = paste0(here("/"), last_plot()$labels$title, ".png"), width = 5, height = 4, dpi = 300) 

कारें

 # Call back the plot plot <- image_read(paste0(here("/"), "Cars.png")) # And bring in a logo logo_raw <- image_read("http://hexb.in/hexagons/ggplot2.png") # Scale down the logo and give it a border and annotation # This is the cool part because you can do a lot to the image/logo before adding it logo <- logo_raw %>% image_scale("100") %>% image_background("grey", flatten = TRUE) %>% image_border("grey", "600x10") %>% image_annotate("Powered By R", color = "white", size = 30, location = "+10+50", gravity = "northeast") # Stack them on top of each other final_plot <- image_append(image_scale(c(plot, logo), "500"), stack = TRUE) # And overwrite the plot without a logo image_write(final_plot, paste0(here("/"), last_plot()$labels$title, ".png")) 

लोगो के साथ कारें