ggplot2 example, R

ggplot2 example

library(ggplot2)
movies<-c("(500) Days of Summer ","10,000 B.C.","12 Rounds ","127 Hours","17 Again ","2012","27 Dresses","30 Days of Night","30 Minutes or Less","50/50","88 Minutes","A Dangerous Method","A Nightmare on Elm Street","A Serious Man ","A Very Harold and Kumar Christmas","Abduction","Across the Universe","Adventureland ","Albert Nobbs","Alice in Wonderland","Alien vs. Predator -- Requiem","Aliens in the Attic ","All About Steve ","All Good Things","Amelia ","American Gangster","An Education","Anonymous","Apollo 18","Appaloosa","Armored ","Arthur","Australia","Avatar ","Away We Go ","Baby Mama","Babylon A.D.","Bad Teacher","Bandslam ","Bangkok Dangerous","Battle: Los Angeles","Be Kind, Rewind","Beastly","Bedtime Stories","Beginners","Beowulf","Beverly Hills Chihuahua","Black Swan","Blades of Glory","Body of Lies","Bride Wars","Bridesmaids","Brooklyn's Finest","Brothers ","Bruno ","Buried","Burlesque","Burn After Reading","Captain America: The First Avenger","Case 39","Cats & Dogs:The Revenge of Kitty Galore","Cedar Rapids","Changeling","Cirque du Freak:The Vampire's Assistant","City Island","City of Ember","Clash of the Titans","Cloverfield","College Road Trip","Colombiana","Conan the Barbarian","Confessions of a Shopaholic ","Contagion","Cop Out","Country Strong","Couples Retreat ","Cowboys and Aliens","Crank:High Voltage","Crazy, Stupid, Love","Cyrus","Daddy Day Camp","Dance Flick","Date Night","Daybreakers","Dear John","Death at a Funeral","Death Race","Definitely, Maybe","Devil","Diary of a Wimpy Kid","Diary of a Wimpy Kid 2: Rodrick Rules","Did You Hear About the Morgans? ","Dinner for Schmucks","Disaster Movie","District 9 ","Disturbia","Dolphin Tale","Don't Be Afraid Of The Dark","Doomsday","Doubt","Drag Me to Hell ","Dragon Wars (aka D-War)","Dragonball Evolution ","Dream House","Drillbit Taylor","Drive","Drive Angry","Due Date","Duplicity ","Dylan Dog: Dead of Night","Eagle Eye","Easy A","Eat Pray Love","Enchanted","Epic Movie","Evan Almighty","Everybody's Fine ","Everything Must Go","Extract ","Extraordinary Measures","Extremely Loud and Incredibly Close","Fame","Fantastic Four: Rise of the Silver Surfer","Fast and Furious ","Fast Five","Faster","Final Destination 5","Fired Up!","Fireproof","First Sunday","Fool's Gold","Footloose","For Colored Girls","Forgetting Sarah Marshall","Four Christmases","Friday the 13th","Friends With Benefits","Fright Night","From Paris with Love","Funny People ","Furry Vengeance","G-Force ","G.I. Joe: The Rise of Cobra ","Gamer ","Get Him to the Greek","Get Smart","Ghost Rider","Ghost Town","Ghosts of Girlfriends Past ","Going the Distance","Good Luck Chuck","Gran Torino","Green Lantern","Green Zone","Greenberg","Grindhouse","Grown Ups","Gulliver's Travels","Hachiko: A Dog's Story","Hall Pass","Halloween","Halloween II","Hancock","Hanna","Hannah Montana: The Movie ","Harold and Kumar Escape from Guantanamo Bay","Harry Potter and the Deathly Hallows Part 1","Harry Potter and the Half-Blood Prince ","Harry Potter and the Order of the Phoenix","He's Just Not That Into You ","Hellboy II: The Golden Army","Hesher","High School Musical 3: Senior Year","Hitman","Horrible Bosses","Hostel: Part II","Hot Tub Time Machine","Hotel for Dogs ","Hugo","I Am Legend","I Am Number Four","I Love You Beth Cooper ","I Love You Phillip Morris","I Love You, Man ","I Now Pronounce You Chuck and Larry","I'm Still Here","Imagine That ","Immortals","In the Land of Women","In Time","Inception","Indiana Jones and the Kingdom of the Crystal Skull","Inglourious Basterds ","Inkheart ","Insidious","Into the Wild","Iron Man","Iron Man 2","It's Complicated ","J.Edgar","Jack and Jill","Jane Eyre","Jennifer's Body ","Johnny English Reborn","Jonah Hex","Journey to the Center of the Earth","Jumper","Juno","Just Go With It","Just Wright","Kick-Ass","Killer Elite","Killers","Kit Kittredge: An American Girl","Knight and Day","Knocked Up","Knowing ","Land of the Lost ","Larry Crowne","Leap Year","Leatherheads","Legion","Letters to Juliet","License to Wed","Life as We Know It","Limitless","Lions for Lambs","Little Fockers","Live Free or Die Hard","Love & Other Drugs","Love Happens ","MacGruber","Machete","Machine Gun Preacher","Mad Money","Made of Honor","Mamma Mia!","Margin Call","Marley and Me","Marmaduke","Max Payne","Meet Dave","Meet the Spartans","Michael Clayton","Midnight in Paris","Miracle at St. Anna","Mirrors","Miss Pettigrew Lives for a Day","Mission Impossible 4","Moneyball","Monte Carlo","Morning Glory","Mother and Child","Mr. Brooks","Mr. Popper's Penguins","Music and Lyrics","My Best Friend's Girl","My Life in Ruins ","My Sister's Keeper ","My Soul to Take","My Week with Marilyn","Nancy Drew","Nanny McPhee Returns","National Treasure: Book of Secrets","Never Back Down","Never Let Me Go","New Year's Eve","Next","Next Day Air ","Nick and Norah's Infinite Playlist","Night at the Museum: Battle of the Smithsonian ","Nights in Rodanthe","Nim's Island","Nine ","Ninja Assassin ","No Country for Old Men","No Reservations","No Strings Attached","Norbit","Not Easily Broken ","Observe and Report ","Obsessed ","Ocean's 13","Old Dogs ","One Day","One Missed Call","Orphan ","Our Family Wedding","Our Idiot Brother","Over Her Dead Body","P.S. I Love You","Pandorum ","Paranormal Activity ","Paranormal Activity 2","Paranormal Activity 3","Pathfinder: Legend of the Ghost Warrior","Paul","Paul Blart: Mall Cop ","Penelope","Percy Jackson & the Olympians: The Lightning Thief","Pineapple Express","Piranha 3-D","Pirate Radio (The Boat that Rocked, UK)","Pirates of the Caribbean: On Stranger Tides","Pirates of the Caribbean: At World's End","Please Give","Post Grad ","Predators","Premonition","Priest","Prince of Persia: The Sands of Time","Prom Night","Punisher: War Zone","Push ","Quantum of Solace","Quarantine","Race to Witch Mountain ","Rachel Getting Married","Rambo","Real Steel","Red","Red Riding Hood","Red State","Remember Me","Repo Men","Resident Evil: Afterlife","Rise of the Planet of the Apes","Robin Hood","Role Models","Rush Hour 3","Salt","Sanctum","Saw IV","Saw VI ","Scott Pilgrim vs. the World","Scream 4","Season Of The Witch","Semi-Pro","Seven Pounds","Sex and the City","Sex and the City 2","Sex Drive","Shame","Shark Night 3D","She's Out of My League","Sherlock Holmes ","Sherlock Holmes 2","Shoot 'Em Up","Shooter","Shutter","Shutter Island","Skyline","Smart People","Solitary Man","Something Borrowed","Sorority Row ","Soul Men","Soul Surfer","Source Code","Speed Racer","Spider-Man 3","Spy Kids: All The Time in the World","Star Trek ","Stardust","Step Brothers","Step Up 2: The Streets","Step Up 3D","Stone","Stop-Loss","Street Fighter: The Legend of Chun-Li ","Street Kings","Sucker Punch","Sunshine Cleaning ","Super 8 ","Superbad","Superhero Movie","Surrogates ","Swing Vote","Take Me Home Tonight","Take Shelter","Taken ","Takers","Taking Woodstock ","Terminator Salvation ","The A-Team","The Adjustment Bureau","The Adventures of Tintin","The Artist","The Back-up Plan","The Bank Job","The Beaver","The Big Year","The Book of Eli","The Bounty Hunter","The Bourne Ultimatum","The Box ","The Boy in the Striped Pyjamas","The Brave One","The Bucket List","The Change Up","The Chronicles of Narnia: Prince Caspian","The Chronicles of Narnia: The Voyage of the Dawn Treader","The Company Men","The Conspirator","The Crazies","The Darjeeling Limited","The Dark Knight","The Day the Earth Stood Still ","The Debt","The Descendants","The Dilemma","The Duchess","The Eagle","The Expendables","The Eye","The Fighter","The Final Destination ","The Forbidden Kingdom","The Game Plan","The Girl With The Dragon Tattoo","The Golden Compass","The Green Hornet","The Hangover ","The Hangover Part II","The Happening","The Haunting in Connecticut ","The Haunting of Molly Hartley","The Heartbreak Kid","The Help","The Hills Have Eyes 2","The House Bunny","The Hurt Locker ","The Ides of March","The Incredible Hulk","The Informant! ","The International ","The Invention of Lying ","The Iron Lady","The Joneses","The Karate Kid","The Kids Are All Right","The Kingdom","The Kite Runner","The Last Airbender","The Last Exorcism","The Last Song","The Lincoln Lawyer","The Longshots","The Losers","The Love Guru","The Lovely Bones ","The Mechanic","The Men Who Stare at Goats ","The Mist","The Mummy: Tomb of the Dragon Emperor","The Muppets","The Nanny Diaries","The Other Boleyn Girl","The Other Guys","The Pink Panther 2 ","The Proposal ","The Reaping","The Rite","The Road ","The Roommate","The Ruins","The Rum Diary","The Secret Life of Bees","The Simpsons Movie","The Sitter","The Soloist ","The Son Of No One","The Sorcerer's Apprentice","The Spirit","The Spy Next Door","The Strangers","The Switch","The Taking of Pelham 1 2 3 ","The Thing","The Three Musketeers","The Time Traveler's Wife ","The Tourist","The Tree Of Life","The Twilight Saga: Eclipse","The Twilight Saga: New Moon","The Ugly Truth","The Unborn","The Uninvited ","The Visitor","The Wolfman","The Women","The X-Files: I Want to Believe","There Will Be Blood","Thor","Tinker Tailor Soldier Spy","TMNT","Tooth Fairy","Tower Heist","Traitor","Transformers","Transformers: Dark of the Moon","Transformers: Revenge of the Fallen ","Transporter 3","Trespass","Tron: Legacy","Tropic Thunder","True Grit","Twilight","Twilight: Breaking Dawn","Tyler Perry's Meet the Browns","Tyler Perry's The Family That Preys","Tyler Perry's Why Did I get Married","Under the Same Moon","Underworld: Rise of the Lycans ","Unknown","Unstoppable","Untraceable","Up in the Air ","Vacancy","Valentine's Day","Valkyrie","Vampires Suck","Vanishing on 7th Street","Vantage Point","Vicky Cristina Barcelona","W.","Waiting For Forever","Waitress","Walk Hard: The Dewey Cox Story","Wall Street: Money Never Sleeps","Wanted","War Horse","Warrior","Watchmen ","Water For Elephants","We Bought a Zoo","We Own the Night","Welcome Home, Roscoe Jenkins","What Happens in Vegas","What's Your Number","Whatever Works","When in Rome","Where the Wild Things Are","Whip It","Whiteout","Why Did I Get Married Too?","Wild Hogs","Winter's Bone","X-Men Origins: Wolverine ","X-Men: First Class","Year One ","Yes Man","Yogi Bear","You Again","You Don't Mess with the Zohan","You Will Meet a Tall Dark Stranger","Your Highness","Youth in Revolt","Zack and Miri Make a Porno","Zodiac","Zombieland ","Zookeeper")
genre<-c("Comedy","Adventure","Action","Adventure","Comedy","Action","Comedy","Horror","Comedy","Comedy","Drama","Drama","Horror","Drama","Comedy","Action","Romance","Comedy","Drama","Adventure","Horror","Adventure","Comedy","Drama","Adventure","Thriller","Drama","Drama","Horror","Action","Action","Comedy","Adventure","Action","Comedy","Comedy","Action","Comedy","Comedy","Action","Action","Comedy","Romance","Comedy","Comedy","Action","Adventure","Drama","Comedy","Action","Comedy","Comedy","Action","Drama","Comedy","Drama","Drama","Comedy","Action","Horror","Action","Comedy","Drama","Action","Comedy","Adventure","Action","Action","Adventure","Action","Action","Comedy","Thriller","Action","Drama","Comedy","Action","Action","Romance","Comedy","Comedy","Action","Comedy","Action","Drama","Comedy","Action","Comedy","Horror","Comedy","Comedy","Comedy","Comedy","Comedy","Action","Thriller","Drama","Horror","Action","Drama","Horror","Action","Action","Horror","Comedy","Thriller","Action","Comedy","Romance","Horror","Action","Comedy","Drama","Comedy","Comedy","Comedy","Drama","Drama","Comedy","Drama","Drama","Comedy","Action","Action","Action","Action","Horror","Comedy","Drama","Comedy","Adventure","Drama","Drama","Comedy","Comedy","Horror","Romance","Horror","Action","Comedy","Comedy","Action","Action","Action","Comedy","Action","Action","Comedy","Comedy","Comedy","Comedy","Drama","Action","Action","Comedy","Action","Comedy","Comedy","Drama","Comedy","Horror","Horror","Action","Action","Comedy","Adventure","Adventure","Adventure","Adventure","Comedy","Action","Drama","Comedy","Action","Comedy","Horror","Adventure","Comedy","Adventure","Thriller","Thriller","Comedy","Comedy","Comedy","Comedy","Comedy","Comedy","Action","Comedy","Thriller","Action","Action","Adventure","Adventure","Horror","Drama","Action","Action","Comedy","Drama","Comedy","Romance","Comedy","Comedy","Action","Action","Action","Comedy","Romance","Comedy","Action","Action","Action","Drama","Action","Comedy","Drama","Drama","Drama","Comedy","Comedy","Action","Comedy","Comedy","Comedy","Thriller","Drama","Comedy","Action","Comedy","Drama","Action","Action","Action","Comedy","Comedy","Comedy","Thriller","Comedy","Comedy","Action","Adventure","Comedy","Thriller","Romance","Action","Horror","Comedy","Action","Drama","Romance","Comedy","Drama","Thriller","Comedy","Romance","Comedy","Comedy","Drama","Horror","Drama","Thriller","Comedy","Thriller","Action","Drama","Romance","Thriller","Action","Comedy","Action","Drama","Adventure","Drama","Action","Drama","Comedy","Comedy","Comedy","Drama","Comedy","Drama","Thriller","Comedy","Romance","Horror","Horror","Comedy","Comedy","Comedy","Romance","Action","Horror","Horror","Horror","Action","Comedy","Action","Comedy","Action","Action","Comedy","Comedy","Action","Action","Comedy","Comedy","Action","Drama","Action","Action","Horror","Action","Action","Action","Horror","Action","Drama","Action","Action","Action","Horror","Horror","Drama","Action","Action","Action","Action","Comedy","Action","Action","Action","Horror","Horror","Action","Horror","Action","Comedy","Drama","Comedy","Comedy","Adventure","Drama","Horror","Comedy","Action","Action","Action","Action","Horror","Drama","Action","Comedy","Comedy","Romance","Horror","Comedy","Drama","Thriller","Action","Action","Action","Action","Adventure","Comedy","Drama","Drama","Drama","Drama","Action","Action","Action","Comedy","Horror","Comedy","Comedy","Action","Comedy","Comedy","Drama","Action","Action","Comedy","Action","Action","Thriller","Adventure","Drama","Comedy","Thriller","Drama","Comedy","Action","Action","Thriller","Drama","Drama","Action","Drama","Comedy","Action","Adventure","Drama","Drama","Horror","Drama","Thriller","Thriller","Thriller","Drama","Comedy","Drama","Action","Action","Horror","Drama","Horror","Action","Comedy","Thriller","Action","Action","Comedy","Comedy","Thriller","Drama","Horror","Comedy","Drama","Horror","Comedy","Drama","Thriller","Action","Comedy","Action","Comedy","Drama","Comedy","Action","Comedy","Action","Drama","Action","Drama","Drama","Drama","Comedy","Action","Comedy","Drama","Action","Comedy","Horror","Action","Comedy","Comedy","Drama","Action","Adventure","Comedy","Horror","Horror","Adventure","Horror","Horror","Drama","Drama","Comedy","Comedy","Drama","Thriller","Action","Action","Action","Horror","Comedy","Action","Horror","Action","Drama","Thriller","Drama","Drama","Drama","Comedy","Horror","Drama","Drama","Drama","Drama","Thriller","Drama","Action","Thriller","Action","Comedy","Comedy","Thriller","Action","Action","Action","Action","Thriller","Action","Comedy","Adventure","Romance","Romance","Drama","Drama","Romance","Drama","Action","Thriller","Action","Thriller","Drama","Comedy","Comedy","Thriller","Comedy","Horror","Thriller","Romance","Drama","Romance","Romance","Comedy","Drama","Action","Drama","Action","Action","Drama","Comedy","Drama","Comedy","Comedy","Comedy","Comedy","Comedy","Adventure","Drama","Action","Comedy","Comedy","Drama","Action","Action","Adventure","Comedy","Comedy","Comedy","Comedy","Comedy","Comedy","Comedy","Romance","Thriller","Action","Comedy")
RT_rating<-c(87,9,30,93,55,39,40,50,43,93,5,79,13,89,72,4,54,89,53,52,14,30,6,33,21,79,94,46,23,77,40,26,55,83,67,63,7,44,79,9,35,65,19,25,84,71,41,88,69,53,11,90,42,61,68,86,36,78,78,23,13,86,62,38,81,52,28,77,13,28,22,24,84,19,20,12,44,62,78,80,1,17,66,67,29,40,42,71,52,53,47,12,43,2,91,67,84,59,48,78,92,27,15,7,26,93,45,40,64,6,27,85,36,93,2,23,46,74,62,27,47,25,35,28,78,41,61,22,40,13,11,71,33,85,26,25,71,75,38,68,8,22,33,29,73,51,28,85,27,53,3,80,27,53,75,82,10,21,58,35,26,20,40,71,44,54,79,83,78,42,87,54,65,15,69,44,64,46,93,69,32,14,71,83,13,52,38,36,43,38,86,77,88,39,67,82,94,74,56,42,4,85,42,38,13,61,16,94,19,45,76,25,11,78,53,91,33,26,34,21,52,19,40,8,28,69,27,9,79,48,18,47,73,29,22,13,53,86,63,9,16,19,2,90,93,34,14,78,93,95,38,54,79,56,47,63,14,9,47,9,83,49,77,31,23,70,8,29,21,73,43,31,51,37,25,95,39,49,9,34,51,20,70,5,37,0,55,14,68,15,21,28,82,0,68,11,72,33,52,50,68,74,60,34,45,88,7,64,8,17,36,8,27,22,64,59,42,85,36,58,71,11,57,28,22,24,83,42,77,20,62,30,18,40,81,58,10,21,27,49,15,46,80,16,57,70,60,67,47,7,68,16,50,81,0,22,45,46,92,38,61,22,94,76,54,26,46,49,65,16,37,23,72,82,88,15,39,36,28,92,58,27,48,33,47,72,74,97,20,78,62,38,48,7,93,46,63,43,41,24,66,49,66,56,72,67,94,19,76,89,23,60,39,40,22,91,29,64,27,87,42,44,79,35,19,17,3,30,75,11,39,97,85,67,78,58,56,53,61,66,94,52,66,6,73,19,84,39,47,14,32,53,52,72,14,97,33,41,78,12,43,9,20,75,4,46,50,56,90,22,56,18,42,14,13,44,52,51,36,24,38,20,84,50,27,14,11,31,92,33,13,32,91,77,83,33,16,68,55,57,35,20,36,11,50,83,96,49,26,31,51,46,72,30,55,86,14,90,55,17,58,4,52,35,82,60,6,89,75,54,73,77,83,64,60,63,55,24,28,24,50,15,73,84,7,27,14,94,37,87,14,43,14,18,36,43,26,68,64,89,90,14)
Aud_Rating<-c(81,44,52,84,70,63,71,57,48,93,51,89,40,64,71,46,84,56,43,72,37,46,35,64,35,87,78,66,31,55,34,49,69,92,74,59,32,38,60,33,50,57,50,63,80,52,56,86,66,65,56,77,47,62,48,63,66,64,75,42,43,61,84,50,77,48,48,67,56,55,34,53,63,45,56,47,50,54,81,51,63,35,58,50,66,48,69,72,45,49,63,31,47,28,81,75,81,37,47,75,61,44,28,38,49,79,38,56,38,28,72,75,46,80,38,56,55,53,37,55,62,43,55,76,83,50,56,52,51,59,53,71,73,75,52,52,68,68,57,58,36,50,62,43,63,73,56,60,47,56,61,90,48,60,40,86,59,31,85,44,64,45,67,67,66,65,87,75,82,60,70,68,76,61,72,45,57,57,84,69,57,38,57,72,73,38,44,59,72,55,93,59,87,51,65,90,91,80,63,84,59,77,37,55,24,55,50,89,63,58,83,48,45,26,52,83,50,38,46,49,41,36,62,55,62,73,48,40,86,55,40,33,66,71,51,61,76,73,77,46,36,42,31,72,84,68,49,70,86,89,50,54,61,75,54,70,51,43,73,29,84,61,54,72,37,70,48,59,27,67,60,56,50,40,57,84,64,57,56,66,40,50,74,49,54,36,65,49,79,47,82,49,56,0,58,41,70,50,74,57,74,45,72,61,74,62,31,52,55,37,71,46,47,47,62,46,50,61,70,81,72,41,59,70,43,53,87,59,75,68,62,39,70,67,83,57,32,41,77,81,49,61,80,25,60,81,79,66,82,40,73,19,41,47,0,38,42,79,81,61,54,40,91,86,68,81,67,20,27,28,62,48,59,78,87,36,42,44,46,85,83,57,48,64,71,67,78,91,47,74,57,62,68,41,91,27,84,65,81,53,78,63,55,65,54,79,96,34,70,88,31,68,43,58,51,88,52,65,75,89,55,47,87,58,29,51,22,41,91,50,54,83,76,75,42,39,47,54,47,75,72,78,85,42,32,66,82,39,55,38,57,52,43,64,40,87,52,65,57,47,74,53,43,65,29,32,48,78,78,43,59,61,57,29,46,48,44,60,52,48,65,44,61,74,78,68,39,52,83,38,41,34,84,80,68,63,46,61,66,89,67,76,58,24,67,69,86,82,68,36,36,47,37,68,57,73,56,76,46,54,66,32,62,61,73,42,53,67,55,43,72,73,93,68,72,79,63,64,72,50,63,44,59,73,28,67,72,73,72,88,31,72,36,45,50,35,36,52,70,73,87,42)
Budget<-c(8,105,20,18,20,200,30,32,28,8,30,20,35,7,19,35,45,10,8,200,40,45,15,20,40,100,8,30,5,20,20,40,78,237,21,70,45,20,20,45,70,20,17,80,4,150,20,13,61,68,30,33,17,26,42,2,55,37,140,26,85,10,55,40,6,38,125,25,140,40,90,70,60,30,15,60,163,13,50,7,6,25,55,20,25,21,45,7,10,15,21,58,69,20,30,20,37,25,33,25,30,75,30,50,40,15,45,50,60,20,80,8,60,85,20,175,21,5,8,31,40,18,130,85,125,24,40,20,1,13,73,24,21,30,80,19,35,30,52,75,35,150,175,13,40,80,110,20,50,32,25,33,200,100,0,53,80,112,16,36,20,15,150,30,35,12,125,250,150,25,83,7,11,18,35,10,36,35,150,150,60,18,15,40,85,0,55,75,10,40,160,185,70,60,2,15,186,200,85,35,79,0,16,45,47,45,83,8,80,12,30,70,75,10,117,33,50,100,30,19,58,26,30,35,38,27,35,100,110,30,18,10,20,30,22,40,66,4,55,50,35,60,30,25,17,45,35,60,145,50,20,40,7,20,55,40,20,17,28,25,10,20,35,130,21,15,56,70,3,10,150,30,37,80,50,25,28,25,60,5,18,20,85,35,15,20,30,0,5,10,30,40,1,3,5,26,40,26,15,95,26,24,50,250,300,3,15,40,20,60,200,18,35,38,230,12,50,12,48,110,58,42,4,16,32,60,93,200,28,140,110,30,10,11,60,40,40,3,55,58,100,19,7,25,20,90,125,39,61,8,80,10,7,15,35,13,0,18,32,120,258,27,140,70,65,18,30,22,25,50,20,82,5,50,20,65,80,20,25,5,25,32,29,200,100,51,130,16,35,20,21,41,80,40,110,30,13,70,45,52,200,155,15,25,20,18,185,100,20,20,70,14,25,82,12,25,40,55,22,90,180,120,35,80,48,30,5,60,25,15,25,15,13,138,22,50,19,13,10,40,4,80,20,150,2,20,40,30,25,62,65,40,25,18,145,45,20,40,100,59,40,40,37,25,16,25,45,11,75,25,60,15,150,6,0,9,19,100,38,75,39,100,32,68,50,38,16,0,4,150,16,35,25,150,21,35,48,75,22,150,195,210,30,35,170,90,38,37,110,20,10,15,2,35,30,95,35,25,19,52,75,20,10,40,16,26,5,2,35,70,75,66,25,130,38,50,21,35,35,20,15,0,100,15,35,20,90,2,150,160,60,70,80,20,80,22,50,18,24,65,24,80)
Year<-c(2009,2008,2009,2010,2009,2009,2008,2007,2011,2011,2007,2011,2010,2009,2011,2011,2007,2009,2011,2010,2007,2009,2009,2010,2009,2007,2009,2011,2011,2008,2009,2011,2008,2009,2009,2008,2008,2011,2009,2008,2011,2008,2011,2008,2010,2007,2008,2010,2007,2008,2009,2011,2009,2009,2009,2010,2010,2008,2011,2009,2010,2011,2008,2009,2009,2008,2010,2008,2008,2011,2011,2009,2011,2010,2010,2009,2011,2009,2011,2010,2007,2009,2010,2009,2010,2007,2008,2008,2010,2010,2011,2009,2010,2008,2009,2007,2011,2010,2008,2008,2009,2007,2009,2011,2008,2011,2011,2010,2009,2010,2008,2010,2010,2007,2007,2007,2009,2010,2009,2010,2011,2009,2007,2009,2011,2010,2011,2009,2008,2008,2008,2011,2010,2008,2008,2009,2011,2011,2010,2009,2010,2009,2009,2009,2010,2008,2007,2008,2009,2010,2007,2008,2011,2010,2010,2007,2010,2010,2009,2011,2007,2009,2008,2011,2009,2008,2010,2009,2007,2009,2008,2010,2008,2007,2011,2007,2010,2009,2011,2007,2011,2009,2009,2009,2007,2010,2009,2011,2007,2011,2010,2008,2009,2008,2008,2007,2008,2010,2009,2011,2011,2011,2009,2011,2010,2008,2008,2007,2011,2010,2010,2011,2010,2008,2010,2007,2009,2009,2011,2010,2008,2010,2010,2007,2010,2011,2007,2010,2007,2010,2009,2010,2010,2011,2008,2008,2008,2011,2008,2010,2008,2008,2008,2007,2011,2008,2008,2008,2011,2011,2011,2010,2009,2007,2011,2007,2008,2009,2009,2010,2011,2007,2010,2007,2008,2010,2011,2007,2009,2008,2009,2008,2008,2009,2009,2007,2007,2011,2007,2009,2009,2009,2007,2009,2011,2008,2009,2010,2011,2008,2007,2009,2007,2010,2011,2007,2011,2009,2008,2010,2008,2010,2009,2011,2007,2010,2009,2010,2007,2011,2010,2008,2008,2009,2008,2008,2009,2008,2008,2011,2010,2011,2011,2010,2010,2010,2011,2010,2008,2007,2010,2011,2007,2009,2010,2011,2011,2008,2008,2008,2010,2008,2011,2011,2010,2009,2011,2007,2007,2008,2010,2010,2008,2009,2011,2009,2008,2011,2011,2008,2007,2011,2009,2007,2008,2008,2010,2010,2008,2009,2008,2011,2008,2011,2007,2008,2009,2008,2011,2011,2008,2010,2009,2009,2010,2011,2011,2011,2010,2008,2011,2011,2010,2010,2007,2009,2008,2007,2007,2011,2008,2010,2010,2010,2010,2007,2008,2008,2010,2011,2011,2008,2011,2010,2008,2010,2009,2008,2007,2011,2007,2011,2009,2011,2008,2009,2008,2007,2011,2007,2008,2008,2011,2008,2009,2009,2009,2011,2011,2010,2010,2007,2007,2010,2010,2010,2011,2008,2010,2008,2009,2011,2009,2007,2008,2011,2007,2008,2010,2009,2009,2007,2011,2009,2011,2008,2011,2008,2007,2011,2009,2011,2010,2008,2010,2008,2010,2009,2011,2011,2009,2010,2011,2010,2009,2009,2009,2009,2007,2010,2008,2008,2007,2011,2011,2007,2010,2011,2008,2007,2011,2009,2008,2011,2010,2008,2010,2008,2011,2008,2008,2007,2007,2009,2011,2010,2008,2009,2007,2010,2008,2010,2010,2008,2008,2008,2010,2007,2007,2010,2008,2011,2011,2009,2011,2011,2007,2008,2008,2011,2009,2010,2009,2009,2009,2010,2007,2010,2009,2011,2009,2008,2010,2010,2008,2010,2011,2009,2008,2007,2009,2011)
movie_RT<-data.frame(movies,genre,CriticRating=RT_rating,Audience_ratings<-Aud_Rating,Budget,Year)

