使用ggsave将生成的文件保存为PDF时出现问题

Question

I use ggsave to save the figure generated using ggplot2, this is how I do

figure1<-last_plot()
ggsave(figure1,file="/home/user1/figure1.png",width=15,height=3)

These two lines of code successfully save the figure as png file.

However, when I tried to save it as pdf file,

 ggsave(figure1,file="/home/user1/figure1.pdf",width=15,height=36)

The saved pdf file is just a blank page. What's the problem? Thanks a lot.

Answer 1

library(ggplot2)

ggplot(data=mtcars, aes(x=cyl, y=hp))+
  geom_point()

figure1<-last_plot()
ggsave(figure1,file="figure1.png",width=15,height=3)
ggsave(figure1,file="figure1.pdf",width=15,height=3)

# works with R 2.15

Answer 2

You can try to save it using pdf() command:

library(ggplot2) 
pdf(file="figure.pdf",width=15,height=3)
figure <- ggplot(data=mtcars, aes(x=cyl, y=hp)) + geom_point()
print(figure)
dev.off()

I supose that it also doesn't work.

Solution (workaround) that should work is:

1) save it to svg file

ggplot(data=mtcars, aes(x=cyl, y=hp)) + geom_point()
ggsave("figure.svg")

2) then convert it to pdf. Eg in Linux

rsvg-convert -f pdf -o figure.pdf figure.svg