diff --git a/Project.toml b/Project.toml
index 487e620c..f3897790 100644
--- a/Project.toml
+++ b/Project.toml
@@ -4,6 +4,7 @@ authors = ["Douglas Bates <dmbates@gmail.com>", "Randy Lai <randy.cs.lai@gmail.c
 version = "0.14.2"
 
 [deps]
+Base64 = "2a0f44e3-6c83-55bd-87e4-b1978d98bd5f"
 CategoricalArrays = "324d7699-5711-5eae-9e2f-1d82baa6b597"
 Conda = "8f4d0f93-b110-5947-807f-2305c1781a2d"
 DataFrames = "a93c6f00-e57d-5684-b7b6-d8193f3e46c0"
diff --git a/src/RCall.jl b/src/RCall.jl
index 4cb9e3d9..9338fb10 100644
--- a/src/RCall.jl
+++ b/src/RCall.jl
@@ -24,7 +24,7 @@ export RObject,
    globalEnv,
    isnull, isna, anyna,
    robject, rcopy, rparse, rprint, reval, rcall, rlang,
-   rimport, @rimport, @rlibrary, @rput, @rget, @var_str, @R_str
+   rimport, @rimport, @rlibrary, @rput, @rget, @var_str, @R_str, @html_plot
 
 # These two preference get marked as compile-time preferences by being accessed
 # here
@@ -80,6 +80,7 @@ include("macros.jl")
 include("operators.jl")
 include("RPrompt.jl")
 include("ijulia.jl")
+include("html_plot.jl")
 include("setup.jl")
 include("deprecated.jl")
 
diff --git a/src/html_plot.jl b/src/html_plot.jl
new file mode 100644
index 00000000..c97e726e
--- /dev/null
+++ b/src/html_plot.jl
@@ -0,0 +1,84 @@
+using Base64
+
+_open_device(format::Symbol, plot_file; kargs...) = rcall(format, plot_file; kargs...)
+
+_close_device() = rcall(Symbol("dev.off"))
+
+_DEFAULT_FORMAT = :png
+
+function _open_temp_plot(format)
+	temp_plot_file = tempname()
+	if format == :svg
+		_open_device(format, temp_plot_file)
+	elseif format == :png
+		_open_device(format, temp_plot_file, width=672, height=672, units="px", res=100)
+	else
+		throw(ErrorException(
+				"`$format` is not supported, try with `png` or `svg`"
+				))
+	end
+	temp_plot_file
+end
+
+_open_temp_plot() = _open_temp_plot(_DEFAULT_FORMAT)
+
+function _close_and_show_temp_plot(temp_plot_file, format)
+	_close_device()
+	if isfile(temp_plot_file)
+		if format == :png
+			plot_base64 = Base64.base64encode(read(temp_plot_file))
+			HTML("<img src='data:image/png;base64, $plot_base64'/>")
+		elseif format == :svg
+			svg_str = read(temp_plot_file, String)
+			HTML(_fix_svg_ids(svg_str))
+		end
+	end
+end
+
+function _close_and_show_temp_plot(temp_plot_file)
+	_close_and_show_temp_plot(temp_plot_file, _DEFAULT_FORMAT)
+end
+
+
+"""
+It executes the R code and returns an `HTML` object containing the plot.
+This macro is handy to inline R plots inside Pluto notebooks.
+
+`@html_plot` can take two arguments; the first is the code block to evaluate 
+to produce the R plot. The second argument is the plot format (optional); 
+it could be `png` (the default) or `svg`. For example:
+
+```julia
+@html_plot R"plot(c(1,2,5,3,4), type='o', col='blue')"
+```
+
+To use the `svg` format:
+
+```julia
+@html_plot R"plot(c(1,2,5,3,4), type='o', col='blue')" svg
+```
+
+**NOTE:** To see a *ggplot2* plot, it is necessary to `print` it explicitly:
+
+```julia
+@html_plot R\"""
+library(ggplot2)
+
+plt <- ggplot(data = diamonds) +
+  geom_bar(
+    mapping = aes(x = cut, fill = clarity),
+    position = "fill"
+  )
+
+print(plt)
+\"""
+```
+
+"""
+macro html_plot(r_code, format...)
+	quote
+		temp_plot_file = _open_temp_plot($format...)
+		$r_code
+		_close_and_show_temp_plot(temp_plot_file, $format...)
+	end
+end
diff --git a/src/ijulia.jl b/src/ijulia.jl
index 1554f234..3d29c2cf 100644
--- a/src/ijulia.jl
+++ b/src/ijulia.jl
@@ -34,16 +34,20 @@ function ijulia_displayfile(m::MIME"image/png", f)
         display(m,d)
     end
 end
-function ijulia_displayfile(m::MIME"image/svg+xml", f)
+
+function _fix_svg_ids(svg_str::String)
     # R svg images use named defs, which cause problem when used inline, see
     # https://github.com/jupyter/notebook/issues/333
     # we get around this by renaming the elements.
+    rand_id = randstring()
+    svg_str = replace(svg_str, "id=\"glyph" => "id=\"glyph"*rand_id)
+    replace(svg_str, "href=\"#glyph" => "href=\"#glyph"*rand_id)
+end
+
+function ijulia_displayfile(m::MIME"image/svg+xml", f)
     open(f) do f
-        r = randstring()
-        d = read(f, String)
-        d = replace(d, "id=\"glyph" => "id=\"glyph"*r)
-        d = replace(d, "href=\"#glyph" => "href=\"#glyph"*r)
-        display(m,d)
+        svg_str = read(f, String)
+        display(m, _fix_svg_ids(svg_str))
     end
 end
 
diff --git a/test/html_plot.jl b/test/html_plot.jl
new file mode 100644
index 00000000..fd0426ac
--- /dev/null
+++ b/test/html_plot.jl
@@ -0,0 +1,21 @@
+@test RCall._fix_svg_ids("id=\"glyph") != "id=\"glyph"
+@test RCall._fix_svg_ids("href=\"#glyph") != "href=\"#glyph"
+
+@test RCall._DEFAULT_FORMAT == :png
+
+@test_throws ErrorException @html_plot R"plot(1, 2)" :png # : is not needed as the macro is already taking a Symbol
+@test_throws ErrorException @html_plot R"plot(1, 2)" pdf # only svg and png are supported
+
+@test @html_plot(R"plot(1, 2)") == @html_plot(R"plot(1, 2)", png) # png is the default format
+
+let png_plot = @html_plot R"plot(1, 2)" png
+    @test isa(png_plot, HTML)
+    @test startswith(png_plot.content, "<img src='data:image/png;base64,")
+    @test endswith(png_plot.content, "/>")
+end
+
+let svg_plot = @html_plot R"plot(1, 2)" svg
+    @test isa(svg_plot, HTML)
+    @test occursin("<svg ", svg_plot.content)
+    @test occursin("</svg>", svg_plot.content)
+end
diff --git a/test/runtests.jl b/test/runtests.jl
index 4174dd26..a0a039f6 100644
--- a/test/runtests.jl
+++ b/test/runtests.jl
@@ -63,6 +63,7 @@ println(R"l10n_info()")
              "macros",
              "namespaces",
              "repl",
+             "html_plot",
              ]
 
     for t in tests