SegundoR

Data Frame

StudyArea <- read.csv("StudyArea.csv")
knitr::kable(head(StudyArea))

FID	ORGANIZATI	UNIT	SUBUNIT	SUBUNIT2	FIRENAME	CAUSE	YEAR_	STARTDATED	CONTRDATED	OUTDATED	STATE	STATE_FIPS	TOTALACRES
0	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	PUMP HOUSE	Human	2001	1/1/01 0:00	1/1/01 0:00		California	6	0.1
1	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	I5	Human	2002	5/3/02 0:00	5/3/02 0:00		California	6	3.0
2	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	SOUTHBAY	Human	2002	6/1/02 0:00	6/1/02 0:00		California	6	0.5
3	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	MARINA	Human	2001	7/12/01 0:00	7/12/01 0:00		California	6	0.1
4	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	HILL	Human	1994	9/13/94 0:00	9/13/94 0:00		California	6	1.0
5	FWS	81682	USCADBR	San Diego Bay National Wildlife Refuge	IRRIGATION	Human	1994	4/22/94 0:00	4/22/94 0:00		California	6	0.1

dfFires <- filter(StudyArea, STATE =="Idaho")%>%
  select(YEAR_,CAUSE, TOTALACRES)%>%
  rename(Año= YEAR_, Causa= CAUSE, Total_Acres = TOTALACRES)

knitr::kable(head(dfFires))

Año	Causa	Total_Acres
1987	Human	5
1991	Natural	150
1991	Human	800
1990	Natural	2
1985	Human	38
1988	Human	2

Agrupación de datos por Año

idaho_summary <- dfFires %>%
  group_by(Año) %>%
  summarise(Total_Acres = sum(Total_Acres, na.rm = TRUE))

# Mostrar un resumen de los datos
knitr::kable(head(idaho_summary))

Año	Total_Acres
1980	114962.9
1981	495998.7
1982	76177.1
1983	233570.5
1984	173198.1
1985	280240.7

Agrupación de datos por Causa

Causa	Total_Acres
	3562.4
Human	3783831.0
Natural	13745851.7
Undetermined	1802.5