找整理了下资料，你看看，希望对你有帮助

             你下载一本资料http://down.51cto.com/data/957270

             导入Excel数据请参考书中的2.3.3，　使用SQL语句操作数据框请参考书中的4.11节

             你可以根据自己的功能分写成不同的脚本，使用的时候直接使用就可以了

   　我使用了以下方法：

    install.packages("XLConnect")

    library("XLConnect")

    这里有weatherday.xlsx, 我放在workspace下面, getwd()获取workspace, setwd("E:/")设置workspace

    　至此，已把所有数据读出，见下图

    wKioL1Y6-eCgvpX2AAJ5_wDKbl4940.jpg

使用SQL语句操作数据框

           install.packages("sqldf")  安装sqldf的库文件

           library("sqldf") 加载sqldf库

          

          newdf <- sqldf("select * from df where y = 1963 and d = 10 order by m",row.names=TRUE)将执行结果放到一个新的数据框newdf中

          View(newdf) 查看newdf的内容

    

          a <- sqldf("select avg(mt) as mt_avg, avg(p) as p_avg from df where y = 1963 and d <= 10 ", row.names=TRUE)

          View(a)

  总共的执行代码如下：

    install.packages("XLConnect")

    install.packages("sqldf")

    library("XLConnect")

    library("sqldf")

    setwd("E:/")

    df <- readWorksheetFromFile("weatherday.xlsx",sheet=1,header=TRUE)

    newdf <- sqldf("select * from df where y = 1963 and d = 10 order by m",row.names=TRUE)

    View(newdf)

    a <- sqldf("select avg(mt) as mt_avg, avg(p) as p_avg from df where y = 1963 and d <= 10 ", row.names=TRUE)

    View(a) 

    结果显示最后一次的View结果

最后一段代码中的 1963,10 你可以用变量代替，如下，每次改动year,day的值即可

            

install.packages("XLConnect")

install.packages("sqldf")

library("XLConnect")

library("sqldf")

year <- 1963

day <- 10

setwd("E:/")

df <- readWorksheetFromFile("weatherday.xlsx",sheet=1,header=TRUE)

newdf <- sqldf("select * from df where y = year and d = day order by m",row.names=TRUE)

View(newdf)

a <- sqldf("select avg(mt) as mt_avg, avg(p) as p_avg from df where y = year and d <= day ", row.names=TRUE)

View(a)