Question

我需要在许多数据集（例如df.p2，df.p3）上运行代码以获得图表。以下是我拥有的数据格式。

< df.p1
  Date    Sales
Jan 2011  1000
Feb 2011  1120
Mar 2011  1050
.
.
.

像这样，我有一个数据帧列表，现在我想循环运行以下代码。

ggplot(df.p1, aes(Date,Sales))+
      geom_line()+
     xlab("Month") + ylab("Sales") + 
     ggtitle("Sales-Product1")

Answer 1

数据：

dates <- as.Date(as.Date("2011-12-30"):as.Date("2012-05-04"), origin="1970-01-01")
Date<-c()
Sales<-c()
    for (i in 1:10) {
    assign(paste0("df.p",i),cbind.data.frame(Date=sample(dates,5),Sales=rnorm(5,1000,100)    )) }

功能：

lapply(paste0("df.p",1:10), function(x){ggplot(data=eval(parse(text = x)) ,aes(Date,Sales))+geom_line()+xlab("Month")+ylab("Sales")+ggtitle(paste0("Sales-Product for dataset ",x))})

对不同的数据集重复相同的操作

1 个答案: