Merchanting of dwellings by month and Spanish province

plot of chunk unnamed-chunk-7

plot of chunk unnamed-chunk-8

plot of chunk unnamed-chunk-9

plot of chunk unnamed-chunk-10

plot of chunk unnamed-chunk-11

plot of chunk unnamed-chunk-12

plot of chunk unnamed-chunk-13

plot of chunk unnamed-chunk-14

plot of chunk unnamed-chunk-15

plot of chunk unnamed-chunk-16

plot of chunk unnamed-chunk-17

plot of chunk unnamed-chunk-18

plot of chunk unnamed-chunk-19

plot of chunk unnamed-chunk-20

plot of chunk unnamed-chunk-21

plot of chunk unnamed-chunk-22

plot of chunk unnamed-chunk-23

Source:
INE Mortgages
http://ine.es/dynt3/inebase/index.htm?padre=1016&capsel=973&L=0

Merchanting of dwellings by month, system and status

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

Source:
INE Mortgages
http://ine.es/dynt3/inebase/index.htm?padre=1016&capsel=973&L=0

Average m2 dwelling value related to the number of mortgages in Spain

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

plot of chunk unnamed-chunk-7

Source:
INE Mortgages
http://www.ine.es/jaxiT3/Tabla.htm?t=3200&L=1
INE Dwelling value
http://www.ine.es/jaxi/Datos.htm?type=pcaxis&path=/t38/bme2/t07/a081/l0/&file=1300010.px

Mortgage average value in Spainish regions by type

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

plot of chunk unnamed-chunk-7

plot of chunk unnamed-chunk-8

Source:
INE Mortgages constituted

Mortgage constituted in Spain by type

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

plot of chunk unnamed-chunk-7

plot of chunk unnamed-chunk-8

Source:
INE Mortgages constituted

Mortgage constituted in Spain

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

plot of chunk unnamed-chunk-7

plot of chunk unnamed-chunk-8

plot of chunk unnamed-chunk-9

plot of chunk unnamed-chunk-10

plot of chunk unnamed-chunk-11

plot of chunk unnamed-chunk-12

plot of chunk unnamed-chunk-13

plot of chunk unnamed-chunk-14

plot of chunk unnamed-chunk-15

plot of chunk unnamed-chunk-16

plot of chunk unnamed-chunk-17

plot of chunk unnamed-chunk-18

plot of chunk unnamed-chunk-19

plot of chunk unnamed-chunk-20

plot of chunk unnamed-chunk-21

plot of chunk unnamed-chunk-22

plot of chunk unnamed-chunk-23

Source:
INE Mortgages constituted

House Price Index

plot of chunk unnamed-chunk-4

plot of chunk unnamed-chunk-5

plot of chunk unnamed-chunk-6

plot of chunk unnamed-chunk-7

plot of chunk unnamed-chunk-8

plot of chunk unnamed-chunk-9

plot of chunk unnamed-chunk-10

plot of chunk unnamed-chunk-11

plot of chunk unnamed-chunk-12

plot of chunk unnamed-chunk-13

plot of chunk unnamed-chunk-14

plot of chunk unnamed-chunk-15

plot of chunk unnamed-chunk-16

plot of chunk unnamed-chunk-17

plot of chunk unnamed-chunk-18

plot of chunk unnamed-chunk-19

plot of chunk unnamed-chunk-20
plot of chunk unnamed-chunk-21

plot of chunk unnamed-chunk-22

plot of chunk unnamed-chunk-23

Source:
INE Índice de Precios de Vivienda (IPV)

The alternative Western bar chart

## [1] "DAL"
str(DAL)
## An 'xts' object on 2007-05-03/2016-03-21 containing:
##   Data: num [1:2237, 1:6] 21.8 21.2 21.2 20 19.8 ...
##  - attr(*, "dimnames")=List of 2
##   ..$ : NULL
##   ..$ : chr [1:6] "DAL.Open" "DAL.High" "DAL.Low" "DAL.Close" ...
##   Indexed by objects of class: [Date] TZ: UTC
##   xts Attributes:  
## List of 2
##  $ src    : chr "yahoo"
##  $ updated: POSIXct[1:1], format: "2016-03-22 10:30:25"
head(DAL)
##            DAL.Open DAL.High DAL.Low DAL.Close DAL.Volume DAL.Adjusted
## 2007-05-03    21.75    21.95   20.55     20.72    8052800     20.18692
## 2007-05-04    21.25    21.35   20.70     20.98    5437300     20.44023
## 2007-05-07    21.20    21.29   20.20     20.36    2646300     19.83619
## 2007-05-08    20.00    20.00   19.30     19.63    4166100     19.12496
## 2007-05-09    19.75    20.20   19.63     19.79    7541100     19.28085
## 2007-05-10    19.79    19.99   19.55     19.70    3170600     19.19317
barChart(DAL,subset='2016-01::2016',
         theme='white.mono', bar.type='ohlc', TA=NULL)

