Porosity:

• Amount of empty space within a material

Permeability:

• Ability of a material to transmit fluid.
• Measure of how connected pathways are within a material.

Using rock dataset available within R.

rockData <- rock
str(rockData)

## 'data.frame':    48 obs. of  4 variables:
##  $ area : int  4990 7002 7558 7352 7943 7979 9333 8209 8393 6425 ...
##  $ peri : num  2792 3893 3931 3869 3949 ...
##  $ shape: num  0.0903 0.1486 0.1833 0.1171 0.1224 ...
##  $ perm : num  6.3 6.3 6.3 6.3 17.1 17.1 17.1 17.1 119 119 ...

library(ggplot2); suppressMessages(library(plotly))

g <- ggplot(data=rockData, aes(x=peri, y=area, color=perm))
g <- g + geom_point() + xlab("Perimeter Distance (pixels)") +
      ylab("Area of Pore Space (square pixels)") +
      scale_color_continuous(name="Permeability (milli-Darcies)")

(gg <- ggplotly(g))