lines = 'Hyundai Sonata 1019 Honda Accord 1461 Nissan Altima 1090 Volkswagen Jetta 1525 Mitsubishi Galant 1109 Toyota Camry 1670 Saturn AURA 1235 Chevrolet Malibu 1685 Subaru Legacy 1275 Volkswagen Passat 1783 Pontiac G6 1361 Nissan Maxima 1787 Mazda 6 1437 Ford Fusion 1889 Volvo S40 1446 Chrysler Sebring 2484' con = textConnection( lines ) DF = read.table( con, header=FALSE ) close(con) Pt_1 = DF[, c(1, 2, 3)] Pt_2 = DF[, c(4, 5, 6)] colnames(Pt_2) = c( 'V1', 'V2', 'V3' ) DF = rbind( Pt_1, Pt_2 ) colnames(DF) = c('Make', 'Model', 'Repair_Cost')