lines = 'Years Percent Type 2 63 Democratic 3 58 Democratic 5 52 Democratic 7 46 Democratic 8 41 Democratic 1 58 Republican 2 55 Republican 4 47 Republican 6 43 Republican 7 41 Republican 8 39 Republican' con = textConnection( lines ) DF = read.table( con, header=TRUE ) close(con)