corrgram: Plot a Correlogram

"auto" <-
structure(list(Model = structure(as.integer(c(1, 2, 3, 4, 5, 
6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 
23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 36, 38, 
39, 40, 41, 42, 43, 44, 45, 46, 48, 47, 49, 50, 51, 52, 53, 54, 
55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 72, 
73, 74, 71, 70)), .Label = c("AMC Concord      ", "AMC Pacer        ", 
"AMC Spirit       ", "Audi 5000        ", "Audi Fox         ", 
"BMW 320I         ", "Buick Century    ", "Buick Electra    ", 
"Buick Le sabre   ", "Buick Opel       ", "Buick Regal      ", 
"Buick Riviera    ", "Buick Skylark    ", "Cad. Deville     ", 
"Cad. Eldorado    ", "Cad. Seville     ", "Chev. Chevette   ", 
"Chev. Impala     ", "Chev. Malibu     ", "Chev. Monte Carlo", 
"Chev. Monza      ", "Chev. Nova       ", "Datsun 200-SX    ", 
"Datsun 210       ", "Datsun 510       ", "Datsun 810       ", 
"Dodge Colt       ", "Dodge Diplomat   ", "Dodge Magnum XE  ", 
"Dodge St. Regis  ", "Fiat Strada      ", "Ford Fiesta      ", 
"Ford Mustang     ", "Honda Accord     ", "Honda Civic      ", 
"Linc. Cont Mark V", "Linc. Continental", "Linc. Versailles ", 
"Mazda GLC        ", "Merc. Bobcat     ", "Merc. Cougar     ", 
"Merc. Cougar XR-7", "Merc. Marquis    ", "Merc. Monarch    ", 
"Merc. Zephyr     ", "Olds. 98         ", "Olds. Cutl Supr  ", 
"Olds. Cutlass    ", "Olds. Delta 88   ", "Olds. Omega      ", 
"Olds. Starfire   ", "Olds. Toronado   ", "Peugeot 604 SL   ", 
"Plym. Arrow      ", "Plym. Champ      ", "Plym. Horizon    ", 
"Plym. Sapporo    ", "Plym. Volare     ", "Pont. Catalina   ", 
"Pont. Firebird   ", "Pont. Grand Prix ", "Pont. Le Mans    ", 
"Pont. Phoenix    ", "Pont. Sunbird    ", "Renault Le Car   ", 
"Subaru           ", "Toyota Celica    ", "Toyota Corolla   ", 
"Toyota Corona    ", "Volvo 260        ", "VW Dasher        ", 
"VW Rabbit        ", "VW Rabbit Diesel ", "VW ScirOcco      "
), class = "factor"), Origin = structure(as.integer(c(1, 1, 1, 
2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 
3, 3, 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 
3, 3, 3, 2, 2, 2, 2, 2)), .Label = c("A", "E", "J"), class = "factor"), 
    Price = as.integer(c(4099, 4749, 3799, 9690, 6295, 9735, 
    4816, 7827, 5788, 4453, 5189, 10372, 4082, 11385, 14500, 
    15906, 3299, 5705, 4504, 5104, 3667, 3955, 6229, 4589, 5079, 
    8129, 3984, 5010, 5886, 6342, 4296, 4389, 4187, 5799, 4499, 
    11497, 13594, 13466, 3995, 3829, 5379, 6303, 6165, 4516, 
    3291, 8814, 4733, 5172, 5890, 4181, 4195, 10371, 12990, 4647, 
    4425, 4482, 6486, 4060, 5798, 4934, 5222, 4723, 4424, 4172, 
    3895, 3798, 5899, 3748, 5719, 4697, 5397, 6850, 7140, 11995
    )), MPG = as.integer(c(22, 17, 22, 17, 23, 25, 20, 15, 18, 
    26, 20, 16, 19, 14, 14, 21, 29, 16, 22, 22, 24, 19, 23, 35, 
    24, 21, 30, 18, 16, 17, 21, 28, 21, 25, 28, 12, 12, 14, 30, 
    22, 14, 14, 15, 18, 20, 21, 19, 19, 18, 19, 24, 16, 14, 28, 
    34, 25, 26, 18, 18, 18, 19, 19, 19, 24, 26, 35, 18, 31, 18, 
    25, 41, 25, 23, 17)), Rep78 = c(3, 3, NA, 5, 3, 4, 3, 4, 
    3, NA, 3, 3, 3, 3, 2, 3, 3, 4, 3, 2, 2, 3, 4, 5, 4, 4, 5, 
    2, 2, 2, 3, 4, 3, 5, 4, 3, 3, 3, 4, 4, 4, 4, 3, 3, 3, 4, 
    3, 3, 4, 3, 1, 3, NA, 3, 5, 3, NA, 2, 4, 1, 3, 3, NA, 2, 
    3, 5, 5, 5, 5, 4, 5, 4, 4, 5), Rep77 = c(2, 1, NA, 2, 3, 
    4, 3, 4, 4, NA, 3, 4, 3, 3, 2, 3, 3, 4, 3, 3, 2, 3, 3, 5, 
    4, 4, 4, 2, 2, 2, 1, NA, 3, 5, 4, 4, 4, 3, 4, 3, 3, 4, 2, 
    NA, 3, 4, 3, 4, 4, 3, 1, 3, NA, 3, 4, NA, NA, 2, 4, 2, 3, 
    3, NA, 2, 3, 4, 5, 5, 5, 3, 4, 3, 3, 3), Hroom = c(2.5, 3, 
    3, 3, 2.5, 2.5, 4.5, 4, 4, 3, 2, 3.5, 3.5, 4, 3.5, 3, 2.5, 
    4, 3.5, 2, 2, 3.5, 1.5, 2, 2.5, 2.5, 2, 4, 3.5, 4.5, 2.5, 
    1.5, 2, 3, 2.5, 3.5, 2.5, 3.5, 3.5, 3, 3.5, 3, 3.5, 3, 3.5, 
    4, 4.5, 2, 4, 4.5, 2, 3.5, 3.5, 2, 2.5, 4, 1.5, 5, 4, 1.5, 
    2, 3.5, 3.5, 2, 3, 2.5, 2.5, 3, 2, 3, 3, 2, 2.5, 2.5), Rseat = c(27.5, 
    25.5, 18.5, 27, 28, 26, 29, 31.5, 30.5, 24, 28.5, 30, 27, 
    31.5, 30, 30, 26, 29.5, 28.5, 28.5, 25, 27, 21, 23.5, 22, 
    27, 24, 29, 26, 28, 26.5, 26, 23, 25.5, 23.5, 30.5, 28.5, 
    27, 25.5, 25.5, 29.5, 25, 30.5, 27, 29, 31.5, 28, 28, 29, 
    27, 25.5, 30, 30.5, 21.5, 23, 25, 22, 31, 29, 23.5, 28.5, 
    28, 27, 25, 23, 25.5, 22, 24.5, 23, 25.5, 25.5, 23.5, 37.5, 
    29.5), Trunk = as.integer(c(11, 11, 12, 15, 11, 12, 16, 20, 
    21, 10, 16, 17, 13, 20, 16, 13, 9, 20, 17, 16, 7, 13, 6, 
    8, 8, 8, 8, 17, 16, 21, 16, 9, 10, 10, 5, 22, 18, 15, 11, 
    9, 16, 16, 23, 15, 17, 20, 16, 16, 20, 14, 10, 17, 14, 11, 
    11, 17, 8, 16, 20, 7, 16, 17, 13, 7, 10, 11, 14, 9, 11, 15, 
    15, 16, 12, 14)), Weight = as.integer(c(2930, 3350, 2640, 
    2830, 2070, 2650, 3250, 4080, 3670, 2230, 3280, 3880, 3400, 
    4330, 3900, 4290, 2110, 3690, 3180, 3220, 2750, 3430, 2370, 
    2020, 2280, 2750, 2120, 3600, 3870, 3740, 2130, 1800, 2650, 
    2240, 1760, 4840, 4720, 3830, 1980, 2580, 4060, 4130, 3720, 
    3370, 2830, 4060, 3300, 3310, 3690, 3370, 2720, 4030, 3420, 
    2360, 1800, 2200, 2520, 3330, 3700, 3470, 3210, 3200, 3420, 
    2690, 1830, 2050, 2410, 2200, 2670, 1930, 2040, 1990, 2160, 
    3170)), Length = as.integer(c(186, 173, 168, 189, 174, 177, 
    196, 222, 218, 170, 200, 207, 200, 221, 204, 204, 163, 212, 
    193, 200, 179, 197, 170, 165, 170, 184, 163, 206, 216, 220, 
    161, 147, 179, 172, 149, 233, 230, 201, 154, 169, 221, 217, 
    212, 198, 195, 220, 198, 198, 218, 200, 180, 206, 192, 170, 
    157, 165, 182, 201, 214, 198, 201, 199, 203, 179, 142, 164, 
    174, 165, 175, 155, 155, 156, 172, 193)), Turn = as.integer(c(40, 
    40, 35, 37, 36, 34, 40, 43, 43, 34, 42, 43, 42, 44, 43, 45, 
    34, 43, 41, 41, 40, 43, 35, 32, 34, 38, 35, 46, 48, 46, 36, 
    33, 42, 36, 34, 51, 48, 41, 33, 39, 48, 45, 44, 41, 43, 43, 
    42, 42, 42, 43, 40, 43, 38, 37, 37, 36, 38, 44, 42, 42, 45, 
    40, 43, 41, 34, 36, 36, 35, 36, 35, 35, 36, 36, 37)), Displa = as.integer(c(121, 
    258, 121, 131, 97, 121, 196, 350, 231, 304, 196, 231, 231, 
    425, 350, 350, 231, 250, 200, 200, 151, 250, 119, 85, 119, 
    146, 98, 318, 318, 225, 105, 98, 140, 107, 91, 400, 400, 
    302, 86, 140, 302, 302, 302, 250, 140, 350, 231, 231, 231, 
    231, 151, 350, 163, 156, 86, 105, 119, 225, 231, 231, 231, 
    231, 231, 151, 79, 97, 134, 97, 134, 89, 90, 97, 97, 163)), 
    Gratio = c(3.58, 2.53, 3.08, 3.2, 3.7, 3.64, 2.93, 2.41, 
    2.73, 2.87, 2.93, 2.93, 3.08, 2.28, 2.19, 2.24, 2.93, 2.56, 
    2.73, 2.73, 2.73, 2.56, 3.89, 3.7, 3.54, 3.55, 3.54, 2.47, 
    2.71, 2.94, 3.37, 3.15, 3.08, 3.05, 3.3, 2.47, 2.47, 2.47, 
    3.73, 2.73, 2.75, 2.75, 2.26, 2.43, 3.08, 2.41, 2.93, 2.93, 
    2.73, 3.08, 2.73, 2.41, 3.58, 3.05, 2.97, 3.37, 3.54, 3.23, 
    2.73, 3.08, 2.93, 2.93, 3.08, 2.73, 3.72, 3.81, 3.06, 3.21, 
    3.05, 3.78, 3.78, 3.78, 3.74, 2.98)), .Names = c("Model", 
"Origin", "Price", "MPG", "Rep78", "Rep77", "Hroom", "Rseat", 
"Trunk", "Weight", "Length", "Turn", "Displa", "Gratio"), row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", 
"47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", 
"58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", 
"69", "70", "71", "72", "73", "74"), class = "data.frame")