plot of chunk unnamed-chunk-3

The time symbolic candlestick chart

## [1] "DAL"
str(DAL)
## An 'xts' object on 2007-05-03/2016-03-18 containing:
##   Data: num [1:2236, 1:6] 21.8 21.2 21.2 20 19.8 ...
##  - attr(*, "dimnames")=List of 2
##   ..$ : NULL
##   ..$ : chr [1:6] "DAL.Open" "DAL.High" "DAL.Low" "DAL.Close" ...
##   Indexed by objects of class: [Date] TZ: UTC
##   xts Attributes:  
## List of 2
##  $ src    : chr "yahoo"
##  $ updated: POSIXct[1:1], format: "2016-03-21 10:07:01"
head(DAL)
##            DAL.Open DAL.High DAL.Low DAL.Close DAL.Volume DAL.Adjusted
## 2007-05-03    21.75    21.95   20.55     20.72    8052800     20.18692
## 2007-05-04    21.25    21.35   20.70     20.98    5437300     20.44023
## 2007-05-07    21.20    21.29   20.20     20.36    2646300     19.83619
## 2007-05-08    20.00    20.00   19.30     19.63    4166100     19.12496
## 2007-05-09    19.75    20.20   19.63     19.79    7541100     19.28085
## 2007-05-10    19.79    19.99   19.55     19.70    3170600     19.19317
candleChart(DAL,subset='2016-01::2016',theme="white",TA=NULL) 

plot of chunk unnamed-chunk-3

The naive pie chart

library(MASS)
str(survey)
## 'data.frame':    237 obs. of  12 variables:
##  $ Sex   : Factor w/ 2 levels "Female","Male": 1 2 2 2 2 1 2 1 2 2 ...
##  $ Wr.Hnd: num  18.5 19.5 18 18.8 20 18 17.7 17 20 18.5 ...
##  $ NW.Hnd: num  18 20.5 13.3 18.9 20 17.7 17.7 17.3 19.5 18.5 ...
##  $ W.Hnd : Factor w/ 2 levels "Left","Right": 2 1 2 2 2 2 2 2 2 2 ...
##  $ Fold  : Factor w/ 3 levels "L on R","Neither",..: 3 3 1 3 2 1 1 3 3 3 ...
##  $ Pulse : int  92 104 87 NA 35 64 83 74 72 90 ...
##  $ Clap  : Factor w/ 3 levels "Left","Neither",..: 1 1 2 2 3 3 3 3 3 3 ...
##  $ Exer  : Factor w/ 3 levels "Freq","None",..: 3 2 2 2 3 3 1 1 3 3 ...
##  $ Smoke : Factor w/ 4 levels "Heavy","Never",..: 2 4 3 2 2 2 2 2 2 2 ...
##  $ Height: num  173 178 NA 160 165 ...
##  $ M.I   : Factor w/ 2 levels "Imperial","Metric": 2 1 NA 2 2 1 1 2 2 2 ...
##  $ Age   : num  18.2 17.6 16.9 20.3 23.7 ...
head(survey)
##      Sex Wr.Hnd NW.Hnd W.Hnd    Fold Pulse    Clap Exer Smoke Height
## 1 Female   18.5   18.0 Right  R on L    92    Left Some Never 173.00
## 2   Male   19.5   20.5  Left  R on L   104    Left None Regul 177.80
## 3   Male   18.0   13.3 Right  L on R    87 Neither None Occas     NA
## 4   Male   18.8   18.9 Right  R on L    NA Neither None Never 160.00
## 5   Male   20.0   20.0 Right Neither    35   Right Some Never 165.00
## 6 Female   18.0   17.7 Right  L on R    64   Right Some Never 172.72
##        M.I    Age
## 1   Metric 18.250
## 2 Imperial 17.583
## 3     <NA> 16.917
## 4   Metric 20.333
## 5   Metric 23.667
## 6 Imperial 21.000
Exer = survey$Exer
Exer.freq = table(Exer)
pie(Exer.freq)

plot of chunk unnamed-chunk-3