movie_RT$Year<-factor(movie_RT$Year)
#qplot(data=movie_RT,x=genre,y=Rotten_tomatoes,size=I(3),colour=genre,alpha=I(0.5),main="Genre Movie RT_Ratings")
#qplot(data=movie_RT,x=Budget,y=Rotten_tomatoes,size=I(3),colour=genre,alpha=I(0.5),main="Budget Movie RT_Ratings")

#head(movie_RT)
#str(movie_RT)
#summary(movie_RT)
#----ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings))

# ******************add gemoetry***************
#-----ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings))+geom_point()

#*****************add color********
#ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings,color=genre))+ geom_point()

#*****************Add size****************
#ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings,color=genre,size=Budget))+ geom_point()

#************************mapping vs plotting*****************************************
t<-ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings))
#r+geom_point(aes(color="genre"))
#r+geom_point(color="Darkgreen")

s<-ggplot(data=movie_RT,aes(x=Budget))
#s+geom_histogram(binwidth=10)

#adding color
#s+geom_histogram(binwidth=10,aes(fill=genre))

#adding border
#s+geom_histogram(binwidth=10,aes(fill=genre),color="Black")
#Creating Density Charts

#s+geom_density(aes(fill=genre))
#s+geom_density(aes(fill=genre),position="stack")

