lines = 'New_Mexico 24 1 Idaho 25 1 Kentucky 28 1 South_Carolina 28 1 Georgia 28 1 Missouri 29 1 Ohio 29 1 Tennessee 31 1 Florida 31 1 California 35 1 North_Carolina 35 1 New_Jersey 35 1 Massachusetts 21 0 Maine 22 0 Iowa 24 0 Colorado 27 0 Indiana 27 0 Dist_of_Columbia 28 0 Connecticut 29 0 Pennsylvania 32 0 Maryland 32 0' con = textConnection( lines ) DF = read.table( con, header=FALSE ) close(con) colnames(DF) = c('State', 'Percent_Profit', 'Education')