Institutsdaten der Federal Deposit Insurance Corporation
Die Federal Deposit Insurance Corporation (FDIC) ist eine unabhängige US-Regierungsbehörde und Einlagensicherungsfonds. Derzeit werden Einlagen in Mitgliedsinstitutionen bis zu einer Höhe von 250.000$ versichert. In diesem Beispiel werden der Aktienbesitz, die Größenverteilung und die geographische Verteilung von Mitgliedsinstitutionen untersucht.
Laden Sie als ersten Schritt einen Entity-Store mit FDIC-Daten als ResourceObject.
fdic = ResourceData[
ResourceObject[
Association[
"Name" -> "FDIC Institution EntityStore",
"UUID" -> "6f5d37d4-1406-483c-b67c-f58d903d16b1",
"ResourceType" -> "DataResource", "Version" -> "1.0.0",
"Description" -> "A Wolfram Language EntityStore with selected \
data on FDIC insured institutions",
"ContentSize" -> Quantity[0, "Bytes"],
"ContentElements" -> {"EntityStore"}]]]
Registrieren Sie den Store für diese Sitzung.
PrependTo[$EntityStores, fdic];
Ermitteln Sie die Anzahl bestehender FDIC-Institutionen.
Length[ents = EntityList["FDICInstitution"]]
Machen Sie eine Liste verfügbarer Eigenschaften des EntityStore.
EntityProperties["FDICInstitution"] // Sort // Take[#, 20] &
Visualisieren Sie die geographischen Standpunkte der Banken.
GeoListPlot[EntityList["FDICInstitution"], PlotMarkers -> "$"]
Stellen Sie die Rangverteilung in einem doppelt logarithmischen Plot dar.
ListLogLogPlot[
Reverse@Sort[EntityValue["FDICInstitution", "TotalAssets"]],
AxesLabel -> Automatic, PlotStyle -> PointSize[Medium]]
Visualisieren Sie Angestellte vs. verwaltetes Vermögen.
empVsAssets =
EntityValue[
"FDICInstitution", {"TotalEmployeeNumber", "TotalAssets"}];
ListLogLogPlot[empVsAssets, AxesLabel -> Automatic]
Fügen Sie Beschriftungen für die sechs größten Institutionen ein.
Visualisieren Sie Verbindlichkeiten vs. Vermögen.
assetsVsLiability =
EntityValue["FDICInstitution", {"TotalAssets", "TotalLiabilities"}];
ListLogLogPlot[assetsVsLiability, AxesLabel -> Automatic]
Visualisieren Sie Nettodarlehen und Miete bzw. Pacht vs. Gesamteinlagen in Verbindung mit einem Modell.
loanVsDeposit =
EntityValue[
"FDICInstitution", {"NetLoansAndLeases", "TotalDeposits"}];
nmf = NonlinearModelFit[
Select[QuantityMagnitude /@ loanVsDeposit, Min[#] > 0 &],
c + a x^\[Alpha], {a, \[Alpha], c}, x]
Show[ListPlot[loanVsDeposit],
Plot[Evaluate[Normal[nmf]], {x, 0, 10^10}, PlotStyle -> Red,
AxesLabel -> Automatic]]
Vergleichen Sie Tier 1 (hartes Kernkapital, sicher) und Tier 2 (Ergänzungskapital, riskanter) mit den Vermögensgesamtwerten.
{tierOneCapitalToAssets,
tierTwoCapitalToAssetsCapitalToAssets} = (Divide @@@
EntityValue[
"FDICInstitution", {#, "TotalAssets"}]) & /@ {"TierOneCapital",
"TierTwoRiskBasedCapital"};
Histogram[{tierOneCapitalToAssets,
tierTwoCapitalToAssetsCapitalToAssets}, {0, 0.3, 0.01},
ChartLegends -> {"Tier 1", "Tier 2"},
PlotLabel -> "Capital/Assets Ratio"]
Ermitteln Sie die Vermögensverteilung als "EntityAssociation".
dat = EntityValue["FDICInstitution", "TotalAssets",
"EntityAssociation"];
Visualisieren Sie die Vermögensverteilung.
Histogram[dat, "Log", AxesLabel -> Automatic]
Zeigen Sie die Standorte von Banken mit Vermögenswerten von mehr als 5 Milliarden und 300 Milliarden Dollar an.
GeoListPlot[
Keys[Select[dat,
GreaterThan[Quantity[#, "USDollars"]]]]] & /@ {5*^9, 300*^9}
Sie sehen deutlich, dass die Top 10 Banken mehr Vermögenswerte besitzen als die restlichen 6121 zusammen.
Ermitteln Sie die Banken mit dem höchsten Prozent (1%) an Einlagen.
dat1 = EntityValue["FDICInstitution", "TotalDeposits",
"EntityAssociation"];
{bottom1percent, top1percent} =
Quantile[values = Values[dat1], {0.01, 0.99}]
Visualisieren Sie diese auf einer Karte.
GeoListPlot[Keys[Select[dat1, GreaterThan[top1percent]]]]
Die Verteilung der Vermögenswerte pro Stadt entspricht dem Benfordschen Gesetz bis zu einem bemerkenswerten Grad.
Zeigen Sie die Banken mit der größten Kapitalstruktur an.
dataSet3[TakeLargestBy["FinancialLeverage", 10]]
Plotten Sie die Verteilung der Kapitalstruktur.
Histogram[dataSet3[All, "FinancialLeverage"], {0, 20, 0.5},
PlotLabel -> "FDIC banks Financial Leverage distribution"]
Untersuchen Sie graphisch die Beziehung zwischen Vermögen, Anlagevermögen und Verbindlichkeiten.