दिलचस्प पोस्ट
बूस्ट एएसआईओ को अवरुद्ध करने के लिए समय-निर्धारण कैसे सेट करें? चेतावनी: फ़ंक्शन खतरनाक हो जाता है जावास्क्रिप्ट में स्ट्रिंग प्रॉपर्टी वैल्यू द्वारा ऑब्जेक्ट्स को क्रमबद्ध करें जावा एनआईओ फ़ाइलचैनल बनाम फाइलऑप्टस्ट्रस्ट प्रदर्शन / उपयोगिता MySQL 'ऑर्डर बाय' – अल्फ़ान्यूमेरिक को सही ढंग से सॉर्ट करना क्यों धीमी WADL तेज? मैं एक ही प्रकार के दो हॅशमार्क ऑब्जेक्ट्स को कैसे जोड़ सकता हूं? कैसे एक div के अंदर खड़ी एक छवि को संरेखित करें? जांचें कि कोई तत्व एक सरणी में मौजूद है या नहीं जब ब्राउज़र विंडो / टैब बंद हो जाता है तो एक स्थानीय स्टॉरेज आइटम को कैसे हटाएं? जावास्क्रिप्ट में फ़ंक्शन, जिसे केवल एक बार कहा जा सकता है मैं कैसे एक WPF DataGrid paginate कर सकते हैं? मैं एक नष्ट लाइन को कैसे "जीआईटी दोष" कर सकता हूं? जीथूब निजी रिपॉजिटरी के लिए जेनकिंस सीआई को प्रमाणित करें एक स्थिर स्थानीय चर सुरक्षित करने के लिए एक संकेतक लौट रहा है?

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

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

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

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

वेब के समाधान से एकत्रित समाधान "एक छवि को 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")) 

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