Data Mining

setwd("F:/")
library(readr)
std <- read_delim("stud.txt", delim="\t",skip=1, col_names=c("StudentName","Math","English"))

Rows: 3 Columns: 3
── Column specification ──────────────────────────────────────────────────────────────────
Delimiter: "\t"
chr (1): StudentName
dbl (2): Math, English

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

std

# A tibble: 3 × 3
  StudentName  Math English
  <chr>       <dbl>   <dbl>
1 Anna           86      90
2 John           43      75
3 Catherine      80      82

library(tidyr)
stdL <- gather(std, Subject, Grade, Math:English)
stdL

# A tibble: 6 × 3
  StudentName Subject Grade
  <chr>       <chr>   <dbl>
1 Anna        Math       86
2 John        Math       43
3 Catherine   Math       80
4 Anna        English    90
5 John        English    75
6 Catherine   English    82

spread(stdL, Subject, Grade)

# A tibble: 3 × 3
  StudentName English  Math
  <chr>         <dbl> <dbl>
1 Anna             90    86
2 Catherine        82    80
3 John             75    43

std2 <- read_delim("stud2.txt", delim="\t",skip=1, col_names=c("StudentName","Math","English","Degree_Year"))

Rows: 2 Columns: 4
── Column specification ──────────────────────────────────────────────────────────────────
Delimiter: "\t"
chr (2): StudentName, Degree_Year
dbl (2): Math, English

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

std2

# A tibble: 2 × 4
  StudentName  Math English Degree_Year
  <chr>       <dbl>   <dbl> <chr>      
1 John           43      75 Math_2013  
2 Catherine      80      82 Bio_2012   

std2L <- gather(std2, Subject, Grade, Math:English)
std2L <- separate(std2L, Degree_Year, c("Degree","Year"))
std2L 

# A tibble: 4 × 5
  StudentName Degree Year  Subject Grade
  <chr>       <chr>  <chr> <chr>   <dbl>
1 John        Math   2013  Math       43
2 Catherine   Bio    2012  Math       80
3 John        Math   2013  English    75
4 Catherine   Bio    2012  English    82

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union

[1] "2015-10-21"
[1] "2015-11-30"
[1] "2012-11-03"
[1] "2013-12-02 14:05:01 UTC"
[1] "1986-12-01"

[1] "2012-05-21" "2010-12-12" "2007-01-05" "2015-02-04" "2014-12-06" "2013-07-25"

[1] "2015-08-23 18:00:05 +0430"

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Rows: 200 Columns: 71
── Column specification ───────────────────────────────────────────────────────────
Delimiter: ","
chr (11): X2, X4, X5, X6, X8, X59, X60, X64, X66, X70, X71
lgl (60): X1, X3, X7, X9, X10, X11, X12, X13, X14, X15, X16, X17, X18, X19, X20...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

[1] 200  71
[1] "WARNING: This database should be credited to the original owner whenever"
[2] "         used for any publication whatsoever."                           
[3] ""                                                                        
[1] 178
[1] "   age_gt_60:\t\t     f, t."                            
[2] "   air():\t\t     mild,moderate,severe,normal,profound."
[3] "   airBoneGap:\t\t     f, t."                           
[4] "   ar_c():\t\t     normal,elevated,absent."             
[1] "   age_gt_60"  "   air()"      "   airBoneGap"
[1] "age_gt_60"  "air()"      "airBoneGap"
[1] "age_gt_60"  "air"        "airBoneGap"

Rows: 4 Columns: 2
── Column specification ──────────────────────────────────────────────────────────────────
Delimiter: "\t"
chr (2): X, Y

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

[1] "character"

[1] "integer"

  Sepal.Length       Sepal.Width       Petal.Length      Petal.Width            Species  
 Min.   :-1.86378   Min.   :-2.4258   Min.   :-1.5623   Min.   :-1.4422   setosa    :50  
 1st Qu.:-0.89767   1st Qu.:-0.5904   1st Qu.:-1.2225   1st Qu.:-1.1799   versicolor:50  
 Median :-0.05233   Median :-0.1315   Median : 0.3354   Median : 0.1321   virginica :50  
 Mean   : 0.00000   Mean   : 0.0000   Mean   : 0.0000   Mean   : 0.0000                  
 3rd Qu.: 0.67225   3rd Qu.: 0.5567   3rd Qu.: 0.7602   3rd Qu.: 0.7880                  
 Max.   : 2.48370   Max.   : 3.0805   Max.   : 1.7799   Max.   : 1.7064                  
  Sepal.Length     Sepal.Width      Petal.Length     Petal.Width            Species  
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000   Min.   :0.00000   setosa    :50  
 1st Qu.:0.2222   1st Qu.:0.3333   1st Qu.:0.1017   1st Qu.:0.08333   versicolor:50  
 Median :0.4167   Median :0.4167   Median :0.5678   Median :0.50000   virginica :50  
 Mean   :0.4287   Mean   :0.4406   Mean   :0.4675   Mean   :0.45806                  
 3rd Qu.:0.5833   3rd Qu.:0.5417   3rd Qu.:0.6949   3rd Qu.:0.70833                  
 Max.   :1.0000   Max.   :1.0000   Max.   :1.0000   Max.   :1.00000                  

Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio
Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     

Attaching package: ‘Hmisc’

