r - 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 绘图的一部分进行测试，您将找到一个以可呈现的方式保存的合适对象。