Doc-2-Indicators • ftsAnalysis

library(ftsAnalysis)
#> Registered S3 method overwritten by 'quantmod':
#>   method            from
#>   as.zoo.data.frame zoo

Using this flows data to compile different types of indicators

Donor Focused Indicators prefixed
Donor to Recipient Indicators
Donors to Destination Indicators
Recipient Focused indicators
Destination Focused indicators

Donor

indicator_donor_funding_consistency

result <- indicator_donor_funding_consistency(flows, donor_name = "Germany")
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_donor_relationship_duration

result <- indicator_donor_relationship_duration(flows, donor_name = "Germany")
print(result$plot)

indicator_donor_funding_growth

result <- indicator_donor_funding_growth(flows, donor_name = "Germany")
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 154 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_donor_timing_consistency

result <- indicator_donor_timing_consistency(flows, donor_name = "Germany")
print(result$plot)
#> Warning: Removed 106 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_donor_systemic_concentration

result <- indicator_donor_recipient_concentration(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 1 row containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_donor_recipient_trend

result <- indicator_donor_recipient_trend(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 1480 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_donor_recipient_reciprocity

result <- indicator_donor_recipient_reciprocity(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

Donor to Destination

indicator_donor_destination_coverage

result <- indicator_donor_destination_coverage(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_donor_destination_trend

result <- indicator_donor_destination_trend(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 146 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_donor_destination_concentration

result <- indicator_donor_destination_concentration(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_donor_destination_earmarking_flexibility

result <- indicator_donor_destination_earmarking_flexibility(flows)
print(result$plot)

indicator_donor_destination_risk_tolerance

result <- indicator_donor_destination_risk_tolerance(
  flows,
  high_risk_locations = c("Sudan", "South Sudan", "Somalia", "Afghanistan"),
  new_partners        = c("Local NGO A", "Community Org B")
)
print(result$plot)

indicator_donor_destination_stability

result <- indicator_donor_destination_stability(flows)
print(result$plot)

Recipient

indicator_recipient_funding_share

result <- indicator_recipient_funding_share(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_recipient_amount_stability

result <- indicator_recipient_amount_stability(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 455 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_recipient_cofunding_rate

result <- indicator_recipient_cofunding_rate(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_recipient_systemic_diversification

result <- indicator_recipient_systemic_diversification(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 469 rows containing non-finite outside the scale range
#> (`stat_bin()`).

Destination

indicator_destination_modality_innovation

result <- indicator_destination_modality_innovation(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_pipeline_visibility

result <- indicator_destination_pipeline_visibility(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_earmarking_flexibility

result <- indicator_destination_earmarking_flexibility(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_donor_diversity

result <- indicator_destination_donor_diversity(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_funding_stability

result <- indicator_destination_funding_stability(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 45 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_destination_funding_trend

result <- indicator_destination_funding_trend(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 45 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_destination_donor_retention

result <- indicator_destination_donor_retention(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_funding_diversity

result <- indicator_destination_funding_diversity(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 31 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_destination_funding_volatility

result <-indicator_destination_funding_volatility(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.
#> Warning: Removed 44 rows containing non-finite outside the scale range
#> (`stat_bin()`).

indicator_destination_dependency

result <-indicator_destination_dependency(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.

indicator_destination_modality_balance

result <- indicator_destination_modality_balance(flows)
print(result$plot)
#> `stat_bin()` using `bins = 30`. Pick better value `binwidth`.