दिलचस्प पोस्ट
क्या बूल एक देशी सी प्रकार है? NoClassDefFoundEntelliJ आईडीईए उन्नयन के बाद त्रुटि Cython एक EXE करने के लिए संकलन कर सकते हैं? C # (.NET) के लिए हेडलेस ब्राउज़र? Asp.net MVC पैरामीटर के रूप में नियंत्रक को देखने से JSON ऑब्जेक्ट को कैसे पास करें I Xcode 7 में ENABLE_BITCODE क्या करता है? कैसे एक UIImageView पैमाने आनुपातिक पैमाने पर? जावा का उपयोग कर सेलेनियम वेबड्राइवर में iframe को कैसे प्रबंधित करें जावा का उपयोग कर मैं एक मल्टीपार्ट / फॉर्म-डाटा पोस्ट अनुरोध कैसे कर सकता हूं? स्कला की छुपी हुई विशेषताओं Stdio.h कार्य कार्यान्वयन कहाँ खोजना है? एंड्रॉइड में हर अलग स्क्रीन आकार के लिए dimens.xml को कैसे परिभाषित किया जाए? किसी बिंदु पर ज़ूम इन करें (स्केल और अनुवाद का उपयोग करके) एंड्रॉइड में सही आकार के साथ बिटमैप को डिकोड करना ओवरराइड किए गए विधियों के बदले में भिन्न हो सकते हैं?

एक छवि को 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")) 

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