ggplot2文件输出问题

Question

夜。我开始了解ggplot2并设法创建了一堆今天的情节。 但是我遇到了两个障碍。第一个是自动创建绘图时输出的显示方式。 有人可以请我直截了当吗？

当我使用...

手动运行图表时

ggplot(l.Exploration$Data,aes_string(x="domain",y="WP0", color="domain")) +
    geom_point(position=position_jitter(width=0.3), alpha=0.4) +
    geom_boxplot(size=1,alpha=0.9, outlier.size=1, outlier.shape=21, width=0.75, notch=TRUE) +
    facet_wrap(~Exchange, ncol=2) +
    ggtitle(plotTitle) +
    theme(plot.title=element_text(size=rel(1.5), lineheight=.9, face="bold", colour="black")) +
    xlab("Exchange") + 
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
    ylab("Weighted Price ($USD)") 

我得到了一个整洁的情节......

但是当我将绘图创建为循环的一部分并让它们自动保存时，它们看起来很糟糕（是的，我知道aes_string(...,Y="WP0")是应该使用i但是我无法解决这个问题。）

第二个问题是如何为Y正确指定aes_string。（我将把它移到另一个问题）

 l_ply(-3:3, function(i){
  print(i)
  path     <- "~/Documents/1. Dev/r/data/plot"
  filename <- paste(path,"/Story_Price",i,".png",sep="")
  yCol  <- paste("l.Exploration$Data$WP",i,sep="")

  if(i < 0)         { plotTitle <- paste("Story Publication Against Price\n[Lead = ",i,"]",sep="") 
  } else if (i==0)  { plotTitle <- paste("Story Publication Against Price",sep="") 
  } else if (i>0)   { plotTitle <- paste("Story Publication Against Price\n[Lag = ",i,"]",sep="") 
  }

  ggplot(l.Exploration$Data,aes_string(x="domain",y="WP0", color="domain")) +
    geom_point(position=position_jitter(width=0.3), alpha=0.4) +
    geom_boxplot(size=1,alpha=0.9, outlier.size=1, outlier.shape=21, width=0.75, notch=TRUE) +
    facet_wrap(~Exchange, ncol=2) +
    ggtitle(plotTitle) +
    theme(plot.title=element_text(size=rel(1.5), lineheight=.9, face="bold", colour="black")) +
    xlab("Exchange") + 
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
    ylab("Weighted Price ($USD)") 

    dev.print(png, filename,res=600, height=1600, width=2500, units="px")
})

Answer 1

让我们解决尺寸问题，这个问题解决了您提出的两个不同问题之一。

<强>问题： dev.print的参数为您提供了大约4 x 3的图表。图形无法适应此空间，因此它们会被切断。

ggplot2有自己的保存命令ggsave，可以更轻松地控制尺寸。

<强>解决方案： 尝试用{：}替换dev.print

ggsave(file = "filename.png", dpi = 600, width = 8, height = 6, units = "in")

dpi越大，图形越大。作为ggsave情节的一部分，将此问题与ggplot2中的其他参数一起进行测试，您将找到一种能够以明显的方式保存的适合度。