Entrega 1: Visualización de Datos

Ejercicio para entregar

• Crear un nuevo dataframe que sea un subconjunto del dataframe original de dfFires. El subconjunto debe contener todos los incendios del Estado de Idaho y las columnas deben ser limitadas para que sólo estén presentes las columnas YEAR_, CAUSE y TOTALACRES. Cambie el nombre de las columnas. Agrupe los datos por CAUSE y YEAR_ y luego resuma por el total de acres quemados. Trazar los resultados.

df_3= StudyArea %>%
      filter(STATE == "Idaho")

knitr::kable(head(df_3))

FID	ORGANIZATI	UNIT	SUBUNIT	SUBUNIT2	FIRENAME	CAUSE	YEAR_	STARTDATED	CONTRDATED	OUTDATED	STATE	STATE_FIPS	TOTALACRES
3971	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	Y ROAD	Human	1987	5/7/87 0:00	5/7/87 0:00	NA	Idaho	16	5
3972	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	LIFTON	Natural	1991	5/2/91 0:00	5/2/91 0:00	NA	Idaho	16	150
3973	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	SPRING CR	Human	1991	5/20/91 0:00	5/20/91 0:00	NA	Idaho	16	800
3974	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	RAINBOW	Natural	1990	6/9/90 0:00	6/9/90 0:00	NA	Idaho	16	2
3975	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	RAINBOW 1	Human	1985	4/18/85 0:00	4/18/85 0:00	NA	Idaho	16	38
3976	FWS	14613	USIDBLR	Bear Lake National Wildlife Refuge	HOAGESON	Human	1988	10/24/88 0:00	10/24/88 0:00	NA	Idaho	16	2

df_3=select(df_3,ACRES="TOTALACRES",AÑO="YEAR_",CAUSA="CAUSE")
knitr::kable(head(df_3))

ACRES	AÑO	CAUSA
5	1987	Human
150	1991	Natural
800	1991	Human
2	1990	Natural
38	1985	Human
2	1988	Human

by_year=group_by(df_3, AÑO)%>%
  summarise(TOTAL=sum(ACRES))
knitr::kable(head(by_year))

AÑO	TOTAL
1980	114962.9
1981	495998.7
1982	76177.1
1983	233570.5
1984	173198.1
1985	280240.7

ggplot(data=by_year) + 
  geom_col(mapping = aes(x=AÑO, y=TOTAL), fill="#FF1493")

by_cause = group_by(df_3, CAUSA)%>%
        summarise(TOTAL=sum(ACRES))
knitr::kable(head(by_cause))

CAUSA	TOTAL
Human	3783831.0
Natural	13745851.7
Undetermined	1802.5
NA	3562.4

ggplot(data=by_cause) + 
  geom_col(mapping = aes(x=CAUSA, y=TOTAL), fill="#FF1493")