Safiya Stewart

Sociology 712

Professor Songe

2/8/19

The question that I want to explore is: What U.S. state has the highest arrest rate of prostitution? The dataset used was the UCR Crime Data 2014.

The data were renamed and only U.S states and prostitution arrests were kept in order to answer the question. The data were then arranged in descending order highlighting the state with the highest rate of prostitution arrests per 100,000 of the population and the state with the lowest rate of prostitution arrests per 100,000 of the population.

It is important to note that the results are per 100,000 of the population

library(readr)
library(dplyr)
library(knitr)
CrimeData<-read_csv("/Users/safiesaf/Downloads/R12013569_SL040.csv")
NewCrimeData<-CrimeData%>%
rename("US_States"=Geo_Name,
      "Prostitution_Arrests"=SE_T011_017)%>%
select(US_States,Prostitution_Arrests)%>%
  
arrange(desc(Prostitution_Arrests, na.rm= TRUE))
kable(NewCrimeData)

US_States Prostitution_Arrests
Nevada 134.7962857
California 23.5989949
Tennessee 21.3761606
Texas 19.0043699
Pennsylvania 18.6123493
Hawaii 17.0475238
Maryland 16.9667160
Louisiana 16.1946768
Ohio 15.9131798
South Carolina 13.5748048
Arizona 13.3402976
Wisconsin 12.0710773
Minnesota 11.3062203
Virginia 11.2054722
New Jersey 10.8523272
Wyoming 10.7848458
Massachusetts 10.3033056
Connecticut 9.7590081
Oregon 8.1355304
Washington 8.0577439
Kansas 7.9889229
Rhode Island 7.9607799
Arkansas 7.9221432
Indiana 7.9128615
New Mexico 7.8156017
Georgia 7.6554793
Nebraska 6.9093698
Delaware 6.8404278
Utah 6.5581525
Colorado 6.5348909
Mississippi 6.4126564
North Dakota 6.3558004
Missouri 6.2174399
South Dakota 6.0948809
West Virginia 5.8368093
North Carolina 5.4605990
Kentucky 5.0753865
New Hampshire 5.0496943
Alaska 5.0015769
New York 4.7046962
Michigan 3.9859223
Maine 3.9095128
Oklahoma 3.6100608
Vermont 2.2344157
Iowa 2.1885176
Idaho 1.1012785
Montana 0.7815713
Alabama 0.0000000
District of Columbia 0.0000000
Florida NA
Illinois NA

  
  
#filter(Prostitution_Arrests>100|
      #Prostitution_Arrests>=0.70)
#glimpse(NewCrimeData)

According to the data, Nevada had the highest level of prostitution arrests per 100,000 of the population with a value of approximately 134.80; meaning that around 4,004 people were arrested for prostitution in 2014 if the population was approximately 3 million. The states that tied with having no prostitution arrests were District of Columbia (D.C) and Alabama. However, Montana technically had the lowest prostitution arrests per 100,000 with a value of 0.78 per 100,000 of the population; meaning that approximately 8 people were arrested in 2014 from a population of approximately 1 million.

