project1

# project1 - .theater xlab="Rating"...

This preview shows page 1. Sign up to view the full content.

Sheet1 Page 1 plot(movie.genre\$Action\$rating,movie.genre\$Action\$gross, xlab="Rating", ylab="gross", pch=1 ) points(movie.genre\$Comedy\$rating,movie.genre\$Comedy\$gross, pch=2, col=2 ) points(movie.genre\$Drama\$rating,movie.genre\$Drama\$gross, pch=3, col=3 ) points(movie.genre\$Horror\$rating,movie.genre\$Horror\$gross, pch=4, col=4 ) points(movie.genre\$Kids\$rating,movie.genre\$Kids\$gross, pch=5, col=5 ) legend(locator(1),legend=unique(Genre),pch=1:5, col=1:5) plot(movie.genre\$Action\$rating,movie.genre\$Action\$opening, xlab="Rating", ylab="opening", pch=1 ) points(movie.genre\$Comedy\$rating,movie.genre\$Comedy\$opening, pch=2, col=2 ) points(movie.genre\$Drama\$rating,movie.genre\$Drama\$opening, pch=3, col=3 ) points(movie.genre\$Horror\$rating,movie.genre\$Horror\$opening, pch=4, col=4 ) points(movie.genre\$Kids\$rating,movie.genre\$Kids\$opening, pch=5, col=5 ) legend(locator(1),legend=unique(Genre),pch=1:5, col=1:5) plot(movie.genre\$Action\$rating,movie.genre\$Action\$Open.
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: .theater, xlab="Rating", ylab="Open. .theater", pch=1 ) points(movie.genre\$Comedy\$rating,movie.genre\$Comedy\$Open. .theater, pch=2, col=2 ) points(movie.genre\$Drama\$rating,movie.genre\$Drama\$Open. .theater, pch=3, col=3 ) points(movie.genre\$Horror\$rating,movie.genre\$Horror\$Open. .theater, pch=4, col=4 ) points(movie.genre\$Kids\$rating,movie.genre\$Kids\$Open. .theater, pch=5, col=5 ) legend(locator(1),legend=unique(Genre),pch=1:5, col=1:5) plot(movie.genre\$Action\$rating,movie.genre\$Action\$percent, xlab="Rating", ylab="Percent", pch=1 ) points(movie.genre\$Comedy\$rating,movie.genre\$Comedy\$percent, pch=2, col=2 ) points(movie.genre\$Drama\$rating,movie.genre\$Drama\$percent, pch=3, col=3 ) points(movie.genre\$Horror\$rating,movie.genre\$Horror\$percent, pch=4, col=4 ) points(movie.genre\$Kids\$rating,movie.genre\$Kids\$percent, pch=5, col=5 ) legend(locator(1),legend=unique(Genre),pch=1:5, col=1:5)...
View Full Document

{[ snackBarMessage ]}

Ask a homework question - tutors are online