---
title: "NTU Computer Programming - HW09"
author: "Feng-Li Lian"
date: "2018, 5, 10"
output:
  html_document:
    df_print: paged
Subject: plot many figures
ID: B01931001
---

## write something about your goal
The goal is to plot the data iris in specified formats.
Assigne the data

```{r iris}
#
data( iris )
# assign dataset as new objects, x1, x2, x3, x4
x1 <- iris[, 1]
x2 <- iris[, 2]
x3 <- iris[, 3]
x4 <- iris[, 4]
#
ylim <- range(x1, x2, x3, x4)
```

# windows( width = 8, height = 6, pointsize = 8 )
# quartz( width = 8, height = 6, pointsize = 8 )

```{r}
#
old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
layout( matrix( c(1, 2, 0, 3, 4, 5), nrow = 2, ncol = 3), width = c(2,1,4), height = c(2, 3) )
```

## First plot!
#
#

```{r iris[ , 1 ] , echo=FALSE }
plot(   )
mtext(   )

```

## Second plot!
#
#

```{r}
#
plot(  )
axis(   )

```

## Third plot!
#
#

```{r}
#
plot(   )

```


## 4th plot!
#
#

```{r}
plot(  )

```

# something 
#


```{r}
plot( )
matpoints(   )
title(   )
legend(   )
axis(   )


```

# reset parameters

```{r}
#
par(old.par)
# axis( side = 2, col = "cyan", col.axis = "red" )
```

