2020-03-23 Homework-2

匯入tab-delimited files

dta <- read.table("C:/Users/X510/Desktop/2020-03-23 Homework/2020-03-23 Homework-2/P005.txt", header = T, sep="\t", stringsAsFactor=FALSE)
str(dta)

## 'data.frame':    38 obs. of  8 variables:
##  $ City  : chr  "Atlanta" "Austin" "Bakersfield" "Baltimore" ...
##  $ COL   : int  169 143 339 173 99 363 253 117 294 291 ...
##  $ PD    : int  414 239 43 951 255 1257 834 162 229 1886 ...
##  $ URate : num  13.6 11 23.7 21 16 24.4 39.2 31.5 18.2 31.5 ...
##  $ Pop   : int  1790128 396891 349874 2147850 411725 3914071 1326848 162304 164145 7015251 ...
##  $ Taxes : int  5128 4303 4166 5001 3965 4928 4471 4813 4839 5408 ...
##  $ Income: int  2961 1711 2122 4654 1620 5634 7213 5535 7224 6113 ...
##  $ RTWL  : int  1 1 0 0 1 0 0 0 1 0 ...

Income & Taxes 的關係(相關)

 cor(dta$Income, dta$Taxes)

## [1] 0.0560718

plot(dta$Income, dta$Taxes, main = "Relationship between Income and Taxes", xlab = "Income", ylab = "Taxes",col = "red")
grid()