├── .Rbuildignore ├── .gitignore ├── .travis.yml ├── DESCRIPTION ├── LICENSE ├── NAMESPACE ├── R ├── DataTaipei.R ├── dataSetMetadataSearch.R ├── datalist.R ├── parse.R ├── resourceAquire.R └── resourceMetadataSearch.R ├── README.md ├── appveyor.yml ├── man ├── dataSetMetadataSearch.Rd ├── getResources.Rd ├── resourceAquire.Rd └── resourceMetadataSearch.Rd ├── tests ├── test-all.R └── testthat │ ├── .travis.yml │ └── test-youbike.R └── vignettes ├── DataTaipei.Rmd ├── estate.Rmd ├── img └── dataTaipei_R.png ├── weather.Rmd └── youbike.Rmd /.Rbuildignore: -------------------------------------------------------------------------------- 1 | ^.*\.Rproj$ 2 | ^\.Rproj\.user$ 3 | .gitignore 4 | .git 5 | appveyor.yml 6 | .travis.yml -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | .Rproj.user 2 | .Rhistory 3 | .RData 4 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | language: r 2 | 3 | sudo: required 4 | 5 | r_packages: 6 | - stringi 7 | 8 | r_github_packages: 9 | - jimhester/robustr 10 | - jimhester/covr 11 | 12 | before_script: 13 | - Rscript -e "library(stringi);stri_install_icudt()" 14 | 15 | after_success: 16 | - Rscript -e 'library(covr); coveralls()' 17 | 18 | notifications: 19 | email: 20 | on_success: change 21 | on_failure: change 22 | 23 | -------------------------------------------------------------------------------- /DESCRIPTION: -------------------------------------------------------------------------------- 1 | Package: DataTaipei 2 | Type: Package 3 | Title: R Client for http://data.taipei 4 | Version: 0.1 5 | Date: 2015-05-09 6 | Author: Wush Wu, John Chen and Will Chang 7 | Maintainer: Wush Wu 8 | Description: R Client for http://data.taipei 9 | License: GPL (>= 2) 10 | Imports: XML, RJSONIO, httr, magrittr, data.table 11 | Suggests: ggmap, dplyr, googleVis, memisc, xtable, forecast, dygraphs, xts, testthat, knitr, rmarkdown 12 | VignetteBuilder: knitr 13 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 2, June 1991 3 | 4 | Copyright (C) 1989, 1991 Free Software Foundation, Inc., 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | Preamble 10 | 11 | The licenses for most software are designed to take away your 12 | freedom to share and change it. By contrast, the GNU General Public 13 | License is intended to guarantee your freedom to share and change free 14 | software--to make sure the software is free for all its users. This 15 | General Public License applies to most of the Free Software 16 | Foundation's software and to any other program whose authors commit to 17 | using it. (Some other Free Software Foundation software is covered by 18 | the GNU Lesser General Public License instead.) You can apply it to 19 | your programs, too. 20 | 21 | When we speak of free software, we are referring to freedom, not 22 | price. Our General Public Licenses are designed to make sure that you 23 | have the freedom to distribute copies of free software (and charge for 24 | this service if you wish), that you receive source code or can get it 25 | if you want it, that you can change the software or use pieces of it 26 | in new free programs; and that you know you can do these things. 27 | 28 | To protect your rights, we need to make restrictions that forbid 29 | anyone to deny you these rights or to ask you to surrender the rights. 30 | These restrictions translate to certain responsibilities for you if you 31 | distribute copies of the software, or if you modify it. 32 | 33 | For example, if you distribute copies of such a program, whether 34 | gratis or for a fee, you must give the recipients all the rights that 35 | you have. You must make sure that they, too, receive or can get the 36 | source code. And you must show them these terms so they know their 37 | rights. 38 | 39 | We protect your rights with two steps: (1) copyright the software, and 40 | (2) offer you this license which gives you legal permission to copy, 41 | distribute and/or modify the software. 42 | 43 | Also, for each author's protection and ours, we want to make certain 44 | that everyone understands that there is no warranty for this free 45 | software. If the software is modified by someone else and passed on, we 46 | want its recipients to know that what they have is not the original, so 47 | that any problems introduced by others will not reflect on the original 48 | authors' reputations. 49 | 50 | Finally, any free program is threatened constantly by software 51 | patents. We wish to avoid the danger that redistributors of a free 52 | program will individually obtain patent licenses, in effect making the 53 | program proprietary. To prevent this, we have made it clear that any 54 | patent must be licensed for everyone's free use or not licensed at all. 55 | 56 | The precise terms and conditions for copying, distribution and 57 | modification follow. 58 | 59 | GNU GENERAL PUBLIC LICENSE 60 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 61 | 62 | 0. This License applies to any program or other work which contains 63 | a notice placed by the copyright holder saying it may be distributed 64 | under the terms of this General Public License. The "Program", below, 65 | refers to any such program or work, and a "work based on the Program" 66 | means either the Program or any derivative work under copyright law: 67 | that is to say, a work containing the Program or a portion of it, 68 | either verbatim or with modifications and/or translated into another 69 | language. (Hereinafter, translation is included without limitation in 70 | the term "modification".) Each licensee is addressed as "you". 71 | 72 | Activities other than copying, distribution and modification are not 73 | covered by this License; they are outside its scope. The act of 74 | running the Program is not restricted, and the output from the Program 75 | is covered only if its contents constitute a work based on the 76 | Program (independent of having been made by running the Program). 77 | Whether that is true depends on what the Program does. 78 | 79 | 1. You may copy and distribute verbatim copies of the Program's 80 | source code as you receive it, in any medium, provided that you 81 | conspicuously and appropriately publish on each copy an appropriate 82 | copyright notice and disclaimer of warranty; keep intact all the 83 | notices that refer to this License and to the absence of any warranty; 84 | and give any other recipients of the Program a copy of this License 85 | along with the Program. 86 | 87 | You may charge a fee for the physical act of transferring a copy, and 88 | you may at your option offer warranty protection in exchange for a fee. 89 | 90 | 2. You may modify your copy or copies of the Program or any portion 91 | of it, thus forming a work based on the Program, and copy and 92 | distribute such modifications or work under the terms of Section 1 93 | above, provided that you also meet all of these conditions: 94 | 95 | a) You must cause the modified files to carry prominent notices 96 | stating that you changed the files and the date of any change. 97 | 98 | b) You must cause any work that you distribute or publish, that in 99 | whole or in part contains or is derived from the Program or any 100 | part thereof, to be licensed as a whole at no charge to all third 101 | parties under the terms of this License. 102 | 103 | c) If the modified program normally reads commands interactively 104 | when run, you must cause it, when started running for such 105 | interactive use in the most ordinary way, to print or display an 106 | announcement including an appropriate copyright notice and a 107 | notice that there is no warranty (or else, saying that you provide 108 | a warranty) and that users may redistribute the program under 109 | these conditions, and telling the user how to view a copy of this 110 | License. (Exception: if the Program itself is interactive but 111 | does not normally print such an announcement, your work based on 112 | the Program is not required to print an announcement.) 113 | 114 | These requirements apply to the modified work as a whole. If 115 | identifiable sections of that work are not derived from the Program, 116 | and can be reasonably considered independent and separate works in 117 | themselves, then this License, and its terms, do not apply to those 118 | sections when you distribute them as separate works. But when you 119 | distribute the same sections as part of a whole which is a work based 120 | on the Program, the distribution of the whole must be on the terms of 121 | this License, whose permissions for other licensees extend to the 122 | entire whole, and thus to each and every part regardless of who wrote it. 123 | 124 | Thus, it is not the intent of this section to claim rights or contest 125 | your rights to work written entirely by you; rather, the intent is to 126 | exercise the right to control the distribution of derivative or 127 | collective works based on the Program. 128 | 129 | In addition, mere aggregation of another work not based on the Program 130 | with the Program (or with a work based on the Program) on a volume of 131 | a storage or distribution medium does not bring the other work under 132 | the scope of this License. 133 | 134 | 3. You may copy and distribute the Program (or a work based on it, 135 | under Section 2) in object code or executable form under the terms of 136 | Sections 1 and 2 above provided that you also do one of the following: 137 | 138 | a) Accompany it with the complete corresponding machine-readable 139 | source code, which must be distributed under the terms of Sections 140 | 1 and 2 above on a medium customarily used for software interchange; or, 141 | 142 | b) Accompany it with a written offer, valid for at least three 143 | years, to give any third party, for a charge no more than your 144 | cost of physically performing source distribution, a complete 145 | machine-readable copy of the corresponding source code, to be 146 | distributed under the terms of Sections 1 and 2 above on a medium 147 | customarily used for software interchange; or, 148 | 149 | c) Accompany it with the information you received as to the offer 150 | to distribute corresponding source code. (This alternative is 151 | allowed only for noncommercial distribution and only if you 152 | received the program in object code or executable form with such 153 | an offer, in accord with Subsection b above.) 154 | 155 | The source code for a work means the preferred form of the work for 156 | making modifications to it. For an executable work, complete source 157 | code means all the source code for all modules it contains, plus any 158 | associated interface definition files, plus the scripts used to 159 | control compilation and installation of the executable. However, as a 160 | special exception, the source code distributed need not include 161 | anything that is normally distributed (in either source or binary 162 | form) with the major components (compiler, kernel, and so on) of the 163 | operating system on which the executable runs, unless that component 164 | itself accompanies the executable. 165 | 166 | If distribution of executable or object code is made by offering 167 | access to copy from a designated place, then offering equivalent 168 | access to copy the source code from the same place counts as 169 | distribution of the source code, even though third parties are not 170 | compelled to copy the source along with the object code. 171 | 172 | 4. You may not copy, modify, sublicense, or distribute the Program 173 | except as expressly provided under this License. Any attempt 174 | otherwise to copy, modify, sublicense or distribute the Program is 175 | void, and will automatically terminate your rights under this License. 176 | However, parties who have received copies, or rights, from you under 177 | this License will not have their licenses terminated so long as such 178 | parties remain in full compliance. 179 | 180 | 5. You are not required to accept this License, since you have not 181 | signed it. However, nothing else grants you permission to modify or 182 | distribute the Program or its derivative works. These actions are 183 | prohibited by law if you do not accept this License. Therefore, by 184 | modifying or distributing the Program (or any work based on the 185 | Program), you indicate your acceptance of this License to do so, and 186 | all its terms and conditions for copying, distributing or modifying 187 | the Program or works based on it. 188 | 189 | 6. Each time you redistribute the Program (or any work based on the 190 | Program), the recipient automatically receives a license from the 191 | original licensor to copy, distribute or modify the Program subject to 192 | these terms and conditions. You may not impose any further 193 | restrictions on the recipients' exercise of the rights granted herein. 194 | You are not responsible for enforcing compliance by third parties to 195 | this License. 196 | 197 | 7. If, as a consequence of a court judgment or allegation of patent 198 | infringement or for any other reason (not limited to patent issues), 199 | conditions are imposed on you (whether by court order, agreement or 200 | otherwise) that contradict the conditions of this License, they do not 201 | excuse you from the conditions of this License. If you cannot 202 | distribute so as to satisfy simultaneously your obligations under this 203 | License and any other pertinent obligations, then as a consequence you 204 | may not distribute the Program at all. For example, if a patent 205 | license would not permit royalty-free redistribution of the Program by 206 | all those who receive copies directly or indirectly through you, then 207 | the only way you could satisfy both it and this License would be to 208 | refrain entirely from distribution of the Program. 209 | 210 | If any portion of this section is held invalid or unenforceable under 211 | any particular circumstance, the balance of the section is intended to 212 | apply and the section as a whole is intended to apply in other 213 | circumstances. 214 | 215 | It is not the purpose of this section to induce you to infringe any 216 | patents or other property right claims or to contest validity of any 217 | such claims; this section has the sole purpose of protecting the 218 | integrity of the free software distribution system, which is 219 | implemented by public license practices. Many people have made 220 | generous contributions to the wide range of software distributed 221 | through that system in reliance on consistent application of that 222 | system; it is up to the author/donor to decide if he or she is willing 223 | to distribute software through any other system and a licensee cannot 224 | impose that choice. 225 | 226 | This section is intended to make thoroughly clear what is believed to 227 | be a consequence of the rest of this License. 228 | 229 | 8. If the distribution and/or use of the Program is restricted in 230 | certain countries either by patents or by copyrighted interfaces, the 231 | original copyright holder who places the Program under this License 232 | may add an explicit geographical distribution limitation excluding 233 | those countries, so that distribution is permitted only in or among 234 | countries not thus excluded. In such case, this License incorporates 235 | the limitation as if written in the body of this License. 236 | 237 | 9. The Free Software Foundation may publish revised and/or new versions 238 | of the General Public License from time to time. Such new versions will 239 | be similar in spirit to the present version, but may differ in detail to 240 | address new problems or concerns. 241 | 242 | Each version is given a distinguishing version number. If the Program 243 | specifies a version number of this License which applies to it and "any 244 | later version", you have the option of following the terms and conditions 245 | either of that version or of any later version published by the Free 246 | Software Foundation. If the Program does not specify a version number of 247 | this License, you may choose any version ever published by the Free Software 248 | Foundation. 249 | 250 | 10. If you wish to incorporate parts of the Program into other free 251 | programs whose distribution conditions are different, write to the author 252 | to ask for permission. For software which is copyrighted by the Free 253 | Software Foundation, write to the Free Software Foundation; we sometimes 254 | make exceptions for this. Our decision will be guided by the two goals 255 | of preserving the free status of all derivatives of our free software and 256 | of promoting the sharing and reuse of software generally. 257 | 258 | NO WARRANTY 259 | 260 | 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY 261 | FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN 262 | OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES 263 | PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED 264 | OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 265 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS 266 | TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE 267 | PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, 268 | REPAIR OR CORRECTION. 269 | 270 | 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 271 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR 272 | REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, 273 | INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING 274 | OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED 275 | TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY 276 | YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER 277 | PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE 278 | POSSIBILITY OF SUCH DAMAGES. 279 | 280 | END OF TERMS AND CONDITIONS 281 | 282 | How to Apply These Terms to Your New Programs 283 | 284 | If you develop a new program, and you want it to be of the greatest 285 | possible use to the public, the best way to achieve this is to make it 286 | free software which everyone can redistribute and change under these terms. 287 | 288 | To do so, attach the following notices to the program. It is safest 289 | to attach them to the start of each source file to most effectively 290 | convey the exclusion of warranty; and each file should have at least 291 | the "copyright" line and a pointer to where the full notice is found. 292 | 293 | {description} 294 | Copyright (C) {year} {fullname} 295 | 296 | This program is free software; you can redistribute it and/or modify 297 | it under the terms of the GNU General Public License as published by 298 | the Free Software Foundation; either version 2 of the License, or 299 | (at your option) any later version. 300 | 301 | This program is distributed in the hope that it will be useful, 302 | but WITHOUT ANY WARRANTY; without even the implied warranty of 303 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 304 | GNU General Public License for more details. 305 | 306 | You should have received a copy of the GNU General Public License along 307 | with this program; if not, write to the Free Software Foundation, Inc., 308 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 309 | 310 | Also add information on how to contact you by electronic and paper mail. 311 | 312 | If the program is interactive, make it output a short notice like this 313 | when it starts in an interactive mode: 314 | 315 | Gnomovision version 69, Copyright (C) year name of author 316 | Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 317 | This is free software, and you are welcome to redistribute it 318 | under certain conditions; type `show c' for details. 319 | 320 | The hypothetical commands `show w' and `show c' should show the appropriate 321 | parts of the General Public License. Of course, the commands you use may 322 | be called something other than `show w' and `show c'; they could even be 323 | mouse-clicks or menu items--whatever suits your program. 324 | 325 | You should also get your employer (if you work as a programmer) or your 326 | school, if any, to sign a "copyright disclaimer" for the program, if 327 | necessary. Here is a sample; alter the names: 328 | 329 | Yoyodyne, Inc., hereby disclaims all copyright interest in the program 330 | `Gnomovision' (which makes passes at compilers) written by James Hacker. 331 | 332 | {signature of Ty Coon}, 1 April 1989 333 | Ty Coon, President of Vice 334 | 335 | This General Public License does not permit incorporating your program into 336 | proprietary programs. If your program is a subroutine library, you may 337 | consider it more useful to permit linking proprietary applications with the 338 | library. If this is what you want to do, use the GNU Lesser General 339 | Public License instead of this License. -------------------------------------------------------------------------------- /NAMESPACE: -------------------------------------------------------------------------------- 1 | # Generated by roxygen2 (4.1.1): do not edit by hand 2 | 3 | exportPattern("^[[:alpha:]]+") 4 | importFrom("magrittr", "%>%") 5 | importFrom("magrittr", "%<>%") -------------------------------------------------------------------------------- /R/DataTaipei.R: -------------------------------------------------------------------------------- 1 | dataTaipeiGET <- function(scope, q=NULL,limit=1000,offset=0,sort=NULL, ...) { 2 | url <- "http://data.taipei/opendata/datalist/apiAccess" 3 | if (!is.null(q)) { 4 | if (Sys.info()["sysname"] %>% tolower == "windows") { 5 | q <- iconv(q, from = "BIG-5", to = "UTF-8") 6 | } 7 | } 8 | response <- httr::GET(url,query=list(scope=scope,q=q,limit=limit,offset=offset,sort=sort, ...)) 9 | dataTaipeiCheck(response) 10 | response 11 | } 12 | 13 | dataTaipeiCheck <- function(response, url) { 14 | if(response$status==500){ 15 | stop(sprintf(" 16 | Taipei City Government Open Data Plateform replys the system can't deliver service temporarily. 17 | Please contact services@mail.taipei.gov.tw if you need further support. 18 | The accessed url is: %s 19 | ", response$url)) 20 | } 21 | httr::stop_for_status(response) 22 | } 23 | -------------------------------------------------------------------------------- /R/dataSetMetadataSearch.R: -------------------------------------------------------------------------------- 1 | #'@title Search Dataset of \url{http://data.taipei} via Metadata 2 | #'@param q (character). Keyword of the datasets. Please read the details for more information. 3 | #'@param limit (integer). Limit the number of returned records. 4 | #'@param offset (integer). The start position of the returned records. Please read the details for more information. 5 | #'@param sort (character). use field name as sort key , asc/desc as sorting order and seprated by a blank space. 6 | #'@details 7 | #' You could directly put the keyword into \code{q}. For example, \code{dataSetMetadataSearch(q = "youbike")}. 8 | #' \code{q} also accept advanced usage such as \code{q="title:youbike cost:free"} which will return the records whose title contains "youbike" and cost contains "free". The schema is "field-1:condition-1 field-2:condition-2 ...". The blank space separates each condition. For more details, please check the reference. 9 | #' 10 | #' For {offset}, here is an example. If \code{offset = 5}, the \code{dataSetMetadataSearch} will return the \code{1 + 5 = 6}th row. 11 | #' 12 | #' For {sort}, If \code{sort="orgName desc"}, the \code{dataSetMetadataSearch} will return the records sorted by field "orgName" in descending order. 13 | #' 14 | #'@return A data.table. A table of related datasets. 15 | #'@seealso \code{\link{getResources}} 16 | #'@references \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section1.html} 17 | #'@examples 18 | #'\dontrun{ 19 | #'rs <- dataSetMetadataSearch(q = "youbike", sort="orgName desc") 20 | #'rid <- getResources(rs, 1) 21 | #'suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 22 | #'} 23 | #'@export 24 | dataSetMetadataSearch <- function(q=NULL,limit=1000,offset=0,sort=NULL) { 25 | response <- dataTaipeiGET("datasetMetadataSearch",q,limit,offset,sort) 26 | dataTaipeiCheck(response) 27 | searchParse(response) 28 | } 29 | -------------------------------------------------------------------------------- /R/datalist.R: -------------------------------------------------------------------------------- 1 | datalist <- function() { 2 | dataTaipei_GET("datalist") 3 | } -------------------------------------------------------------------------------- /R/parse.R: -------------------------------------------------------------------------------- 1 | #'@importFrom magrittr %>% 2 | #'@importFrom magrittr %<>% 3 | searchParse <- function(response) { 4 | parsed <- httr::content(response, as = "parsed") 5 | if (class(parsed) == "character") parsed <- RJSONIO::fromJSON(parsed) 6 | result <- parsed$result 7 | results <- result$results 8 | name <- Reduce(union, lapply(results, names)) 9 | name1 <- setdiff(name, "resources") 10 | retval <- lapply(name1, function(x) sapply(results, function(df) { 11 | ifelse(is.null(df[[x]]), NA, df[[x]]) 12 | })) 13 | retval %<>% data.table::as.data.table(retval) %>% 14 | magrittr::set_colnames(name1) 15 | attributes(retval) <- c(attributes(retval), result[which(names(result) != "results")], list(resources = lapply(results, `[[`, "resources"))) 16 | retval 17 | } 18 | 19 | #'@title Get Resource From Downloaded Table 20 | #'@param tb (data.table). The output of \code{\link{dataSetMetadataSearch}} or \code{\link{resourceMetadataSearch}}. 21 | #'@param index (integer). The index of target. 22 | #'@return A data.frame. The resources of \code{index}th row in \code{tb} will be returned. 23 | #'@export 24 | getResources <- function(tb, index) { 25 | .resources <- attr(tb, "resources")[[index]] 26 | name <- Reduce(union, lapply(.resources, names)) 27 | retval <- lapply(name, function(x) sapply(.resources, function(df) { 28 | ifelse(is.null(df[[x]]), NA, df[[x]]) 29 | })) 30 | retval %<>% data.table::as.data.table(retval) %>% 31 | magrittr::set_colnames(name) 32 | retval 33 | } 34 | 35 | 36 | resourceParse <- function(response) { 37 | result <- httr::content(response, as = "raw") 38 | writeBin(result, temp <- tempfile()) 39 | if (Sys.info()["sysname"] %>% tolower != "windows") { 40 | temp2 <- tempfile() 41 | stopifnot(system(sprintf("iconv -f BIG-5 -t UTF-8 %s > %s", temp, temp2)) == 0) 42 | temp <- temp2 43 | } 44 | data.table::fread(temp) 45 | } -------------------------------------------------------------------------------- /R/resourceAquire.R: -------------------------------------------------------------------------------- 1 | #'@title Download the Resource from \url{http://data.taipei} 2 | #'@param resourceId (character). The id of the resource. 3 | #'@param format (character). the format for downloading the resource content. 4 | #'@seealso \code{\link{getResources}} 5 | #'@references \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section3.html} 6 | #'@return A data.frame. The downloaded table of the resource. 7 | #'@examples 8 | #'\dontrun{ 9 | #'rs <- dataSetMetadataSearch(q = "youbike") 10 | #'rid <- getResources(rs, 1) 11 | #'suppressWarnings(df <- resourceAquire(rid$resourceId[1],"xml") 12 | #'} 13 | #'@export 14 | resourceAquire <- function(resourceId, format = c("csv", "json", "xml")) { 15 | response <- dataTaipeiGET(scope = "resourceAquire", rid = resourceId, format = format[1], limit = NULL) 16 | dataTaipeiCheck(response) 17 | resourceParse(response) 18 | } 19 | -------------------------------------------------------------------------------- /R/resourceMetadataSearch.R: -------------------------------------------------------------------------------- 1 | #'@title Search Resource of \url{http://data.taipei} via Metadata 2 | #'@param q (character). Keyword of the datasets. Please read the details for more information. 3 | #'@param limit (integer). Limit the number of returned records. 4 | #'@param offset (integer). The start position of the returned records. Please read the details for more information. 5 | #'@param sort (character). use field name as sort key , asc/desc as sorting order and seprated by a blank space. 6 | #'@details 7 | #' You could directly put the keyword into \code{q}. For example, \code{dataSetMetadataSearch(q = "youbike")}. 8 | #' \code{q} also accept advanced usage such as \code{q="title:youbike cost:free"} which will return the records whose title contains "youbike" and cost contains "free". The schema is "field-1:condition-1 field-2:condition-2 ...". The blank space separates each condition. For more details, please check the reference. 9 | #' 10 | #' For {offset}, here is an example. If \code{offset = 5}, the \code{dataSetMetadataSearch} will return the \code{1 + 5 = 6}th row. 11 | #' 12 | #' For {sort}, If \code{sort="orgName desc"}, the \code{dataSetMetadataSearch} will return the records sorted by field "orgName" in descending order. 13 | #' 14 | #'@return A data.table. A table of related resources. 15 | #'@seealso \code{\link{getResources}} 16 | #'@references \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section2.html} 17 | #'@examples 18 | #'\dontrun{ 19 | #'rs <- dataSetMetadataSearch(q = "youbike",sort="orgName desc") 20 | #'rid <- getResources(rs, 1) 21 | #'suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 22 | #'} 23 | #'@export 24 | resourceMetadataSearch <- function(q=NULL,limit=1000,offset=0,sort=NULL) { 25 | response <- dataTaipeiGET("resourceMetadataSearch",q,limit,offset,sort) 26 | dataTaipeiCheck(response) 27 | searchParse(response) 28 | } 29 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # DataTaipei 2 | R Client for http://data.taipei/ 3 | 4 | Linux: [![Travis-ci Status](https://travis-ci.org/TaipeiRHackers/DataTaipei.svg?branch=master)](https://travis-ci.org/TaipeiRHackers/DataTaipei) 5 | Win : [![Build status](https://ci.appveyor.com/api/projects/status/luwh8nnqbu526ejd/branch/master?svg=true)](https://ci.appveyor.com/project/wush978/datataipei/branch/master) 6 | OS X: [![Travis-ci Status](https://travis-ci.org/TaipeiRHackers/DataTaipei.svg?branch=osx)](https://travis-ci.org/TaipeiRHackers/DataTaipei) 7 | 8 | 9 | ## 安裝 10 | 11 | 12 | ```r 13 | library(devtools) 14 | install_github("TaipeiRHackers/DataTaipei") 15 | ``` 16 | 17 | ## 功能 18 | 19 | - 搜尋台北市政府的開放資料 20 | - 下載台北市政府的開放資料 21 | - 下載的資料集會透過 [http://data.taipei](http://data.taipei) 提供的功能轉換為表格 22 | - 編碼在windows 上一律轉換為big-5，在非windows上轉換為utf-8 23 | - 輸出即為data.table，使用者可以直接從data.table或data.frame出發 24 | 25 | ## 範例 26 | 27 | [DataTaipei應用範例 - 台北市youbike站點資料](http://taipeirhackers.github.io/DataTaipei/youbike.html) 28 | 29 | [DataTaipei應用範例 - 台北市天氣資料](http://taipeirhackers.github.io/DataTaipei/weather.html) 30 | 31 | [DataTaipei應用範例 - 台北市不動產資料](http://taipeirhackers.github.io/DataTaipei/estate.html) 32 | 33 | ## 問題回報與建議 34 | 35 | 如果在使用套件上有任何意見想要告訴我們，請到填寫你的意見。 36 | 37 | 我們很樂意聽到你的任何聲音，包含錯誤、建議、以及你使用套件的愉快經驗。 38 | 我們很期待和任何一位使用者合作，將你的經驗加到應用範例，幫助更多的其他使用者。 39 | 40 | ## License 41 | 42 | GPL(>= 2) 43 | -------------------------------------------------------------------------------- /appveyor.yml: -------------------------------------------------------------------------------- 1 | # DO NOT CHANGE the "init" and "install" sections below 2 | 3 | # Download script file from GitHub 4 | init: 5 | ps: | 6 | $ErrorActionPreference = "Stop" 7 | Invoke-WebRequest http://raw.github.com/krlmlr/r-appveyor/master/scripts/appveyor-tool.ps1 -OutFile "..\appveyor-tool.ps1" 8 | Import-Module '..\appveyor-tool.ps1' 9 | install: 10 | ps: Bootstrap 11 | 12 | # Adapt as necessary starting from here 13 | 14 | build_script: 15 | - travis-tool.sh install_deps 16 | 17 | test_script: 18 | - travis-tool.sh run_tests 19 | 20 | on_failure: 21 | - travis-tool.sh dump_logs 22 | 23 | artifacts: 24 | - path: '*.Rcheck\**\*.log' 25 | name: Logs 26 | 27 | - path: '*.Rcheck\**\*.out' 28 | name: Logs 29 | 30 | - path: '*.Rcheck\**\*.fail' 31 | name: Logs 32 | 33 | - path: '*.Rcheck\**\*.Rout' 34 | name: Logs 35 | 36 | - path: '\*_*.tar.gz' 37 | name: Bits 38 | 39 | - path: '\*_*.zip' 40 | name: Bits -------------------------------------------------------------------------------- /man/dataSetMetadataSearch.Rd: -------------------------------------------------------------------------------- 1 | % Generated by roxygen2 (4.1.1): do not edit by hand 2 | % Please edit documentation in R/dataSetMetadataSearch.R 3 | \name{dataSetMetadataSearch} 4 | \alias{dataSetMetadataSearch} 5 | \title{Search Dataset of \url{http://data.taipei} via Metadata} 6 | \usage{ 7 | dataSetMetadataSearch(q = NULL, limit = 1000, offset = 0) 8 | } 9 | \arguments{ 10 | \item{q}{(character). Keyword of the datasets. Please read the details for more information.} 11 | 12 | \item{limit}{(integer). Limit the number of returned records.} 13 | 14 | \item{offset}{(integer). The start position of the returned records. Please read the details for more information.} 15 | } 16 | \value{ 17 | A data.table. A table of related datasets. 18 | } 19 | \description{ 20 | Search Dataset of \url{http://data.taipei} via Metadata 21 | } 22 | \details{ 23 | You could directly put the keyword into \code{q}. For example, \code{dataSetMetadataSearch(q = "youbike")}. 24 | \code{q} also accept advanced usage such as \code{q="title:youbike cost:free"} which will return the records whose title contains "youbike" and cost contains "free". The schema is "field-1:condition-1 field-2:condition-2 ...". The blank space separates each condition. For more details, please check the reference. 25 | 26 | For {offset}, here is an example. If \code{offset = 5}, the \code{dataSetMetadataSearch} will return the \code{1 + 5 = 6}th row. 27 | } 28 | \examples{ 29 | \dontrun{ 30 | rs <- dataSetMetadataSearch(q = "youbike") 31 | rid <- getResources(rs, 1) 32 | suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 33 | } 34 | } 35 | \references{ 36 | \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section1.html} 37 | } 38 | \seealso{ 39 | \code{\link{getResources}} 40 | } 41 | 42 | -------------------------------------------------------------------------------- /man/getResources.Rd: -------------------------------------------------------------------------------- 1 | % Generated by roxygen2 (4.1.1): do not edit by hand 2 | % Please edit documentation in R/parse.R 3 | \name{getResources} 4 | \alias{getResources} 5 | \title{Get Resource From Downloaded Table} 6 | \usage{ 7 | getResources(tb, index) 8 | } 9 | \arguments{ 10 | \item{tb}{(data.table). The output of \code{\link{dataSetMetadataSearch}} or \code{\link{resourceMetadataSearch}}.} 11 | 12 | \item{index}{(integer). The index of target.} 13 | } 14 | \value{ 15 | A data.frame. The resources of \code{index}th row in \code{tb} will be returned. 16 | } 17 | \description{ 18 | Get Resource From Downloaded Table 19 | } 20 | 21 | -------------------------------------------------------------------------------- /man/resourceAquire.Rd: -------------------------------------------------------------------------------- 1 | % Generated by roxygen2 (4.1.1): do not edit by hand 2 | % Please edit documentation in R/resourceAquire.R 3 | \name{resourceAquire} 4 | \alias{resourceAquire} 5 | \title{Download the Resource from \url{http://data.taipei}} 6 | \usage{ 7 | resourceAquire(resourceId, format = c("csv", "json", "xml")) 8 | } 9 | \arguments{ 10 | \item{resourceId}{(character). The id of the resource.} 11 | 12 | \item{format}{(character). the format for downloading the resource content.} 13 | } 14 | \value{ 15 | A data.frame. The downloaded table of the resource. 16 | } 17 | \description{ 18 | Download the Resource from \url{http://data.taipei} 19 | } 20 | \examples{ 21 | \dontrun{ 22 | rs <- dataSetMetadataSearch(q = "youbike") 23 | rid <- getResources(rs, 1) 24 | suppressWarnings(df <- resourceAquire(rid$resourceId[1],"xml") 25 | } 26 | } 27 | \references{ 28 | \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section3.html} 29 | } 30 | \seealso{ 31 | \code{\link{getResources}} 32 | } 33 | 34 | -------------------------------------------------------------------------------- /man/resourceMetadataSearch.Rd: -------------------------------------------------------------------------------- 1 | % Generated by roxygen2 (4.1.1): do not edit by hand 2 | % Please edit documentation in R/resourceMetadataSearch.R 3 | \name{resourceMetadataSearch} 4 | \alias{resourceMetadataSearch} 5 | \title{Search Resource of \url{http://data.taipei} via Metadata} 6 | \usage{ 7 | resourceMetadataSearch(q = NULL, limit = 1000, offset = 0) 8 | } 9 | \arguments{ 10 | \item{q}{(character). Keyword of the datasets. Please read the details for more information.} 11 | 12 | \item{limit}{(integer). Limit the number of returned records.} 13 | 14 | \item{offset}{(integer). The start position of the returned records. Please read the details for more information.} 15 | } 16 | \value{ 17 | A data.table. A table of related resources. 18 | } 19 | \description{ 20 | Search Resource of \url{http://data.taipei} via Metadata 21 | } 22 | \details{ 23 | You could directly put the keyword into \code{q}. For example, \code{dataSetMetadataSearch(q = "youbike")}. 24 | \code{q} also accept advanced usage such as \code{q="title:youbike cost:free"} which will return the records whose title contains "youbike" and cost contains "free". The schema is "field-1:condition-1 field-2:condition-2 ...". The blank space separates each condition. For more details, please check the reference. 25 | 26 | For {offset}, here is an example. If \code{offset = 5}, the \code{dataSetMetadataSearch} will return the \code{1 + 5 = 6}th row. 27 | } 28 | \examples{ 29 | \dontrun{ 30 | rs <- dataSetMetadataSearch(q = "youbike") 31 | rid <- getResources(rs, 1) 32 | suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 33 | } 34 | } 35 | \references{ 36 | \url{http://tpeodck.gitbooks.io/data-taipei-developer-guide/content/chapter2section2.html} 37 | } 38 | \seealso{ 39 | \code{\link{getResources}} 40 | } 41 | 42 | -------------------------------------------------------------------------------- /tests/test-all.R: -------------------------------------------------------------------------------- 1 | library(testthat) 2 | library(DataTaipei) 3 | library(dplyr) 4 | library(ggmap) 5 | 6 | stringi::stri_install_check() 7 | test_check("DataTaipei") 8 | -------------------------------------------------------------------------------- /tests/testthat/.travis.yml: -------------------------------------------------------------------------------- 1 | language: r 2 | 3 | sudo: required 4 | 5 | r_github_packages: 6 | - jimhester/robustr 7 | - jimhester/covr 8 | 9 | after_success: 10 | - Rscript -e 'library(covr); coveralls()' 11 | 12 | notifications: 13 | email: 14 | on_success: change 15 | on_failure: change -------------------------------------------------------------------------------- /tests/testthat/test-youbike.R: -------------------------------------------------------------------------------- 1 | context("youbike") 2 | 3 | test_that("check the commands in vignette", { 4 | rs <- dataSetMetadataSearch(q = "youbike") 5 | rid <- getResources(rs, 1) 6 | suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 7 | }) 8 | -------------------------------------------------------------------------------- /vignettes/DataTaipei.Rmd: -------------------------------------------------------------------------------- 1 | --- 2 | title: "R 套件：DataTaipei" 3 | author: "Wush Wu, John Chen and Will Chang" 4 | date: "2015年5月23日" 5 | output: ioslides_presentation 6 | --- 7 | 8 | ## R 是資料分析最常用的工具之一 9 | 10 |
![](http://www.kdnuggets.com/images/r-python-other-switch.jpg)
11 | 12 | 出處： 13 | 14 | ## R 有許多資料相關功能跟套件 15 | 16 | ```{r, echo=FALSE, warning=FALSE} 17 | library(ggplot2) 18 | df <- data.frame( 19 | date = as.Date(c("2007-04-12", "2009-10-04", "2011-05-12", "2012-08-23", "2013-11-08", "2014-10-29")), 20 | pkgs = 1:6 * 1000 21 | ) 22 | ggplot(df, aes(x = date, y = pkgs)) + 23 | geom_point() + 24 | geom_line() 25 | ``` 26 | 資料來源： 27 | 28 | ## 我們聯結R 和DataTaipei 29 | 30 |
31 | 32 | ## 10行內就可搜資料、整理、做應用雛形 33 | 34 | ```{r echo=TRUE, eval = FALSE, cache=TRUE} 35 | # 抓資料 36 | library(DataTaipei) 37 | rs <- dataSetMetadataSearch(q = "公廁") 38 | data <- resourceAquire(getResources(rs, 1)$resourceId) 39 | # 畫圖 40 | library(ggmap) 41 | qmap("台北火車站", zoom = 16,legend = "topleft") + 42 | geom_point(aes(x = lng, y = lat), colour = "blue", data = data) 43 | ``` 44 | 45 | ## 臺北市公廁分佈 46 | 47 | ```{r, echo=FALSE, eval = TRUE, warning=FALSE, results='hide', cache=TRUE} 48 | # 抓資料 49 | library(DataTaipei) 50 | rs <- dataSetMetadataSearch(q = "公廁") 51 | data <- resourceAquire(getResources(rs, 1)$resourceId) 52 | # 畫圖 53 | library(ggmap) 54 | suppressMessages({ 55 | qmap("台北火車站", zoom = 16,legend = "topleft") + 56 | geom_point(aes(x = lng, y = lat), colour = "blue", data = data) 57 | }) 58 | ``` 59 | 60 | ## 再來一個例子 61 | 62 | ```{r, echo=TRUE, eval = FALSE, warning=FALSE, results='hide'} 63 | # 抓資料 64 | library(DataTaipei) 65 | rs <- dataSetMetadataSearch(q = "youbike") 66 | data <- resourceAquire(getResources(rs, 1)$resourceId) 67 | # 整理資料 68 | library(dplyr) 69 | data <- dplyr::mutate(data, lat = as.numeric(lat), lng = as.numeric(lng)) 70 | # 畫圖 71 | library(ggmap) 72 | qmap("台北火車站", zoom = 15,legend = "topleft") + 73 | geom_point(aes(x = lng, y = lat, size = bemp), colour = "blue", data = data) 74 | ``` 75 | 76 | ## 臺北市Youbike站點 77 | 78 | ```{r, echo=FALSE, eval = TRUE, warning=FALSE, results='hide', cache=TRUE} 79 | # 抓資料 80 | suppressPackageStartupMessages({ 81 | library(DataTaipei) 82 | library(dplyr) 83 | library(ggmap) 84 | }) 85 | rs <- dataSetMetadataSearch(q = "youbike") 86 | data <- resourceAquire(getResources(rs, 1)$resourceId) 87 | # 整理資料 88 | data <- dplyr::mutate(data, lat = as.numeric(lat), lng = as.numeric(lng)) 89 | # 畫圖 90 | suppressMessages({ 91 | qmap("台北火車站", zoom = 15,legend = "topleft") + 92 | geom_point(aes(x = lng, y = lat, size = bemp), colour = "blue", data = data) 93 | }) 94 | ``` 95 | 96 | ## 資料統計 97 | 98 | ```{r} 99 | ``` 100 | 101 | ## 台北市實價登錄 102 | 103 | -------------------------------------------------------------------------------- /vignettes/estate.Rmd: -------------------------------------------------------------------------------- 1 | --- 2 | title: "DataTaipei應用範例 - 台北市不動產資料" 3 | author: "Wush Wu, John Chen and Will Chang" 4 | date: "`r Sys.Date()`" 5 | output: rmarkdown::html_vignette 6 | --- 7 | 8 | ```{r setup, include=FALSE, cache=FALSE} 9 | suppressPackageStartupMessages({ 10 | library(knitr) 11 | }) 12 | # if (tolower(Sys.info()["sysname"]) == "darwin") par(family="STKaiti") 13 | opts_chunk$set(cache=FALSE, echo=TRUE) 14 | ``` 15 | 16 | ## 不動產 17 | 18 | 利用DataTaipei套件搜尋不動產相關資料集， 19 | 並作進一步的統計分析，展現R 語言的資料分析能力。 20 | 21 | ### 載入套件 22 | 23 | ```{r library} 24 | suppressPackageStartupMessages({ 25 | library(DataTaipei) 26 | library(dplyr) 27 | library(googleVis) 28 | library(memisc) 29 | library(xtable) 30 | # for rmarkdown 31 | op <- options(gvis.plot.tag='chart') 32 | }) 33 | ``` 34 | 35 | ### 搜尋資料集 36 | 37 | 透過`dataSetMetadataSearch`，我們可以取得關於不動產的搜尋結果： 38 | 39 | ```{r rs, cache=TRUE} 40 | rs <- dataSetMetadataSearch("不動產") 41 | knitr::kable(rs) 42 | ``` 43 | 44 | ### 下載實價登錄資訊 45 | 46 | 本文件以第四筆的搜尋結果為例。 47 | 48 | ```{r df, dependson="rs", cache=TRUE} 49 | resources <- getResources(rs, 4) 50 | rid <- resources$resourceId[1] 51 | df <- resourceAquire(rid) 52 | # df 53 | ``` 54 | 55 | ### 整理實價登錄資訊 56 | 57 | 整理時間欄位後，再從`dataSetMetadataSearch`中取得欄位資訊： 58 | 59 | ```{r df2, dependson="df", warning=FALSE} 60 | df <- mutate(df, `SDATE`=as.Date(as.character(SDATE + 19110000),"%Y%m%d")) 61 | colnames(df)[-1] <- strsplit(rs$fieldDescription[4], "、", useBytes = TRUE)[[1]] 62 | knitr::kable(dplyr::select(df, 63 | `成交案件類型(CASE_T)`, 64 | `行政區(DISTRICT)`, 65 | `都市土地使用分區(LANDA_Z)`, 66 | `交易總價(萬元)/租賃總價(萬元)(TPRICE)`, 67 | `交易單價(萬元/坪)/租賃單價(元/坪)(UPRICE)` 68 | ) %>% head) 69 | ``` 70 | 71 | ### 簡易分析 72 | 73 | #### 都市土地使用分區的交易數 74 | 75 | ```{r, results='asis'} 76 | group_by(df, `都市土地使用分區(LANDA_Z)`) %>% 77 | summarise(count = length(`_id`)) %>% 78 | gvisBarChart(yvar = "count") 79 | ``` 80 | 81 | #### 行政區的交易數 82 | 83 | ```{r, results='asis'} 84 | group_by(df, `行政區(DISTRICT)`) %>% 85 | summarise(count = length(`_id`)) %>% 86 | gvisBarChart(yvar = "count") 87 | ``` 88 | 89 | #### 單價模型 90 | 91 | ```{r, results='asis'} 92 | m <- filter(df, `成交案件類型(CASE_T)` == "買賣") %>% 93 | lm(formula = `交易單價(萬元/坪)/租賃單價(元/坪)(UPRICE)` ~ 94 | `單價是否含車位(UPNOTE)` + 95 | `主要建材(MBUILD)` + 96 | `行政區(DISTRICT)` + 97 | `都市土地使用分區(LANDA_Z)`) 98 | print.xtable(xtable(m), type = "html") 99 | ``` 100 | -------------------------------------------------------------------------------- /vignettes/img/dataTaipei_R.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TaipeiRHackers/DataTaipei/12c419e23d77d21ae06fe8a5a0c4bad8b274f9d3/vignettes/img/dataTaipei_R.png -------------------------------------------------------------------------------- /vignettes/weather.Rmd: -------------------------------------------------------------------------------- 1 | --- 2 | title: "DataTaipei應用範例 - 天氣資料" 3 | author: "Wush Wu, John Chen and Will Chang" 4 | date: "`r Sys.Date()`" 5 | output: rmarkdown::html_vignette 6 | vignette: > 7 | %\VignetteIndexEntry{Vignette Title} 8 | %\VignetteEngine{knitr::rmarkdown} 9 | %\VignetteEncoding{UTF-8} 10 | --- 11 | 12 | ## 氣溫資料 13 | 14 | ```{r} 15 | library(DataTaipei) 16 | library(forecast) 17 | library(dplyr) 18 | library(dygraphs) 19 | library(xts) 20 | rs <- dataSetMetadataSearch("氣象") 21 | rs 22 | resource <- getResources(rs, 2) 23 | resource 24 | rid <- resource$resourceId[1] 25 | df <- resourceAquire(rid) 26 | df2 <- filter(df, locationName == "臺北市") %>% 27 | mutate(startTime = as.POSIXct(strptime(startTime, "%Y-%m-%dT%H:%M:%S+08:00")), 氣溫=parameterName2) %>% 28 | dplyr::select(startTime, 氣溫) 29 | xts(df2[,-1,with=FALSE], order.by = df2$startTime) %>% 30 | dygraph 31 | ``` 32 | -------------------------------------------------------------------------------- /vignettes/youbike.Rmd: -------------------------------------------------------------------------------- 1 | --- 2 | title: "DataTaipei應用範例 - 台北市youbike站點資料" 3 | author: "Wush Wu, John Chen and Will Chang" 4 | date: "`r Sys.Date()`" 5 | output: rmarkdown::html_vignette 6 | --- 7 | 8 | ### YouBike臺北市公共自行車站場地圖 9 | 10 | 利用DataTaipei套件搜尋youBike站場相關資料集， 11 | 取得站場座標與各站空位數量等，以R 語言轉為Google Map呈現。 12 | 13 | ```{r library} 14 | suppressPackageStartupMessages({ 15 | library(DataTaipei) 16 | library(dplyr) 17 | library(ggmap) 18 | }) 19 | ``` 20 | 21 | ### 搜尋資料集 22 | 23 | 透過`dataSetMetadataSearch`，我們可取得關於youBike的搜尋結果： 24 | ```{r rs, cache=TRUE} 25 | rs <- dataSetMetadataSearch(q = "youbike") 26 | ``` 27 | 28 | ### 下載資料項目內容 29 | 30 | 由dataset中的metadata解析出resource ID 31 | 透過 `resourceAquire`，我們可取得資料項目內容 32 | 33 | ```{r df, dependson="rs", cache=TRUE} 34 | rid <- getResources(rs, 1) 35 | suppressWarnings(df <- resourceAquire(rid$resourceId[1])) 36 | ``` 37 | 38 | ### 在Goole Map上呈現各站場位置 39 | 40 | 在youBike相關資料中取得站場經緯度與空位數量 41 | 以R 語言 ggmap套件轉為Google Map呈現 42 | 43 | ```{r df2, dependson="df", cache=TRUE} 44 | # plot 45 | strsplit(rs$fieldDescription, "\r\n") 46 | df2 <- dplyr::mutate(df, lat = as.numeric(lat), lng = as.numeric(lng)) 47 | bdy_location <- dplyr::select(df2, lng, lat) %>% apply(MARGIN = 2, range) 48 | qmap(location = c(bdy_location[c(1, 3, 2, 4)]), zoom = 14,legend = "topleft") + 49 | geom_point(aes(x = lng, y = lat, size = bemp), colour = "blue",data = df2) 50 | ``` 51 | --------------------------------------------------------------------------------