shiny::runApp()
shiny::runApp()
install.packages("readr")
runApp()
runApp()
banco$bd_filtrado
banco$bd_filtrado$INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)"
banco$bd_filtrado$INDICADOR %>% filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)")
banco$bd_filtrado$INDICADOR %>% dplyr::filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)")
banco$bd_filtrado %>% dplyr::filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)")
banco$bd_filtrado %>% dplyr::filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)") %>% select(VALOR)
banco$bd_filtrado %>% dplyr::filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)") %>% select(INDICADOR, VALOR)
View(banco_bd_filtrado)
View(banco$bd_filtrado)
f <- function(x)x<=10000
fazendas <- banco$bd_filtrado %>%
filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)" & f(VALOR)) %>%
unique("CÓDIGO FAZENDA")
fazendas <- banco$bd_filtrado %>%
filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)" & f(VALOR))
fazendas
unique(fazendas$`CÓDIGO FAZENDA`)
fazendas <- banco$bd_filtrado %>%
filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)" & f(VALOR))
fazendas <- unique(fazendas`CÓDIGO FAZENDA`)
fazendas <- unique(fazendas$`CÓDIGO FAZENDA`)
fazendas
banco$bd_filtrado %>%
filter(`CÓDIGO FAZENDA` %in% fazendas)
f <- function(x)x>10000
# selecionando código das fazendas que atendem ao critério do filtro
fazendas <- banco$bd_filtrado %>%
filter(INDICADOR == "DESEMBOLSO PECUÁRIO POR HA/ANO (SEM COMPRA DE GADO)" & f(VALOR))
fazendas <- unique(fazendas$`CÓDIGO FAZENDA`)
banco$bd_filtrado %>%
filter(`CÓDIGO FAZENDA` %in% fazendas)
50,277
50277 + 180327
banco$bd_filtrado
banco$bd_filtrado %>%
filter(`CÓDIGO FAZENDA` %in% fazendas)
banco$bd_filtrado %>%
filter(`CÓDIGO FAZENDA` %in% fazendas) %>% select(VALOR)
f <- function(x)x>10000
f
Q
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
banco
banco()
banco$bd$sistema
unique(banco$bd$sistema)
shiny::runApp()
banco$bd_filtrado
View(banco$bd_filtrado)
ref
ref
banco$ind_top
source('~/apps/farmview/R/preProcessamento.R')
source('~/apps/farmview/R/preProcessamento.R')
shiny::runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
banco$bdnome
banco$bd_filtrado$nome
runApp()
dados
load("~/projects/safra-inttegra-19-20/bd/banco.rData")
dados$obs_id
dados %>% count(is.na(obs_id))
runApp()
fazendas
banco$bd_filtrado
banco$bd_filtrado$obs_id
banco$bd_filtrado %>% select(nome, obs_id)
banco$bd_filtrado %>% select(nome, obs_id) %>% filter(obs_id == 448)
runApp()
runApp()
runApp()
dados %>% count(`SISTEMA PECUÁRIA`)
dados %>% count(`SISTEMA ENGORDA`)
dados$`SISTEMA PECUÁRIA`
### Carregamento de bancos --------------------------------------------
read_xlsx('bd/bd.xlsx') -> original
### Carregamento de bancos --------------------------------------------
read_xlsx('../../bd/bd.xlsx') -> original
original$`CÓDIGO FAZENDA`
original$`SISTEMA PECUÁRIA`
original %>% count(`SISTEMA PECUÁRIA`)
original %>% count(`SISTEMA RECRIA`)
dados$`SISTEMA RECRIA`
dados %>% count(`SISTEMA RECRIA`)
load("bd/banco.rData")
load("bd/sistemaChoices")
load("bd/sistemaChoices.rData")
dados %<>% join(sistemaChoices, by=c(obs_id))
library(magrittr)
dados %<>% join(sistemaChoices, by=c(obs_id))
dados %<>% dplyr::left_join(sistemaChoices, by=c(obs_id))
dados %<>% dplyr::left_join(sistemaChoices, by=c("obs_id"))
shiny::runApp()