LS0tCnRpdGxlOiAiSG9tZXdvcmsgIyAyIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIFNhZml5YSBTdGV3YXJ0CgoKIyMgU29jaW9sb2d5IDcxMgoKCiMjIyBQcm9mZXNzb3IgU29uZ2UKCgojIyMjIDIvOC8xOQoKCgpUaGUgcXVlc3Rpb24gdGhhdCBJIHdhbnQgdG8gZXhwbG9yZSBpczogKipXaGF0IFUuUy4gc3RhdGUgaGFzIHRoZSBoaWdoZXN0IGFycmVzdCByYXRlIG9mIHByb3N0aXR1dGlvbj8qKiAgVGhlIGRhdGFzZXQgdXNlZCB3YXMgdGhlIF9VQ1IgQ3JpbWUgRGF0YSAyMDE0Xy4gCgoKVGhlIGRhdGEgd2VyZSByZW5hbWVkIGFuZCBvbmx5IF9fVS5TIHN0YXRlc19fIGFuZCBfX3Byb3N0aXR1dGlvbiBhcnJlc3RzX18gd2VyZSBrZXB0IGluIG9yZGVyIHRvIGFuc3dlciB0aGUgcXVlc3Rpb24uICBUaGUgZGF0YSB3ZXJlIHRoZW4gYXJyYW5nZWQgaW4gZGVzY2VuZGluZyBvcmRlciBoaWdobGlnaHRpbmcgdGhlIHN0YXRlIHdpdGggdGhlIGhpZ2hlc3QgcmF0ZSBvZiBwcm9zdGl0dXRpb24gYXJyZXN0cyBwZXIgMTAwLDAwMCBvZiB0aGUgcG9wdWxhdGlvbiBhbmQgdGhlIHN0YXRlIHdpdGggdGhlIGxvd2VzdCByYXRlIG9mIHByb3N0aXR1dGlvbiBhcnJlc3RzIHBlciAxMDAsMDAwIG9mIHRoZSBwb3B1bGF0aW9uLgoKCipJdCBpcyBpbXBvcnRhbnQgdG8gbm90ZSB0aGF0IHRoZSByZXN1bHRzIGFyZSBwZXIgMTAwLDAwMCBvZiB0aGUgcG9wdWxhdGlvbioKCgoKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoa25pdHIpCgpDcmltZURhdGE8LXJlYWRfY3N2KCIvVXNlcnMvc2FmaWVzYWYvRG93bmxvYWRzL1IxMjAxMzU2OV9TTDA0MC5jc3YiKQoKCk5ld0NyaW1lRGF0YTwtQ3JpbWVEYXRhJT4lCnJlbmFtZSgiVVNfU3RhdGVzIj1HZW9fTmFtZSwKICAgICAgIlByb3N0aXR1dGlvbl9BcnJlc3RzIj1TRV9UMDExXzAxNyklPiUKCnNlbGVjdChVU19TdGF0ZXMsUHJvc3RpdHV0aW9uX0FycmVzdHMpJT4lCiAgCmFycmFuZ2UoZGVzYyhQcm9zdGl0dXRpb25fQXJyZXN0cykpCgprYWJsZShOZXdDcmltZURhdGEpCiAgCiAgCiNmaWx0ZXIoUHJvc3RpdHV0aW9uX0FycmVzdHM9PTEzNC43OXwKICAgICAgI1Byb3N0aXR1dGlvbl9BcnJlc3RzPT0wLjc4KQoKI2dsaW1wc2UoTmV3Q3JpbWVEYXRhKQoKYGBgCkFjY29yZGluZyB0byB0aGUgZGF0YSwgTmV2YWRhIGhhZCB0aGUgaGlnaGVzdCBsZXZlbCBvZiBwcm9zdGl0dXRpb24gYXJyZXN0cyBwZXIgMTAwLDAwMCBvZiB0aGUgcG9wdWxhdGlvbiB3aXRoIGEgdmFsdWUgb2YgYXBwcm94aW1hdGVseSAxMzQuODA7IG1lYW5pbmcgdGhhdCBhcm91bmQgNCwwMDQgcGVvcGxlIHdlcmUgYXJyZXN0ZWQgZm9yIHByb3N0aXR1dGlvbiBpbiAyMDE0IGlmIHRoZSBwb3B1bGF0aW9uIHdhcyBhcHByb3hpbWF0ZWx5IDMgbWlsbGlvbi4gVGhlIHN0YXRlcyB0aGF0IHRpZWQgd2l0aCBoYXZpbmcgbm8gcHJvc3RpdHV0aW9uIGFycmVzdHMgd2VyZSBEaXN0cmljdCBvZiBDb2x1bWJpYSAoRC5DKSBhbmQgQWxhYmFtYS4gIEhvd2V2ZXIsIE1vbnRhbmEgdGVjaG5pY2FsbHkgaGFkIHRoZSBsb3dlc3QgcHJvc3RpdHV0aW9uIGFycmVzdHMgcGVyIDEwMCwwMDAgd2l0aCBhIHZhbHVlIG9mIDAuNzggcGVyIDEwMCwwMDAgb2YgdGhlIHBvcHVsYXRpb247IG1lYW5pbmcgdGhhdCBhcHByb3hpbWF0ZWx5IDggcGVvcGxlIHdlcmUgYXJyZXN0ZWQgaW4gMjAxNCBmcm9tIGEgcG9wdWxhdGlvbiBvZiBhcHByb3hpbWF0ZWx5IDEgbWlsbGlvbi4KCg==