Skip to contents

Mapa interativo de qualidade da agua por ponto de amostragem

Source: R/plot_map_quality.R
plot_map_quality.Rd

Cria um mapa Leaflet interativo colorindo cada ponto de amostragem de acordo com o valor do indice de qualidade da agua calculado (IQA, IET ou NSF WQI). Util para identificar espacialmente pontos criticos e gradientes de qualidade ao longo de uma bacia.

Usage

plot_map_quality(
  df,
  index_col = NULL,
  index = c("IQA", "IET_carlson", "IET_lamparelli", "NSFWQI"),
  lat_col = "lat",
  lon_col = "lon",
  label_col = "ponto",
  radius = 10,
  locale = c("pt", "en")
)

Arguments

df

Data frame com ao menos as colunas de coordenadas (lat_col, lon_col) e o indice de qualidade.

index_col

Character; nome da coluna do indice. Se NULL (default), detectada automaticamente.

index

Character; nome do indice para determinacao da paleta: "IQA" (default), "IET_carlson", "IET_lamparelli" ou "NSFWQI". Ignorado quando index_col esta especificado e o nome da coluna identifica o indice univocamente.

lat_col

Character; coluna de latitude. Default "lat".

lon_col

Character; coluna de longitude. Default "lon".

label_col

Character; coluna para rotulo do popup. Default "ponto".

radius

Numeric; raio dos circulos em pixels. Default 10.

locale

Character; idioma dos rotulos de classificacao: "pt" (default) ou "en".

Value

Um objeto leaflet (HTML widget) ou invisible(NULL) se leaflet nao estiver disponivel.

Details

A funcao detecta automaticamente a coluna de indice quando index_col = NULL, procurando por: "IQA", "IET", "IET_Carlson", "IET_Lamparelli", "TSI", "NSFWQI".

Requer o pacote leaflet (listado em Suggests). Se nao estiver instalado, a funcao emite uma mensagem e retorna invisible(NULL).

Quando o data frame tiver multiplas linhas por ponto, e usada a media do indice por ponto para representacao no mapa.

See also

plot_map(), iqa(), iet_carlson()

Other visualization-tools: plot_iet()

Examples

# \donttest{
if (requireNamespace("leaflet", quietly = TRUE)) {
  data("wq_demo", package = "tikatuwq")
  d <- iqa(wq_demo, allow_partial = TRUE)
  plot_map_quality(d, index = "IQA")
}


# }