Import Data set
library(ggplot2)
head(medical_expenditure)
str(medical_expenditure)
'data.frame': 200 obs. of 6 variables:
$ id : Factor w/ 200 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10 ...
$ expenditures : num 2068 1842 1757 1800 2189 ...
$ age : int 57 67 62 67 68 63 64 66 68 63 ...
$ chronic_diseases: int 5 4 4 5 5 5 5 5 5 3 ...
$ income : num 57200 67200 62000 67200 68000 ...
$ plan_type : Factor w/ 3 levels "silver","gold",..: 3 3 3 3 3 3 3 3 3 3 ...
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIyMjIEltcG9ydCBEYXRhIHNldA0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmBgYA0KDQpgYGB7cn0NCmhlYWQobWVkaWNhbF9leHBlbmRpdHVyZSkNCmBgYA0KDQpgYGB7cn0NCnN0cihtZWRpY2FsX2V4cGVuZGl0dXJlKQ0KYGBgDQo=