Styjun

What is wrong with this proof that symmetric matrices commute?

Is it possible to 'live off the sea'

Why doesn't Adrian Toomes give up Spider-Man's identity?

Compiling c files on ubuntu and using the executable on Windows

How does an ordinary object become radioactive?

What do abbreviations in movie scripts stand for?

Should I compare a std::string to "string" or "string"s?

Should an arbiter claim draw at a K+R vs K+R endgame?

What makes an item an artifact?

Is using haveibeenpwned to validate password strength rational?

When conversion from Integer to Single may lose precision

eval() in Lightning Web Components

What is the actual quality of machine translations?

Generate a Graeco-Latin square

Is it a problem if <h4>, <h5> and <h6> are smaller than regular text?

Passing multiple files through stdin (over ssh)

1980s live-action movie where individually-coloured nations on clouds fight

How to signal to my players that the following part is supposed to be played on fast forward?

Impedance ratio vs. SWR

Winning Strategy for the Magician and his Apprentice

Grover algorithm for a database search: where is the quantum advantage?

This riddle is not to see but to solve

SQL counting distinct over partition

Are there any instruments that don't produce overtones?

R plot not saving as png, please check my code

How to make a great R reproducible exampleHow to save a plot as image on the disk?Plot two graphs in same plot in RCalling ggplot from Rserve. Blank png image of 1KBggplot2 stats=“identity” and stacking colors in bar plot gives “striped” bar chartorder data to plot barplot in ggplot2ggplot: line plot for discrete x-axisUsing ggplot to plot a map from a matrixggplot2: Grouping bars of 3 way interaction stacked bar plotR Plot Histogram On Dataframe with dates-time objectStruggling to add legend to box plot in RStacked Bar Graph of Count of Variables within date bins

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty height:90px;width:728px;box-sizing:border-box;

0

I have written code for a plot which is correct, yet I cannot save it as a png file. I used the png() function before I plotted and used dev.off() after and it won't save. I didn't include the reading of the data and creation of variables btw. (Mac)

I've tried everything, nothing works. Is there a way to save fullplot?

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

I expected a file called plot3.png but it wasn't there

r

share|improve this question

edited Mar 24 at 17:24

Sujay Nair

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Hi. Please make sure to review how to make a reproducible example and what constitutes a good SO question. This question is missing data and package loading
  
  – Conor Neilson
  Mar 24 at 17:15
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  To save a ggplot you can use ggsave(filename = "plot_3.png", plot = 'p1', device = 'png')
  
  – Conor Neilson
  Mar 24 at 17:17
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  try if adding a line with "fullplot" before "dev.off()" helps
  
  – Oka
  Mar 24 at 17:44
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Try adding print(fullplot) prior to the dev.off() function call.
  
  – Dave2e
  Mar 24 at 21:31
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Possible duplicate of How to save a plot as image on the disk?
  
  – divibisan
  Apr 2 at 17:50
  

  
  
  
  

add a comment | 

0

I have written code for a plot which is correct, yet I cannot save it as a png file. I used the png() function before I plotted and used dev.off() after and it won't save. I didn't include the reading of the data and creation of variables btw. (Mac)

I've tried everything, nothing works. Is there a way to save fullplot?

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

I expected a file called plot3.png but it wasn't there

r

share|improve this question

edited Mar 24 at 17:24

Sujay Nair

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Hi. Please make sure to review how to make a reproducible example and what constitutes a good SO question. This question is missing data and package loading
  
  – Conor Neilson
  Mar 24 at 17:15
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  To save a ggplot you can use ggsave(filename = "plot_3.png", plot = 'p1', device = 'png')
  
  – Conor Neilson
  Mar 24 at 17:17
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  try if adding a line with "fullplot" before "dev.off()" helps
  
  – Oka
  Mar 24 at 17:44
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Try adding print(fullplot) prior to the dev.off() function call.
  
  – Dave2e
  Mar 24 at 21:31
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Possible duplicate of How to save a plot as image on the disk?
  
  – divibisan
  Apr 2 at 17:50
  

  
  
  
  

add a comment | 

I have written code for a plot which is correct, yet I cannot save it as a png file. I used the png() function before I plotted and used dev.off() after and it won't save. I didn't include the reading of the data and creation of variables btw. (Mac)

I've tried everything, nothing works. Is there a way to save fullplot?

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

I expected a file called plot3.png but it wasn't there

r

share|improve this question

edited Mar 24 at 17:24

Sujay Nair

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
 + geom_bar(stat="identity", color="black"
 , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

share|improve this question

edited Mar 24 at 17:24

Sujay Nair

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

share|improve this question

edited Mar 24 at 17:24

Sujay Nair

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

asked Mar 24 at 17:10

Sujay NairSujay Nair

32

asked Mar 24 at 17:10

Sujay NairSujay Nair

32