The Revenue from lottery by State
library(ggplot2)
Lottery <- read.csv("LotteryIncome.csv")
ggplot(Lottery,aes(Lottery))+geom_histogram()## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
Justin Kunz
October 29, 2015
library(ggplot2)
Lottery <- read.csv("LotteryIncome.csv")
ggplot(Lottery,aes(Lottery))+geom_histogram()## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
StatePop <- read.csv("StatePop.csv")
table(StatePop)## Pop
## x 563626 625741 672591 710231 814180 897934 989415 1052567
## Alabama 0 0 0 0 0 0 0 0
## Alaska 0 0 0 1 0 0 0 0
## Arizona 0 0 0 0 0 0 0 0
## Arkansas 0 0 0 0 0 0 0 0
## California 0 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0 0 0
## Delaware 0 0 0 0 0 1 0 0
## Florida 0 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 0 0 0
## Hawaii 0 0 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0 0 0
## Illinois 0 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 0 0
## Iowa 0 0 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0 0 0
## Kentucky 0 0 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0 0 0
## Maine 0 0 0 0 0 0 0 0
## Maryland 0 0 0 0 0 0 0 0
## Massachusetts 0 0 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 0 0
## Minnesota 0 0 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0 0 0
## Missouri 0 0 0 0 0 0 0 0
## Montana 0 0 0 0 0 0 1 0
## Nebraska 0 0 0 0 0 0 0 0
## Nevada 0 0 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0 0 0
## New York 0 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 0 0 0 0
## North Dakota 0 0 1 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0 1
## South Carolina 0 0 0 0 0 0 0 0
## South Dakota 0 0 0 0 1 0 0 0
## Tennessee 0 0 0 0 0 0 0 0
## Texas 0 0 0 0 0 0 0 0
## Utah 0 0 0 0 0 0 0 0
## Vermont 0 1 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0 0 0
## Washington 0 0 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 0 0 0
## Wisconsin 0 0 0 0 0 0 0 0
## Wyoming 1 0 0 0 0 0 0 0
## Pop
## x 1316470 1328361 1360301 1567582 1826341 1852994 2059179
## Alabama 0 0 0 0 0 0 0
## Alaska 0 0 0 0 0 0 0
## Arizona 0 0 0 0 0 0 0
## Arkansas 0 0 0 0 0 0 0
## California 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0 0
## Delaware 0 0 0 0 0 0 0
## Florida 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 0 0
## Hawaii 0 0 1 0 0 0 0
## Idaho 0 0 0 1 0 0 0
## Illinois 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 0
## Iowa 0 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0 0
## Kentucky 0 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0 0
## Maine 0 1 0 0 0 0 0
## Maryland 0 0 0 0 0 0 0
## Massachusetts 0 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 0
## Minnesota 0 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0 0
## Missouri 0 0 0 0 0 0 0
## Montana 0 0 0 0 0 0 0
## Nebraska 0 0 0 0 1 0 0
## Nevada 0 0 0 0 0 0 0
## New Hampshire 1 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0 1
## New York 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 0 0 0
## North Dakota 0 0 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0
## South Carolina 0 0 0 0 0 0 0
## South Dakota 0 0 0 0 0 0 0
## Tennessee 0 0 0 0 0 0 0
## Texas 0 0 0 0 0 0 0
## Utah 0 0 0 0 0 0 0
## Vermont 0 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0 0
## Washington 0 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 1 0
## Wisconsin 0 0 0 0 0 0 0
## Wyoming 0 0 0 0 0 0 0
## Pop
## x 2700551 2763885 2853118 2915918 2967297 3046355 3574097
## Alabama 0 0 0 0 0 0 0
## Alaska 0 0 0 0 0 0 0
## Arizona 0 0 0 0 0 0 0
## Arkansas 0 0 0 1 0 0 0
## California 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0 1
## Delaware 0 0 0 0 0 0 0
## Florida 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 0 0
## Hawaii 0 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0 0
## Illinois 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 0
## Iowa 0 0 0 0 0 1 0
## Kansas 0 0 1 0 0 0 0
## Kentucky 0 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0 0
## Maine 0 0 0 0 0 0 0
## Maryland 0 0 0 0 0 0 0
## Massachusetts 0 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 0
## Minnesota 0 0 0 0 0 0 0
## Mississippi 0 0 0 0 1 0 0
## Missouri 0 0 0 0 0 0 0
## Montana 0 0 0 0 0 0 0
## Nebraska 0 0 0 0 0 0 0
## Nevada 1 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0 0
## New York 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 0 0 0
## North Dakota 0 0 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0
## South Carolina 0 0 0 0 0 0 0
## South Dakota 0 0 0 0 0 0 0
## Tennessee 0 0 0 0 0 0 0
## Texas 0 0 0 0 0 0 0
## Utah 0 1 0 0 0 0 0
## Vermont 0 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0 0
## Washington 0 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 0 0
## Wisconsin 0 0 0 0 0 0 0
## Wyoming 0 0 0 0 0 0 0
## Pop
## x 3751351 3831074 4339367 4533372 4625364 4779736 5029196
## Alabama 0 0 0 0 0 1 0
## Alaska 0 0 0 0 0 0 0
## Arizona 0 0 0 0 0 0 0
## Arkansas 0 0 0 0 0 0 0
## California 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 1
## Connecticut 0 0 0 0 0 0 0
## Delaware 0 0 0 0 0 0 0
## Florida 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 0 0
## Hawaii 0 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0 0
## Illinois 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 0
## Iowa 0 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0 0
## Kentucky 0 0 1 0 0 0 0
## Louisiana 0 0 0 1 0 0 0
## Maine 0 0 0 0 0 0 0
## Maryland 0 0 0 0 0 0 0
## Massachusetts 0 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 0
## Minnesota 0 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0 0
## Missouri 0 0 0 0 0 0 0
## Montana 0 0 0 0 0 0 0
## Nebraska 0 0 0 0 0 0 0
## Nevada 0 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0 0
## New York 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 0 0 0
## North Dakota 0 0 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0
## Oklahoma 1 0 0 0 0 0 0
## Oregon 0 1 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0
## South Carolina 0 0 0 0 1 0 0
## South Dakota 0 0 0 0 0 0 0
## Tennessee 0 0 0 0 0 0 0
## Texas 0 0 0 0 0 0 0
## Utah 0 0 0 0 0 0 0
## Vermont 0 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0 0
## Washington 0 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 0 0
## Wisconsin 0 0 0 0 0 0 0
## Wyoming 0 0 0 0 0 0 0
## Pop
## x 5303925 5686986 5773552 5988927 6346105 6392017 6483802
## Alabama 0 0 0 0 0 0 0
## Alaska 0 0 0 0 0 0 0
## Arizona 0 0 0 0 0 1 0
## Arkansas 0 0 0 0 0 0 0
## California 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0 0
## Delaware 0 0 0 0 0 0 0
## Florida 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 0 0
## Hawaii 0 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0 0
## Illinois 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 1
## Iowa 0 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0 0
## Kentucky 0 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0 0
## Maine 0 0 0 0 0 0 0
## Maryland 0 0 1 0 0 0 0
## Massachusetts 0 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 0
## Minnesota 1 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0 0
## Missouri 0 0 0 1 0 0 0
## Montana 0 0 0 0 0 0 0
## Nebraska 0 0 0 0 0 0 0
## Nevada 0 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0 0
## New York 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 0 0 0
## North Dakota 0 0 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0
## South Carolina 0 0 0 0 0 0 0
## South Dakota 0 0 0 0 0 0 0
## Tennessee 0 0 0 0 1 0 0
## Texas 0 0 0 0 0 0 0
## Utah 0 0 0 0 0 0 0
## Vermont 0 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0 0
## Washington 0 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 0 0
## Wisconsin 0 1 0 0 0 0 0
## Wyoming 0 0 0 0 0 0 0
## Pop
## x 6547629 6724540 8001024 8791894 9535483 9687653 9883640
## Alabama 0 0 0 0 0 0 0
## Alaska 0 0 0 0 0 0 0
## Arizona 0 0 0 0 0 0 0
## Arkansas 0 0 0 0 0 0 0
## California 0 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0 0
## Delaware 0 0 0 0 0 0 0
## Florida 0 0 0 0 0 0 0
## Georgia 0 0 0 0 0 1 0
## Hawaii 0 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0 0
## Illinois 0 0 0 0 0 0 0
## Indiana 0 0 0 0 0 0 0
## Iowa 0 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0 0
## Kentucky 0 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0 0
## Maine 0 0 0 0 0 0 0
## Maryland 0 0 0 0 0 0 0
## Massachusetts 1 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0 1
## Minnesota 0 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0 0
## Missouri 0 0 0 0 0 0 0
## Montana 0 0 0 0 0 0 0
## Nebraska 0 0 0 0 0 0 0
## Nevada 0 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0 0
## New Jersey 0 0 0 1 0 0 0
## New Mexico 0 0 0 0 0 0 0
## New York 0 0 0 0 0 0 0
## North Carolina 0 0 0 0 1 0 0
## North Dakota 0 0 0 0 0 0 0
## Ohio 0 0 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0 0
## Pennsylvania 0 0 0 0 0 0 0
## Rhode Island 0 0 0 0 0 0 0
## South Carolina 0 0 0 0 0 0 0
## South Dakota 0 0 0 0 0 0 0
## Tennessee 0 0 0 0 0 0 0
## Texas 0 0 0 0 0 0 0
## Utah 0 0 0 0 0 0 0
## Vermont 0 0 0 0 0 0 0
## Virginia 0 0 1 0 0 0 0
## Washington 0 1 0 0 0 0 0
## West Virginia 0 0 0 0 0 0 0
## Wisconsin 0 0 0 0 0 0 0
## Wyoming 0 0 0 0 0 0 0
## Pop
## x 11536504 12702379 12830632 18801310 19378102 25145561
## Alabama 0 0 0 0 0 0
## Alaska 0 0 0 0 0 0
## Arizona 0 0 0 0 0 0
## Arkansas 0 0 0 0 0 0
## California 0 0 0 0 0 0
## Colorado 0 0 0 0 0 0
## Connecticut 0 0 0 0 0 0
## Delaware 0 0 0 0 0 0
## Florida 0 0 0 1 0 0
## Georgia 0 0 0 0 0 0
## Hawaii 0 0 0 0 0 0
## Idaho 0 0 0 0 0 0
## Illinois 0 0 1 0 0 0
## Indiana 0 0 0 0 0 0
## Iowa 0 0 0 0 0 0
## Kansas 0 0 0 0 0 0
## Kentucky 0 0 0 0 0 0
## Louisiana 0 0 0 0 0 0
## Maine 0 0 0 0 0 0
## Maryland 0 0 0 0 0 0
## Massachusetts 0 0 0 0 0 0
## Michigan 0 0 0 0 0 0
## Minnesota 0 0 0 0 0 0
## Mississippi 0 0 0 0 0 0
## Missouri 0 0 0 0 0 0
## Montana 0 0 0 0 0 0
## Nebraska 0 0 0 0 0 0
## Nevada 0 0 0 0 0 0
## New Hampshire 0 0 0 0 0 0
## New Jersey 0 0 0 0 0 0
## New Mexico 0 0 0 0 0 0
## New York 0 0 0 0 1 0
## North Carolina 0 0 0 0 0 0
## North Dakota 0 0 0 0 0 0
## Ohio 1 0 0 0 0 0
## Oklahoma 0 0 0 0 0 0
## Oregon 0 0 0 0 0 0
## Pennsylvania 0 1 0 0 0 0
## Rhode Island 0 0 0 0 0 0
## South Carolina 0 0 0 0 0 0
## South Dakota 0 0 0 0 0 0
## Tennessee 0 0 0 0 0 0
## Texas 0 0 0 0 0 1
## Utah 0 0 0 0 0 0
## Vermont 0 0 0 0 0 0
## Virginia 0 0 0 0 0 0
## Washington 0 0 0 0 0 0
## West Virginia 0 0 0 0 0 0
## Wisconsin 0 0 0 0 0 0
## Wyoming 0 0 0 0 0 0
## Pop
## x 37253956
## Alabama 0
## Alaska 0
## Arizona 0
## Arkansas 0
## California 1
## Colorado 0
## Connecticut 0
## Delaware 0
## Florida 0
## Georgia 0
## Hawaii 0
## Idaho 0
## Illinois 0
## Indiana 0
## Iowa 0
## Kansas 0
## Kentucky 0
## Louisiana 0
## Maine 0
## Maryland 0
## Massachusetts 0
## Michigan 0
## Minnesota 0
## Mississippi 0
## Missouri 0
## Montana 0
## Nebraska 0
## Nevada 0
## New Hampshire 0
## New Jersey 0
## New Mexico 0
## New York 0
## North Carolina 0
## North Dakota 0
## Ohio 0
## Oklahoma 0
## Oregon 0
## Pennsylvania 0
## Rhode Island 0
## South Carolina 0
## South Dakota 0
## Tennessee 0
## Texas 0
## Utah 0
## Vermont 0
## Virginia 0
## Washington 0
## West Virginia 0
## Wisconsin 0
## Wyoming 0Merging the data together and putting them into numeric values.
data.frame <- merge(Lottery,StatePop)
summary(lm(Lottery~Pop,data.frame))##
## Call:
## lm(formula = Lottery ~ Pop, data = data.frame)
##
## Residuals:
## Min 1Q Median 3Q Max
## -937622 -104634 -36045 5300 1648209
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.011e+03 6.226e+04 -0.097 0.924
## Pop 5.338e-02 6.739e-03 7.921 3.35e-10 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 322700 on 47 degrees of freedom
## Multiple R-squared: 0.5717, Adjusted R-squared: 0.5626
## F-statistic: 62.74 on 1 and 47 DF, p-value: 3.347e-10ggplot(data.frame,(aes(Pop,Lottery))) + geom_point() + geom_smooth(method="lm")