The following objects are masked from ‘package:dplyr’:

    src, summarize

The following objects are masked from ‘package:base’:

    format.pval, units

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2.90   45.02   77.50   68.57   94.08  100.00 

 (2.8,22.3] (22.3,41.7] (41.7,61.2] (61.2,80.6]  (80.6,100] 
         45          71          70          81         239 

verynew     new  normal     old veryold 
     45      71      70      81     239 

[ 2.9, 38.1) [38.1, 66.1) [66.1, 86.1) [86.1, 95.7) [95.7,100.0] 
         102          101          101          101          101 

verynew     new  normal     old veryold 
    102     101     101     101     101 

Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric


######################### Warning from 'xts' package ##########################
#                                                                             #
# The dplyr lag() function breaks how base R's lag() function is supposed to  #
# work, which breaks lag(my_xts). Calls to lag(my_xts) that you type or       #
# source() into this session won't work correctly.                            #
#                                                                             #
# Use stats::lag() to make sure you're not using dplyr::lag(), or you can add #
# conflictRules('dplyr', exclude = 'lag') to your .Rprofile to stop           #
# dplyr from breaking base R's lag() function.                                #
#                                                                             #
# Code in packages is not affected. It's protected by R's namespace mechanism #
# Set `options(xts.warn_dplyr_breaks_lag = FALSE)` to suppress this warning.  #
#                                                                             #
###############################################################################

Attaching package: ‘xts’

The following objects are masked from ‘package:dplyr’:

    first, last

              [,1]
2010-02-25 1102.94
2010-02-26 1104.49
2010-03-01 1115.71
2010-03-02 1118.31
              [,1]
2010-03-02 1118.31
              [,1]
2010-03-01 1115.71
2010-03-02 1118.31
              [,1]
2010-03-01 1115.71
2010-03-02 1118.31
              [,1]
2010-02-26 1104.49
2010-03-01 1115.71

         m.c.seq.row..seq.n...seq.col..drop...FALSE.
Jan 1949                                         112
Feb 1949                                         118
Mar 1949                                         132
Apr 1949                                         129
May 1949                                         121
Jun 1949                                         135
Jul 1949                                         148
Aug 1949                                         148
Sep 1949                                         136
Oct 1949                                         119
     ...                                            
Mar 1960                                         419
Apr 1960                                         461
May 1960                                         472
Jun 1960                                         535
Jul 1960                                         622
Aug 1960                                         606
Sep 1960                                         508
Oct 1960                                         461
Nov 1960                                         390
Dec 1960                                         432
                  e1
Jan 1949          NA
Feb 1949  0.05084746
Mar 1949  0.10606061
Apr 1949 -0.02325581
May 1949 -0.06611570
Jun 1949  0.10370370
Jul 1949  0.08783784
Aug 1949  0.00000000
Sep 1949 -0.08823529
Oct 1949 -0.14285714
     ...            
Feb 1960 -0.06649616
Mar 1960  0.06682578
Apr 1960  0.09110629
May 1960  0.02330508
Jun 1960  0.11775701
Jul 1960  0.13987138
Aug 1960 -0.02640264
Sep 1960 -0.19291339
Oct 1960 -0.10195228
Nov 1960 -0.18205128
         [,1]
Jan 1949  112
Feb 1949  118
Mar 1949  132
Apr 1949  129
May 1949  121
Jun 1949  135
     [,1] [,2] [,3] [,4]
[1,]  129  132  118  112
[2,]  121  129  132  118
[3,]  135  121  129  132
[4,]  148  135  121  129
[5,]  148  148  135  121
[6,]  136  148  148  135
           T T_1 T_2 T_3 T_4
May 1949 121 129 132 118 112
Jun 1949 135 121 129 132 118
Jul 1949 148 135 121 129 132
Aug 1949 148 148 135 121 129
Sep 1949 136 148 148 135 121
Oct 1949 119 136 148 148 135

Rows: 25000 Columns: 13
── Column specification ──────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (13): FID_CID, ano1991, ano1992, ano1993, ano1994, ano1995, ano1996, ano1997, ano1...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

          min      max
long -9.49174 -6.20743
lat  36.98050 42.14360
         long     lat
[1,] -7.31924 38.5406
[2,] -7.63557 40.5022
[3,] -7.90273 40.3418
Object of class SpatialPointsDataFrame
Coordinates:
          min      max
long -9.49174 -6.20743
lat  36.98050 42.14360
Is projected: FALSE 
proj4string : [+proj=longlat +ellps=WGS84]
Number of points: 25000
Data attributes:
    ano2000       
 Min.   :0.00000  
 1st Qu.:0.00000  
 Median :0.00000  
 Mean   :0.01612  
 3rd Qu.:0.00000  
 Max.   :1.00000  

Loading required package: ggplot2

ℹ Google's Terms of Service: <https://mapsplatform.google.com>
  Stadia Maps' Terms of Service: <https://stadiamaps.com/terms-of-service/>
  OpenStreetMap's Tile Usage Policy: <https://operations.osmfoundation.org/policies/tiles/>
ℹ Please cite ggmap if you use it! Use `citation("ggmap")` for details.
Error in `get_googlemap()`:
! Google now requires an API key; see `ggmap::register_google()`.
Backtrace:
 1. ggmap::get_map("Portugal", zoom = 7)
 2. ggmap::get_googlemap(...)