Fix bugs caused by version error.

"opts" is deprecated. And geom_bar method has an error in the resent version of R.
I modified the program with the one edited by the original author.
https://github.com/sausheong/everyday/blob/master/Chapter%203%20-%20Offices%20and%20Restrooms/example3-6.r