#**********************setting layer Tips*********

t<-ggplot(data=movie_RT,aes(x=Audience_ratings))
#t+geom_histogram(binwidth=10,fill="white",colour="Blue")
# Atlernate method
t<-ggplot(data=movie_RT)
#t+geom_histogram(aes(x=CriticRating),binwidth=10,fill="white",colour="Blue")

#**************Statsitical Transformations**************
u<-ggplot(data=movie_RT,aes(x=Audience_ratings,y=CriticRating,colour=genre))
#u+geom_point()+geom_smooth(fill=NA)

#************Box Plot*****************************
BU<-ggplot(data=movie_RT,aes(x=genre,y=CriticRating,color=genre))
#BU+geom_boxplot(size=1.5)
#BU+geom_boxplot(size=1.5)+geom_jitter()
#Work around
#BU+geom_boxplot(aes(x=Year,y=Audience_ratings,color=Year),size=I(1.5),alpha=I(0.5))+geom_jitter(aes(x=Year,y=Audience_ratings,color=Year))
#BU+geom_boxplot(size=1.5,alpha=0.5)+geom_jitter()

AR<-ggplot(data=movie_RT,aes(x=genre,y=Audience_Rating,color=genre))
#AR+geom_boxplot(aes(x=genre,y=Audience_ratings,color=genre),size=I(1.5),alpha=I(0.5))+geom_jitter(aes(x=genre,y=Audience_ratings,color=genre))

