As a reprex, the data should look like this, produced with
dput(county)
or preferably
county <- data.frame(
MedianListPrice =
c(364945, 401950, 139900, 233900, 239990, 249900, 245000, 817754, 269900, 504945, 639250, 113950, 186700, 219450, 189000, 424995, 368137, 435068, 837000, 274462, 244999, 329077, 167900, 269950, 212250, 550000, 260000, 244900, 279950, 319950, 426950, 235900, 220000, 290000, 334900, 283324, 227950, 206125, 374950),
ActiveListCount =
c(1950, 1227, 292, 383, 1021, 1067, 887, 2131, 1125, 628, 445, 424, 922, 288, 375, 1906, 467, 1092, 214, 682, 2450, 3170, 2786, 1890, 212, 2953, 727, 802, 264, 1759, 2838, 849, 1111, 1582, 667, 687, 580, 1108, 853),
MedianDom =
c(37, 36, 61, 67, 94, 80, 64, 29, 81, 114, 36, 114, 39, 66, 62, 82, 50, 46, 75, 93, 100, 105, 75, 72, 76, 109, 88, 76, 88, 106, 112, 148, 73, 85, 68, 78, 92, 92, 140),
"NewListing Count" =
c(908, 772, 68, 100, 204, 248, 404, 1472, 316, 136, 220, 72, 464, 104, 100, 648, 276, 820, 156, 200, 728, 840, 960, 700, 108, 740, 272, 284, 92, 536, 640, 164, 428, 464, 196, 316, 148, 356, 120),
PriceIncreaseCount =
c(52, 60, 4, 12, 72, 16, 48, 68, 4, 8, 16, 4, 12, 4, 4, 68, 4, 48, 4, 8, 28, 72, 56, 40, 4, 20, 60, 40, 12, 80, 32, 4, 12, 32, 20, 32, 12, 20, 4),
PriceReducedCount =
c(1036, 736, 76, 116, 164, 272, 228, 756, 308, 88, 184, 104, 412, 80, 136, 508, 112, 404, 36, 160, 364, 672, 756, 580, 44, 416, 128, 148, 76, 236, 548, 96, 188, 320, 120, 204, 84, 216, 68),
PendingListCount =
c(51, 922, 3, 23, 4, 13, 107, 1358, 594, 319, 163, 9, 2, 149, 69, 260, 387, 869, 78, 13, 74, 1, 255, 287, 5, 270, 355, 324, 64, 2, 791, 207, 548, 609, 4, 246, 98, 25, 171),
MedianPpsf =
c(171, 163, 89, 121, 104, 133, 110, 542, 148, 183, 375, 68, 88, 99, 112, 194, 159, 181, 367, 134, 76, 151, 112, 151, 97, 321, 99, 96, 142, 215, 199, 105, 102, 121, 162, 136, 115, 105, 184),
MedianSqFt =
c(2256, 2571, 1621, 1891, 2300, 1868, 2092, 1501, 1800, 2725, 1535, 1658, 1990, 2071, 1707, 2106, 2167, 2477, 1698, 2051, 991, 1961, 1301, 1728, 2278, 1808, 2000, 1650, 2002, 1506, 2157, 1544, 2130, 2343, 2115, 2193, 1867, 1810, 2000),
AvgListPrice =
c(455053, 440090, 173321, 271728, 344596, 318950, 272750, 981660, 332820, 819756, 798905, 134915, 262489, 261439, 218547, 540930, 387759, 624755, 1024109, 302002, 413659, 429301, 215087, 368524, 262975, 950955, 343824, 353612, 338213, 411251, 644477, 344713, 250142, 367288, 361361, 425106, 240743, 256895, 622974),
TotalListCount =
c(2001, 2149, 295, 406, 1025, 1080, 994, 3489, 1719, 947, 608, 433, 924, 437, 444, 2166, 854, 1961, 292, 695, 2524, 3171, 3041, 2177, 217, 3223, 1082, 1126, 328, 1761, 3629, 1056, 1659, 2191, 671, 933, 678, 1133, 1024)
)
So, the next question is how are you producing the output shown from the county data frame with the command hist(county, main = "something")