::: {.cell}

```{.r .cell-code}
melt(two.iris.wide, measure.vars=measure(part, dim, sep="."))
```

::: {.cell-output .cell-output-stdout}

```
     Species   part    dim value
      <fctr> <char> <char> <num>
1:    setosa  Sepal Length   5.1
2: virginica  Sepal Length   5.9
3:    setosa  Sepal  Width   3.5
4: virginica  Sepal  Width   3.0
5:    setosa  Petal Length   1.4
6: virginica  Petal Length   5.1
7:    setosa  Petal  Width   0.2
8: virginica  Petal  Width   1.8
```


:::
:::