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=