我正在做作业，我很难弄清楚用什么参数来表示我的表中四个不同绘图象限中这四列的频率分布。另外，如何在一个命令中为每个颜色分配颜色？我很陌生，对不起
在四个不同的绘图象限中显示INCOME，VEHIC（车辆价值），HOMEEQ和DEBT的频率分布。使用不同的颜色显示每个变量，并为每个x轴使用未缩写的标签。
以下是我之前执行的代码。
stats<-read.csv(file="C:\\Users\\Starpower\\Downloads\\financial.csv", head=TRUE)stats,
stats <-stats[ ,-2],
stats$RGENDER <- rnorm(1000, 50 ,10),
stats$RGENDER <- factor(stats$RGENDER >50, levels=c('TRUE','FALSE'),
labels=c("Male", "Female")),
table(stats$RGENDER)
这里是前10个观察的头部。我不能为1000做头，因为这是表中的所有向量，并且有太多的字符。
dput（头（统计资料，10））
structure(list(X = structure(c(382L, 675L, 943L, 45L, 460L, 609L,
125L, 895L, 329L, 709L), .Label = c("X100", "X10040", "X10040131",
"X10090", "X1010", "X10105", "X10180", "X1018069", "X10230",
"X1023081", "X10235", "X10275", "X1027522", "X10280", "X10290",
"X1030", "X10300", "X103068", "X10325", "X10340", "X10345", "X10360",
"X10370", "X10380", "X10390", "X10410", "X10420", "X1045", "X10510",
"X10520", "X1052033", "X10540", "X10560", "X10560136", "X10600",
"X10640", "X10650", "X10685", "X10690", "X1069080", "X1069083",
"X10700", "X1070019", "X10705", "X10720", "X10740", "X10740119",
"X1075", "X107573", "X10765", "X10795", "X107953", "X1080", "X10815",
"X10825", "X10855", "X10875", "X10875135", "X10940", "X10940142",
"X10990", "X110", "X1100", "X11010", "X11025", "X11035", "X110356",
"X11040", "X11115", "X11195", "X11230", "X11260", "X11275", "X1127598",
"X11315", "X11320", "X11325", "X11340", "X11375", "X11410", "X11425",
"X11435", "X11465", "X1146546", "X11475", "X11490", "X11495",
"X11495108", "X11525", "X11565", "X11575", "X11670", "X11735",
"X11750", "X11820", "X1182036", "X11840", "X11855", "X11875",
"X11880", "X11925", "X11955", "X11980", "X1200", "X12020", "X12035",
"X1203599", "X12040", "X12050", "X12060", "X12065", "X12070",
"X12080", "X1208092", "X1210", "X12115", "X12135", "X1213512",
"X1220", "X12205", "X12210", "X12220", "X1222078", "X12230",
"X12235", "X1223521", "X12280", "X12335", "X12340", "X12365",
"X12380", "X12410", "X12465", "X12490", "X1250", "X12500", "X125097",
"X12520", "X12535", "X12555", "X12570", "X12600", "X12605", "X12610",
"X12630", "X12640", "X1265", "X12680", "X12680125", "X12685",
"X12705", "X12715", "X12735", "X12830", "X12835", "X12850", "X12880",
"X1290", "X12900", "X12905", "X12920", "X12930", "X12945", "X12945106",
"X12955", "X12985", "X130", "X1300", "X13010", "X13035", "X1303587",
"X13040", "X1304052", "X1305", "X13062", "X13090", "X13110",
"X1315", "X13160", "X13180", "X13235", "X1323567", "X1325", "X13270",
"X1330", "X13300", "X1330082", "X13340", "X13365", "X13385",
"X13395", "X13440", "X1350", "X13535", "X13545", "X13555", "X13560",
"X13565", "X13600", "X13610", "X13620", "X13645", "X1364528",
"X13715", "X13725", "X13725138", "X13740", "X13745", "X13760",
"X13795", "X13800", "X13830", "X13835", "X13850", "X13895", "X13920",
"X13935", "X13945", "X1395", "X13955", "X14000", "X14005", "X14070",
"X14085", "X1408515", "X14145", "X14155", "X14165", "X1420",
"X14200", "X14250", "X14255", "X14400", "X14400115", "X14485",
"X145", "X14525", "X1455", "X14570", "X14580", "X14585", "X14630",
"X14705", "X14750", "X147508", "X14765", "X14770", "X14780",
"X1480", "X14800", "X14840", "X14855", "X14880", "X1488027",
"X1490", "X14910", "X14915", "X14950", "X150", "X15015", "X15070",
"X15095", "X15105", "X15130", "X15135", "X15150", "X15185", "X15215",
"X15225", "X15240", "X15255", "X15280", "X15300", "X15320", "X15355",
"X15360", "X15370", "X15375", "X1540", "X15400", "X15485", "X15490",
"X155", "X1550", "X15515", "X15555", "X15575", "X15665", "X15700",
"X15725", "X15730", "X15740", "X1575", "X15815", "X15825", "X15880",
"X15945", "X1595", "X15970", "X1600", "X16025", "X1602549", "X1610",
"X16115", "X16140", "X1614070", "X16145", "X16165", "X16235",
"X16260", "X16305", "X16305120", "X1630542", "X16330", "X16350",
"X16370", "X16425", "X16440", "X16450", "X16455", "X16470", "X16470124",
"X16475", "X16480", "X1650", "X16535", "X16545", "X1655", "X16555",
"X16555113", "X16570", "X16585", "X16595", "X1660", "X16600",
"X16605", "X16615", "X16645", "X16685", "X1670", "X16710", "X16735",
"X16745", "X16785", "X16795", "X16800", "X1680026", "X16810",
"X16815", "X16850", "X16900", "X16905", "X16905107", "X16935",
"X16935139", "X16945", "X1694566", "X16950", "X16960", "X17005",
"X17060", "X17070", "X17075", "X17090", "X17100", "X17115", "X17190",
"X1719093", "X17200", "X17205", "X17290", "X17305", "X17315",
"X17355", "X17370", "X17375", "X17385", "X17395", "X17450", "X1745058",
"X17455", "X17470", "X17480", "X17500", "X17515", "X1751513",
"X17530", "X17540", "X1755", "X17555", "X17560", "X17560143",
"X17585", "X1758518", "X17615", "X17670", "X1767079", "X17710",
"X17765", "X1776586", "X17780", "X17810", "X17815", "X1785",
"X17850", "X178576", "X17860", "X17880", "X1790", "X17900", "X17905",
"X17905116", "X17920", "X1792031", "X17935", "X17940", "X17945",
"X17970", "X18070", "X18155", "X18180", "X18200", "X18245", "X18295",
"X18375", "X18375132", "X18380", "X18420", "X1842071", "X1845",
"X18460", "X18465", "X18475", "X18530", "X18550", "X18595", "X1860",
"X18625", "X18630", "X18640", "X1865", "X18665", "X18685", "X18705",
"X18720", "X18735", "X18760", "X18795", "X1880", "X18820", "X18825",
"X18830", "X18895", "X1895", "X18965", "X1900", "X19050", "X19125",
"X19145", "X19170", "X19180", "X19190", "X1920", "X19205", "X19205102",
"X19230", "X1925", "X19300", "X19305", "X19315", "X19330", "X19340",
"X1940", "X19405", "X19430", "X19435", "X19490", "X19515", "X19555",
"X1955548", "X19565", "X19580", "X19625", "X19625137", "X19635",
"X19650", "X19685", "X19775", "X19805", "X19815", "X19845", "X198455",
"X19880", "X19890", "X19895", "X19925", "X19930", "X19950", "X19955",
"X19980", "X1998017", "X1998090", "X20075", "X2007524", "X2010",
"X20110", "X20130", "X20135", "X20180", "X2018059", "X2020",
"X20200", "X202091", "X20215", "X20245", "X2024585", "X2025",
"X20265", "X20265134", "X2026553", "X20295", "X20325", "X20390",
"X20435", "X2045", "X20455", "X20460", "X20500", "X2050072",
"X20565", "X20565110", "X2060", "X20605", "X20625", "X20650",
"X20670", "X20680", "X20725", "X20770", "X20775", "X20795", "X20830",
"X20845", "X2085", "X20855", "X20875", "X20915", "X20930", "X20945",
"X2100", "X2100111", "X21010", "X21035", "X21040", "X21055",
"X2105584", "X2105594", "X21060", "X21095", "X21095117", "X2109564",
"X21100", "X21130", "X21130129", "X21165", "X2116563", "X21195",
"X21210", "X21245", "X21260", "X21305", "X21340", "X21350", "X2135095",
"X21360", "X21375", "X21380", "X21405", "X21425", "X21470", "X21480",
"X21495", "X215", "X21505", "X2150560", "X21535", "X2153550",
"X21575", "X21595", "X21625", "X21650", "X21685", "X21705", "X2175",
"X21750", "X21770", "X21780", "X21805", "X21825", "X21855", "X21890",
"X21940", "X21995", "X22015", "X2201516", "X22035", "X22045",
"X2204574", "X22075", "X22110", "X2211061", "X225", "X2295",
"X2300", "X2315", "X2320", "X2325", "X2325101", "X2330", "X2330123",
"X233065", "X2345", "X235", "X2435", "X2440", "X2485", "X2495",
"X249535", "X2530", "X2535", "X255", "X2565", "X256588", "X2575",
"X2585", "X2590", "X2600", "X26002", "X2610", "X2615", "X2620",
"X2630", "X2635", "X2715", "X2770", "X277040", "X2855", "X2855104",
"X2860", "X2860126", "X2865", "X286589", "X2870", "X2895", "X2905",
"X2925", "X2935", "X2965", "X2970", "X2975", "X2985", "X300",
"X3025", "X3045", "X305", "X3060", "X3070", "X3075", "X3080",
"X3085", "X310", "X310105", "X3105", "X3135", "X315", "X31520",
"X3160", "X3170", "X3200", "X3215", "X3235", "X3235127", "X3245",
"X3250", "X335", "X3350", "X3400", "X3405", "X34057", "X3410",
"X341014", "X3430", "X345", "X3465", "X3470", "X3470130", "X3490",
"X3505", "X3510", "X3525", "X3530", "X3540", "X360", "X3605",
"X3625", "X3685", "X3695", "X369541", "X370", "X3720", "X3745",
"X3750", "X3760", "X3770", "X3780", "X3870", "X387023", "X3875",
"X3875100", "X3895", "X3905", "X3910", "X3920", "X3925", "X3990",
"X3990140", "X4000", "X4030", "X4040", "X4065", "X4110", "X4120",
"X4130", "X4145", "X4160", "X4180", "X4185", "X4195", "X4215",
"X4245", "X430", "X4305", "X4310", "X4440", "X4465", "X4475",
"X4515", "X4525", "X4530", "X4540", "X4570", "X457045", "X4600",
"X4605", "X4685", "X4700", "X4760", "X4765", "X4825", "X4830",
"X485", "X4875", "X4895", "X489525", "X490", "X4930", "X4950",
"X495051", "X4965", "X496557", "X4985", "X4995", "X50", "X5065",
"X5075", "X5080", "X5095", "X509511", "X5100", "X5175", "X5175112",
"X5210", "X5210103", "X5210114", "X5220", "X5245", "X525", "X5270",
"X5300", "X5330", "X5340", "X540", "X54010", "X5420", "X542039",
"X5425", "X54259", "X5440", "X5475", "X5530", "X5575", "X557530",
"X5625", "X5640", "X565", "X5680", "X5695", "X570", "X5720",
"X5745", "X575", "X5760", "X5765", "X5820", "X5825", "X585",
"X5875", "X587534", "X5895", "X5915", "X595", "X5965", "X600",
"X6000", "X6040", "X6055", "X6115", "X6130", "X615", "X6175",
"X620", "X6260", "X626029", "X6340", "X6355", "X6395", "X6415",
"X645", "X6475", "X6565", "X6570", "X6575", "X6590", "X6590141",
"X6635", "X66351", "X6700", "X6710", "X6710133", "X6720", "X6725",
"X6765", "X6785", "X6795", "X680", "X68096", "X6860", "X6880",
"X6885", "X6900", "X690043", "X6920", "X6920122", "X6930", "X6940",
"X695", "X6975", "X6980", "X7005", "X7035", "X7075", "X7080",
"X7095", "X7100", "X7125", "X7135", "X7190", "X7200", "X7230",
"X7350", "X7415", "X7460", "X7485", "X7495", "X75", "X7530",
"X7535", "X753547", "X7540", "X7555", "X7570", "X7575", "X7590",
"X7655", "X7670", "X7670121", "X7680", "X7680109", "X768044",
"X7700", "X7770", "X7795", "X7845", "X785", "X7970", "X7975",
"X7985", "X7990", "X8005", "X8020", "X8050", "X8060", "X8105",
"X8115", "X811538", "X8150", "X8180", "X8210", "X8230", "X830",
"X8300", "X8315", "X831537", "X8345", "X8385", "X8410", "X8435",
"X84354", "X8475", "X8485", "X8580", "X858032", "X8670", "X8690",
"X8695", "X870", "X8705", "X8750", "X8760", "X8770", "X8785",
"X8790", "X8795", "X8875", "X8885", "X8890", "X8940", "X8960",
"X90", "X9005", "X9020", "X905", "X9050", "X90575", "X9065",
"X9075", "X9090", "X9105", "X9140", "X9175", "X9180", "X920",
"X920118", "X9220", "X925", "X9250", "X9285", "X928577", "X9295",
"X9300", "X9345", "X9360", "X9390", "X939056", "X9400", "X940054",
"X9425", "X9465", "X9485", "X9520", "X9570", "X9580", "X9615",
"X9625", "X9640", "X965", "X96555", "X9665", "X9670", "X9710",
"X9715", "X9715128", "X9725", "X9785", "X9805", "X9855", "X9870",
"X9880", "X9895", "X990"), class = "factor"), AGE = c(54L, 40L,
35L, 55L, 40L, 82L, 26L, 50L, 71L, 70L), EDUC = c(14L, 12L, 14L,
12L, 12L, 12L, 16L, 14L, 12L, 6L), INCOME = c(66814.194577, 42144.338118,
25697.767145, 35976.874003, 39060.606061, 13362.838915, 61674.641148,
53451.355662, 16446.570973, 9867.9425837), CHECKING = c(6000L,
400L, 1000L, 2600L, 1000L, 1000L, 3000L, 3100L, 1000L, 50L),
SAVING = c(2000, 0, 160, 19100, 8300, 0, 0, 0, 0, 0), NMMF = c(0,
0, 0, 0, 0, 50000, 0, 0, 0, 0), STOCKS = c(500, 0, 0, 0,
3500, 0, 0, 0, 0, 0), FIN = c(39600L, 5400L, 15460L, 54700L,
12800L, 70500L, 16000L, 12200L, 13000L, 50L), VEHIC = c(6400L,
21000L, 2000L, 18250L, 9100L, 7500L, 16000L, 34000L, 1800L,
1300L), HOMEEQ = c(84000, 8000, 12000, 90000, 47000, 175000,
0, 22000, 15000, 0), OTHNFIN = c(0, 0, 0, 0, 0, 0, 0, 0,
0, 0), DEBT = c(40200, 58640, 19610, 8000, 21000, 0, 31000,
60600, 0, 9800), NETWORTH = c(170800, 17760, 9850, 284950,
268900, 253000, 1000, 45600, 29800, -450), RGENDER = structure(c(1L,
2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Male", "Female"
), class = "factor")), .Names = c("X", "AGE", "EDUC", "INCOME",
"CHECKING", "SAVING", "NMMF", "STOCKS", "FIN", "VEHIC", "HOMEEQ",
"OTHNFIN", "DEBT", "NETWORTH", "RGENDER"), row.names = c(NA,
10L), class = "data.frame")
先谢谢你帮助我，我真的很感激