使用ggplot和lapply创建多个图

时间:2017-01-31 10:48:43

标签: r ggplot2 lapply

我试图使用lapply使用ggplot绘制多个绘图。出于某种原因,代码抱怨需要至少有一个值的分面变量。代码如下

lapply(provinces_with_highest_crime, function(regionName) {
  ggplot(crimestats_regrouped[crimestats_regrouped$Province==regionName,], 
         aes(x=variable, y=value, color="red")) +
    geom_bar(stat = "identity") + facet_wrap(~Category, ncol = 3) +
    ggtitle(paste("Crimes for ", "regionName")) +
    labs(x="Time Period",y="Number of Crimes")
  })

如果我删除了crimestats_regrouped的过滤器,代码运行正常,当然输出错误。我的问题是为什么会这样发生,我该怎么做才能克服这个问题?

这里是dput的输出,用于重新创建对象crimestats_regrouped

structure(list(Province = structure(c(9L, 3L, 9L, 2L, 3L, 7L, 
4L, 3L, 3L, 3L, 6L, 9L, 9L, 3L, 9L, 3L, 1L, 4L, 9L, 1L), .Label = c("Eastern Cape", 
"Free State", "Gauteng", "Kwazulu/Natal", "Limpopo", "Mpumalanga", 
"North West", "Northern Cape", "Western Cape"), class = "factor"), 
    Station = structure(c(146L, 428L, 655L, 791L, 840L, 893L, 
    232L, 127L, 101L, 374L, 728L, 146L, 655L, 899L, 67L, 970L, 
    238L, 232L, 655L, 398L), .Label = c("'King William''S Town'", 
    "'Low''S Creek'", "'Pilgrim''S Rest'", "'Rankin''S Pass'", 
    "'Simon''S Town'", "Aberdeen", "Acornhoek", "Actonville", 
    "Addo", "Adelaide", "Afsondering", "Aggeneys", "Akasia", 
    "Albertinia", "Alberton", "Alexander Bay", "Alexandra", "Alexandra Road", 
    "Alexandria", "Algoapark", "Alice", "Alicedale", "Aliwal North", 
    "Allanridge", "Alldays", "Amalia", "Amangwe", "Amanzimtoti", 
    "Amersfoort", "Amsterdam", "Apel", "Arlington", "Ashton", 
    "Assen", "Atamelang", "Athlone", "Atlantis", "Atteridgeville", 
    "Augrabies", "Avondale", "Babanango", "Badplaas", "Bainsvlei", 
    "Balfour", "Balfour Tvl", "Barberton", "Barkly East", "Barkly West", 
    "Barrydale", "Bathlaros", "Batho", "Bathurst", "Baviaanskloof", 
    "Bayswater", "Bayview", "Beacon Bay", "Beaufort West", "Bedford", 
    "Bedfordview", "Bedwang", "Bekkersdal", "Bela-Bela", "Belfast", 
    "Belhar", "Bell", "Bellair", "Bellville", "Bellville South", 
    "Belmont", "Benoni", "Berea", "Bergville", "Berlin", "Besters", 
    "Bethal", "Bethanie", "Bethelsdorp", "Bethlehem", "Bethulie", 
    "Bhekithemba", "Bhisho", "Bholo", "Bholothwa", "Biesiesvlei", 
    "Bishop Lavis", "Bishopstowe", "Bityi", "Blinkpan", "Bloemhof", 
    "Bloemspruit", "Bluewater", "Boetsap", "Boipatong", "Boitekong", 
    "Boithuso", "Boksburg", "Boksburg North", "Bolobedu", "Bonnievale", 
    "Boons", "Booysens", "Boschkop", "Boshoek", "Boshof", "Boston", 
    "Bothasig", "Bothaville", "Bothithong", "Botlokwa", "Botshabelo", 
    "Brackendowns", "Brackenfell", "Brakpan", "Bramley", "Brandfort", 
    "Brandvlei", "Bray", "Bredasdorp", "Breyten", "Bridge Camp", 
    "Brighton Beach", "Brits", "Britstown", "Brixton", "Bronkhorstspruit", 
    "Bronville", "Brooklyn", "Buffalo Flats", "Buffelshoek", 
    "Bulgerivier", "Bultfontein", "Bulwer", "Burgersdorp", "Burgersfort", 
    "Bushbuckridge", "Butterworth", "Cala", "Calcutta", "Caledon", 
    "Calitzdorp", "Calvinia", "Cambridge", "Campbell", "Camperdown", 
    "Camps Bay", "Cape Town Central", "Carletonville", "Carnarvon", 
    "Carolina", "Cathcart", "Cato Manor", "Cedarville", "Centane", 
    "Ceres", "Ceza", "Chalumna", "Charl Cilliers", "Charlestown", 
    "Chatsworth", "Chrissiesmeer", "Christiana", "Chungwa", "Citrusdal", 
    "Clanwilliam", "Claremont", "Clarens", "Cleveland", "Clocolan", 
    "Cloetesville", "Coffee Bay", "Cofimvaba", "Colenso", "Colesberg", 
    "Coligny", "Committees", "Conville", "Cookhouse", "Cornelia", 
    "Cradock", "Cramond", "Creighton", "Crystalpark", "Cullinan", 
    "Cumberland", "Cyferskuil", "Da Gamaskop", "Dalasile", "Dalton", 
    "Danielskuil", "Dannhauser", "Darling", "Davel", "Daveyton", 
    "Dawn Park", "De Aar", "De Deur", "De Doorns", "De Rust", 
    "Dealesville", "Deben", "Delareyville", "Delft", "Delmas", 
    "Delportshoop", "Deneysville", "Dennilton", "Despatch", "Devon", 
    "Dewetsdorp", "Dientjie", "Diepkloof", "Dieprivier", "Diepsloot", 
    "Dimbaza", "Dingleton", "Dirkiesdorp", "Dobsonville", "Donnybrook", 
    "Dordrecht", "Doring Bay", "Doringkloof", "Dorset", "Douglas", 
    "Douglasdale", "Dube", "Dududu", "Duduza", "Dullstroom", 
    "Duncan Village", "Dundee", "Dunnottar", "Durban Central", 
    "Durban North", "Durbanville", "Dutywa", "Dwaalboom", "Dysselsdorp", 
    "East London", "Edenburg", "Edenpark", "Edenvale", "Edenville", 
    "Eendekuil", "Eersterust", "Ekangala", "Ekombe", "Ekulindeni", 
    "Ekuvukeni", "Elands Bay", "Elands Height", "Elandskraal", 
    "Elandslaagte", "Eldorado Park", "Elliot", "Elliotdale", 
    "Elsburg", "Elsies River", "Elukwatini", "Emanguzi", "Ematimatolo", 
    "Ematsheni", "Embalenhle", "Empangeni", "Emzinoni", "Ennerdale", 
    "Erasmia", "Ermelo", "Eshowe", "Esikhaleni", "Estcourt", 
    "Etwatwa", "Evander", "Evaton", "Evatt", "Excelsior", "Ezakheni", 
    "Ezibayeni", "Ezibeleni", "Ezinqoleni", "Fairland", "Fauresmith", 
    "Fernie", "Ficksburg", "Fish Hoek", "Flagstaff", "Florida", 
    "Floukraal", "Fochville", "Folweni", "Fort Beaufort", "Fort Brown", 
    "Fouriesburg", "Franklin", "Franschhoek", "Fraserburg", "Ga-Rankuwa", 
    "Galeshewe", "Gamalakhe", "Gans Bay", "Ganyesa", "Gariepdam", 
    "Garies", "Garsfontein", "Gelvandale", "Genadendal", "George", 
    "Germiston", "Gilead", "Gingindlovu", "Giyani", "Glen", "Glen Grey", 
    "Glencoe", "Glendale", "Gluckstadt", "Goedemoed", "Gonubie", 
    "Goodwood", "Gordons Bay", "Gowan Lea", "Graaff-Reinet", 
    "Graafwater", "Grabouw", "Grahamstown", "Graskop", "Grassy Park", 
    "Gravelotte", "Greenwood Park", "Greylingstad", "Greytown", 
    "Griekwastad", "Groblersdal", "Groblershoop", "Groenvlei", 
    "Groot-Drakenstein", "Groot Brakrivier", "Groot Marico", 
    "Grootvlei", "Gugulethu", "Haenertsburg", "Hamburg", "Hammanskraal", 
    "Hammarsdale", "Hankey", "Hanover", "Harare", "Harburg", 
    "Harding", "Harrismith", "Hartbeesfontein", "Hartbeespoortdam", 
    "Hartebeeskop", "Hartswater", "Hattingspruit", "Hazyview", 
    "Healdtown", "Hebron", "Heidedal", "Heidelberg (Gp)", "Heidelberg(C)", 
    "Heilbron", "Hekpoort", "Helpmekaar", "Henderson", "Hendrina", 
    "Hennenman", "Hercules", "Hermanus", "Hertzogville", "Heuningspruit", 
    "Heuningvlei", "Hibberdene", "Highflats", "Hillbrow", "Hillcrest", 
    "Hilton-Kzn", "Himeville", "Hlababomvu", "Hlabisa", "Hlanganani", 
    "Hlobane", "Hlogotlou", "Hluhluwe", "Hobhouse", "Hoedspruit", 
    "Hofmeyr", "Hogsback", "Hondeklip Bay", "Honeydew", "Hoopdal", 
    "Hoopstad", "Hopefield", "Hopetown", "Hout Bay", "Howick", 
    "Huhudi", "Humansdorp", "Humewood", "Ibisi", "Ida", "Ikageng", 
    "Ikamvelihle", "Ilinge", "Impendle", "Inanda", "Inchanga", 
    "Indwe", "Ingogo", "Ingwavuma", "Int Airp King Shaka", "Intsikeni", 
    "Inyibiba", "Ipelegeng", "Isipingo", "Itsoseng", "Ivory Park", 
    "Ixopo", "Jabulani", "Jacobsdal", "Jagersfontein", "Jamestown", 
    "Jan Kempdorp", "Jane Furse", "Jansenville", "Jeffreys Bay", 
    "Jeppe", "Jericho", "Jhb Central", "Joubertina", "Jouberton", 
    "Joza", "Jozini", "Kaapmuiden", "Kabega Park", "Kabokweni", 
    "Kagisanong", "Kagisho", "Kagiso", "Kakamas", "Kameeldrift", 
    "Kamesh", "Kamieskroon", "Kanana", "Kanoneiland", "Kanyamazane", 
    "Kareedouw", "Kathu", "Katkop", "Katlehong", "Katlehong North", 
    "Kei Bridge", "Kei Mouth", "Kei Road", "Keimoes", "Keiskammahoek", 
    "Kempton Park", "Kenhardt", "Kensington", "Kenton On Sea", 
    "Kestell", "Kgomotso", "Khayelitsha", "Khubusidrift", "Khuma", 
    "Khutsong", "Kidds Beach", "Kimberley", "Kingsley", "Kinkelbos", 
    "Kinross", "Kirkwood", "Kirstenhof", "Klapmuts", "Klawer", 
    "Kleinbulhoek", "Kleinmond", "Kleinsee", "Kleinvlei", "Klerksdorp", 
    "Klerkskraal", "Klipgat", "Klipplaat", "Kliprivier", "Kliptown", 
    "Knysna", "Koffiefontein", "Kokstad", "Kolomane", "Komaggas", 
    "Komatipoort", "Komga", "Kommissiepoort", "Kopanong", "Koppies", 
    "Koster", "Kraaifontein", "Kranskop", "Kriel", "Kroonstad", 
    "Krugersdorp", "Kuilsrivier", "Kuruman", "Kuyasa", "Kwa Thema", 
    "Kwaaiman", "Kwadabeka", "Kwadukuza", "Kwadwesi", "Kwaggafontein", 
    "Kwamakhutha", "Kwamashu E", "Kwambonambi", "Kwamhlanga", 
    "Kwamsane", "Kwandengane", "Kwandengezi", "Kwanobuhle", "Kwanokuthula", 
    "Kwanonqaba", "Kwazakele", "Laaiplek", "Ladismith", "Lady Frere", 
    "Lady Grey", "Ladybrand", "Ladysmith", "Laersdrift", "Laingsburg", 
    "Lambertsbaai", "Lamontville", "Langa", "Langebaan", "Langlaagte", 
    "Lansdowne", "Laudium", "Leboeng", "Lebowakgomo", "Leeu Gamka", 
    "Leeudoringstad", "Lehurutshe", "Lenasia", "Lenasia South", 
    "Lentegeur", "Lephalale", "Leslie", "Lethabong", "Lethlabile", 
    "Letsitele", "Levubu", "Libode", "Lichtenburg", "Lime Acres", 
    "Linden", "Lindley", "Lingelethu-West", "Loate", "Loeriesfontein", 
    "Lomanyaneng", "Lothair", "Louwsburg", "Loxton", "Luckhoff", 
    "Lukholweni", "Lulekani", "Lusikisiki", "Lutzville", "Lwandle", 
    "Lydenburg", "Lyttelton", "Maake", "Maartenshoop", "Mabopane", 
    "Macassar", "Machadodorp", "Macleantown", "Maclear", "Madadeni", 
    "Madeira", "Madibogo", "Madikwe", "Mafube", "Magaliesburg", 
    "Magatle", "Magudu", "Mahamba", "Mahikeng", "Mahlabathini", 
    "Mahwelereng", "Maitland", "Makapanstad", "Makgobistad", 
    "Makhado", "Makuya", "Makwane", "Makwassie", "Malamulele", 
    "Maleboho", "Malelane", "Maletswai", "Malipsdrift", "Malmesbury", 
    "Maluti", "Malvern", "Mamelodi", "Mamelodi East", "Mandeni", 
    "Manenberg", "Mangaung", "Mankweng", "Maokeng", "Maphumulo", 
    "Mara", "Marble Hall", "Margate", "Mariannhill", "Marikana", 
    "Marquard", "Marydale", "Masemola", "Mashashane", "Masisi", 
    "Masoyi", "Matatiele", "Matlala", "Matsulu", "Maydon Wharf", 
    "Mayflower", "Mayville-Kzn", "Mbazwana", "Mbekweni", "Mbizana", 
    "Mbizeni", "Mbongolwane", "Mbuzini", "Mcgregor", "Mdantsane", 
    "Meadowlands", "Mecklenburg", "Mehlomnyama", "Melkbosstrand", 
    "Melmoth", "Meloding", "Memel", "Meyerton", "Mfuleni", "Mhala", 
    "Mhluzi", "Mid Illovo", "Middelburg Mpumalang", "Middelburg(Ec)", 
    "Middelpos", "Middledrift", "Midrand", "Milnerton", "Mitchells Plain", 
    "Mkhuze", "Mlungisi", "Mmabatho", "Mmakau", "Mmametlake", 
    "Modder River", "Modimolle", "Modjadjiskloof", "Moffatview", 
    "Mogwadi", "Mogwase", "Mokopane", "Mokopong", "Mokwakwaila", 
    "Molteno", "Mondeor", "Mondlo", "Montagu", "Montclair", "Mooi River", 
    "Mooifontein", "Mooinooi", "Mooiplaas", "Moorreesburg", "Morebeng", 
    "Morgenzon Transvaal", "Moroka", "Morokweng", "Mossel Bay", 
    "Motetema", "Motherwell", "Mothibistad", "Mothutlung", "Motswedi", 
    "Mount Ayliff", "Mount Fletcher", "Mount Frere", "Mount Road", 
    "Mountain Rise", "Mowbray", "Moyeni", "Mphephu", "Mpisi", 
    "Mpophomeni", "Mpumalanga Kzn", "Mpungamhlophe", "Mqanduli", 
    "Msinga", "Msinsini", "Msobomvu", "Mthatha", "Mtontsasa", 
    "Mtubatuba", "Mtunzini", "Muden", "Muizenberg", "Muldersdrift", 
    "Murraysburg", "Musina", "Mutale", "Mzamba", "Nababeep", 
    "Naboomspruit", "Naledi", "Namahadi", "Namakgale", "Napier", 
    "Navalsig", "Ndevana", "Ndumo", "Ndwedwe", "Nebo", "Nelspruit", 
    "Nemato", "New Brighton", "New Hanover", "Newark", "Newcastle", 
    "Newlands East", "Ngangelizwe", "Ngcobo", "Ngodwana", "Ngome", 
    "Ngqamakhwe", "Ngqeleni", "Nhlanhleni", "Niekerkshoop", "Nietverdiend", 
    "Nieuwoudtville", "Nigel", "Nkandla", "Noenieput", "Nondweni", 
    "Nongoma", "Norkempark", "Normandien", "Northam", "Norvalspont", 
    "Norwood", "Nottingham Road", "Noupoort", "Nquthu", "Nsuze", 
    "Ntabamhlophe", "Ntabankulu", "Ntabethemba", "Ntambanana", 
    "Ntuzuma", "Nuwerus", "Nyanga", "Nyoni", "Ocean View", "Odendaalsrus", 
    "Ogies", "Ohrigstad", "Olievenhoutbosch", "Olifantsfontein", 
    "Olifantshoek", "Onseepkans", "Or Tambo Intern Airp", "Orange Farms", 
    "Oranjeville", "Orkney", "Orlando", "Osizweni", "Ottosdal", 
    "Ottoshoop", "Oudtshoorn", "Paarl", "Paarl East", "Pabalello", 
    "Pacaltsdorp", "Paddock", "Palmietfontein", "Pampierstat", 
    "Park Road", "Parkview", "Parow", "Parys", "Patensie", "Paterson", 
    "Paul Roux", "Paulpietersburg", "Pearston", "Peddie", "Pella", 
    "Perdekop", "Petrus Steyn", "Petrusburg", "Petrusville", 
    "Phalaborwa", "Philadelphia", "Philippi", "Philippi East", 
    "Philippolis", "Philipstown", "Phoenix", "Phokeng", "Phumalanga", 
    "Phuthaditjhaba", "Pienaar", "Pienaarsrivier", "Piet Plessis", 
    "Piet Retief", "Pietermaritzburg", "Piketberg", "Pinelands", 
    "Pinetown", "Plessislaer", "Plettenberg Bay", "Plooysburg", 
    "Pofadder", "Point", "Polokwane", "Pongola", "Port Alfred", 
    "Port Edward", "Port Nolloth", "Port Shepstone", "Port St Johns", 
    "Porterville", "Postmasburg", "Potchefstroom", "Prestbury", 
    "Pretoria Central", "Pretoria Moot", "Pretoria North", "Pretoria West", 
    "Prieska", "Primrose", "Prince Albert", "Prince Alfred Hamlet", 
    "Protea Glen", "Pudimoe", "Punzana", "Putfontein", "Queenstown", 
    "Qumbu", "Rabie Ridge", "Rakgoadi", "Randburg", "Randfontein", 
    "Ratanda", "Ravensmead", "Rawsonville", "Reddersburg", "Redelinghuys", 
    "Reigerpark", "Reitz", "Reivilo", "Rhodes", "Richards Bay", 
    "Richmond-Kzn", "Richmond(C)", "Riebeeck East", "Riebeek West", 
    "Rietbron", "Rietfontein", "Rietgat", "Rietvlei", "Ritavi", 
    "Riversdale", "Riviersonderend", "Roadside", "Robertson", 
    "Roedtan", "Rondebosch", "Roodepan", "Roodepoort", "Rooiberg", 
    "Roossenekal", "Rosebank", "Rosedale", "Rosendal", "Rossouw", 
    "Rouxville", "Rust De Winter", "Rustenburg", "Saamboubrug", 
    "Sabie", "Sakhile", "Saldanha", "Sandringham", "Sandton", 
    "Sannieshof", "Saron", "Saselamani", "Sasolburg", "Sawoti", 
    "Scenery Park", "Schoemansdal", "Schweizer-Reneke", "Scottburgh", 
    "Sea Point", "Seafield", "Sebayeng", "Sebenza", "Sebokeng", 
    "Secunda", "Sekgosese", "Sekhukhune", "Selosesha", "Senekal", 
    "Senwabarwana", "Seshego", "Setlagole", "Seven Fountains", 
    "Severn", "Seymour", "Sharpeville", "Sheepmoor", "Siloam", 
    "Silverton", "Sinoville", "Siyabuswa", "Skukuza", "Smithfield", 
    "Somerset East", "Somerset West", "Sophia Town", "Soshanguve", 
    "Southport", "Soutpan", "Springbok", "Springfontein", "Springs", 
    "St Faiths", "St Francis Bay", "St Helena Bay", "Standerton", 
    "Stanford", "Steenberg", "Steinkopf", "Stella", "Stellenbosch", 
    "Sterkspruit", "Sterkstroom", "Steunmekaar", "Steve Vukile Tshwete", 
    "Steynsburg", "Steynsrus", "Steytlerville", "Stilfontein", 
    "Still Bay", "Storms River", "Strand", "Strandfontein", "Struisbaai", 
    "Strydenburg", "Stutterheim", "Sulenkama", "Sun City", "Sundra", 
    "Sundumbili", "Sunnyside", "Sunrise", "Sutherland", "Suurbraak", 
    "Swartberg", "Swartkops", "Swartruggens", "Swellendam", "Sydenham", 
    "Tabase", "Table Bay Harbour", "Table View", "Tamara", "Tarkastad", 
    "Tarlton", "Taung", "Taylors Halt", "Temba", "Tembisa", "Tembisa South", 
    "Thaba-Nchu", "Thabazimbi", "Thabong", "The Barrage", "Thembalethu", 
    "Theunissen", "Thina Falls", "Thohoyandou", "Thomas River", 
    "Thornhill", "Thornhill Ciskei", "Thornville", "Tierpoort", 
    "Tinmyne", "Tlhabane", "Tokoza", "Tolwe", "Tom Burke", "Tonga", 
    "Tongaat", "Touws River", "Town Hill", "Trichardt", "Trompsburg", 
    "Tsakane", "Tseki", "Tseseng", "Tshamutumbu", "Tshaulu", 
    "Tshidilamolomo", "Tshilwavhusiku", "Tshitale", "Tsineng", 
    "Tsolo", "Tsomo", "Tubatse", "Tuinplaas", "Tulbagh", "Tumahole", 
    "Tweefontein", "Tweeling", "Tweespruit", "Tyefu", "Tylden", 
    "Tzaneen", "Ugie", "Uitenhage", "Ulundi", "Umbilo", "Umbumbulu", 
    "Umhlali", "Umkomaas", "Umlazi", "Umsunduzi", "Umzimkhulu", 
    "Umzinto", "Uniondale", "Upington", "Upper Tugela", "Utrecht", 
    "Vaal Marina", "Vaalbank", "Vaalwater", "Val", "Van Reenen", 
    "Van Stadensrus", "Van Zylsrus", "Vanderbijlpark", "Vanderkloof", 
    "Vanrhynsdorp", "Vanwyksvlei", "Ventersburg", "Ventersdorp", 
    "Venterstad", "Vereeniging", "Verena", "Verkeerdevlei", "Verkykerskop", 
    "Verulam", "Victoria West", "Vierfontein", "Viljoensdrif", 
    "Viljoenskroon", "Villa Nora", "Villieria", "Villiers", "Villiersdorp", 
    "Vioolsdrif", "Virginia", "Volksrust", "Vorstershoop", "Vosburg", 
    "Vosloorus", "Vosman", "Vrede", "Vredefort", "Vredenburg", 
    "Vredendal", "Vryburg", "Vryheid", "Vulindlela", "Vuwani", 
    "Wakkerstroom", "Walmer", "Wanda", "Warden", "Warrenton", 
    "Wartburg", "Wasbank", "Waterpoort", "Waterval", "Waterval Boven", 
    "Wedela", "Weenen", "Welbekend", "Welkom", "Wellington", 
    "Wembezi", "Wentworth", "Wepener", "Wesselsbron", "Westenburg", 
    "Westonaria", "Westville", "Whittlesea", "Wierdabrug", "Williston", 
    "Willowmore", "Willowvale", "Winburg", "Windsorton", "Winterton", 
    "Witbank", "Witdraai", "Witpoort", "Witrivier", "Wolmaransstad", 
    "Wolseley", "Wolwefontein", "Wonderboompoort", "Woodstock", 
    "Worcester", "Wrenchville", "Wynberg", "Yeoville", "Zaaiplaas", 
    "Zamdela", "Zamuxolo", "Zastron", "Zebediela", "Zeerust", 
    "Zele", "Zonkizizwe", "Zwelitsha"), class = "factor"), Category = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 26L, 13L, 1L, 1L, 
    1L, 1L, 20L, 10L, 1L), .Label = c("All theft not mentioned elsewhere", 
    "Arson", "Assault with the intent to inflict grievous bodily harm", 
    "Attempted murder", "Bank robbery", "Burglary at non-residential premises", 
    "Burglary at residential premises", "Carjacking", "Commercial crime", 
    "Common assault", "Common robbery", "Driving under the influence of alcohol or drugs", 
    "Drug-related crime", "Illegal possession of firearms and ammunition", 
    "Malicious damage to property", "Murder", "Robbery at non-residential premises", 
    "Robbery at residential premises", "Robbery of cash in transit", 
    "Robbery with aggravating circumstances", "Sexual Offences", 
    "Sexual offences as result of police action", "Shoplifting", 
    "Stock-theft", "Theft of motor vehicle and motorcycle", "Theft out of or from motor vehicle", 
    "Truck hijacking"), class = "factor"), variable = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L), .Label = c("2005", "2006", "2007", "2008", 
    "2009", "2010", "2011", "2012", "2013", "2014", "2015"), class = "factor"), 
    value = c(6692L, 6093L, 5341L, 5108L, 5099L, 4239L, 4162L, 
    3931L, 3681L, 3489L, 3481L, 3468L, 3064L, 3030L, 3010L, 2967L, 
    2892L, 2721L, 2657L, 2585L)), .Names = c("Province", "Station", 
"Category", "variable", "value"), row.names = c(NA, 20L), class = "data.frame")

也是另一个对象

provinces_with_highest_crime <- as.list(c("Gauteng","Western Cape", "Eastern Cape", "KwazuluNatal"))

0 个答案:

没有答案