网格排列在ggplot2中并修复ylabs的变量名称

Question

我使用ggplot2绘制所有变量，y轴标签是变量名。然后我在网格上安排ggplot图。

得到的最终绘图具有所有较小的图，其中最终的绘图对象被复制。我也希望正确命名y轴标签。

以下是我用于此目的的代码。

require(ggplot2)
require(gridExtra)

data(iris)
plots = list()
for(i in 1:4){
  grf = qplot(x = 1:nrow(iris), y = iris[ ,i], 
              color = iris$Species, ylabs = colnames(iris)[i])
  plots = c(plots, list(grf))
}

do.call(grid.arrange, plots)

我谦卑地跪在角落里，急切地等待一个比我更聪明的社区的回应。

修改：忘记提及我需要使用ggsave

列表中的图表进行保存

Answer 1

我认为这就是你要求的...... 请注意，您必须使用aes_string（）函数才能使图表正确显示

plots = list()
cols_to_plot <- colnames(iris)

for(i in 1:4){

  grf = ggplot(data = iris, aes_string(x = "1:nrow(iris)", y = cols_to_plot[i], color = "Species")) + 
    geom_point() +
    ylab(colnames(iris)[i])
  plots = c(plots, list(grf))
}    
do.call(grid.arrange, plots)

产生以下内容：

GGplot2有一些非常棒的功能（facet_wrap）用于做一些你似乎正在尝试的事情。您需要正确排列数据以便利用它（想想＆＃34;长和瘦的数据＆＃34;）。

tidyr能够以ggplot2和ggvis软件包轻松接受的方式优化数据整形。

这是它显示的......

require(ggplot2)
require(tidyr) # to reshape the data
require(dplyr) # to add the column of rownumbers.  not really necessary at all

iris %>% 
  mutate(rowNum = 1:nrow(.)) %>% #add the column of row numbers
  gather(Measure, Value, -(Species:rowNum)) %>% #from tidyr package - this is what makes it long.  Read the help on `gather` and `spread`
  ggplot(aes(x = rowNum, y = Value, group = Species, color = Species)) +
  geom_point() +
  facet_wrap(~Measure, nrow = 2) # the nice n' easy part.  Automatically plops it in your four separate charts based on the "Measure" variable (which was created when I made the data "long" instead of "wide").