#************************using Facets
v<-ggplot(data=movie_RT,aes(x=Budget))
#v+geom_histogram(binwidth=10,aes(fill=genre),color="Black")+facet_grid(genre~.,scales="free")

#facets on scatter plot

q<-ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings,color=genre))
#q+geom_point(size=3)+facet_grid(genre~.,scales="free")

#q+geom_point(size=3)+facet_grid(.~Year)
#q+geom_point(size=3)+facet_grid(genre~Year)
#q+geom_point(size=3)+geom_smooth()+facet_grid(genre~Year)
#q+geom_point(aes(size=Budget))+geom_smooth()+facet_grid(genre~Year)+coord_cartesian(ylim=c(0,100))

#limits,Zoom,
m<-ggplot(data=movie_RT,aes(x=CriticRating,y=Audience_ratings,size=Budget,color=genre))

m+geom_point()+xlim(50,100)+ylim(50,100)

#won't work well alwys

n<-ggplot(data=movie_RT,aes(x=Budget))
n+geom_histogram(binwidth=10,aes(fill=genre),color="Black")+ylim(0,50)

#zoom
q+geom_point(aes(size=Budget))+geom_smooth()+facet_grid(genre~Year)+coord_cartesian(ylim=c(0,50))

q+geom_point(aes(size=Budget))+geom_smooth()+facet_grid(genre~Year)+coord_cartesian(ylim=c(0,100))


run \| edit \| history \| help	0