R 在小项目中处理日期和其他问题

我正在为我的班级做一个小项目。我从一个网站上获得了一组数据：

我使用下面的代码成功导入了数据

disease<- read.csv('Added Source information for vaccine map-3.csv')

---

疾病也许这可以作为一个开始：

loc <- "https://docs.google.com/spreadsheet/pub?hl=en_US&hl=en_US&key=0AjivqRkNvfzudElKUDJKdlkya29wS2VUTlVFZlBoVVE&single=true&gid=0&output=csv"
dat <- read.csv(
    loc, 
    na.string=c("Sya", "unknown", "NA"), 
    colClasses=c(
        rep("character", 3), 
        rep("numeric", 2), 
        "character", 
        rep("numeric", 2),
        rep("character", 3)
    )
)
str(dat)

要使用“日期”列，第一个想法是将“开始月”和“可选结束月”拆分为两列：

start_date <- function(d) strsplit(d, "-")[[1]][[1]]
start_date <- Vectorize(start_date)

end_date <- function(d) {
    spl <- strsplit(d, "-")[[1]]
    spl[[length(spl)]]
}
end_date <- Vectorize(end_date)    

dat <- transform(dat,
    StartDate=start_date(Date),
    EndDate=end_date(Date),
    stringsAsFactors=FALSE
)

当你“开始学习R”时，你做的第一件事是什么？我介绍了Louis Torgo和Jeffrey Stanton的书。学习。当我键入你的第一个代码时，我犯了一个错误“文件中有错误（文件，“rt”）：无法打开连接另外：警告消息：文件中有“rt”）：不支持的URL方案”然后我在驱动器中键入了文件目录。尽管如此，它还是在“方法中的错误：：as（数据[[i]]，colClasses[i]）：没有将“character”强制为“3”的方法或默认值下面引发了一个错误。我现在要检查其他代码。查看（子集（dat，Category==“麻疹”））此代码适合我，谢谢。但我还有一个问题。我想绘制麻疹和病例，所以我输入了代码库（ggplot2）qplot（子集（疾病，类别=“麻疹”）、病例，数据=疾病，geom=“line”），得到的错误是“不知道如何为data.frame类型的对象自动选择比例。默认为连续错误：美学的长度必须为1，或者与dataProblems的长度相同：subset（disease，Category==“麻疹”）“如果所有操作都失败，请下载文件并在本地加载（我相信您已经成功完成了此操作。）尝试在ggplot上搜索问题或在plotting上提出新问题。
start_date <- function(d) strsplit(d, "-")[[1]][[1]]
start_date <- Vectorize(start_date)

end_date <- function(d) {
    spl <- strsplit(d, "-")[[1]]
    spl[[length(spl)]]
}
end_date <- Vectorize(end_date)    

dat <- transform(dat,
    StartDate=start_date(Date),
    EndDate=end_date(Date),
    stringsAsFactors=FALSE
)

str(subset(dat, StartDate=="12/2013"))