—

title: “Karen Romero” output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill —

Column {data-width=650}

introducion esta es la introduccion es mejor
———————————————————————–

###Grafica de puntos

library(ggplot2)

poopo <- readxl::read_excel("D:/UNIVERSIDAD/2_2021/MODELACION_AMBIENTAL/poopo.xlsx")
gb <- ggplot(poopo, aes(x = Año, y = AL, color = AL)) +
  geom_point() +
  labs(x = "Año", y = "AL", color = "AL:")
gb + scale_color_continuous()

## Warning: Removed 27 rows containing missing values (geom_point).

###grafica de tendencia

poopo <- readxl::read_excel("D:/UNIVERSIDAD/2_2021/MODELACION_AMBIENTAL/poopo.xlsx")
g <-
  ggplot(poopo, aes(x = Año, y = AL,
                   color = AL)) +
  labs(x = "Año", y = "AL") +
  scale_color_brewer(palette = "Dark2", guide = "none")

g + geom_boxplot()

## Warning: Continuous x aesthetic -- did you forget aes(group=...)?

## Warning: Removed 27 rows containing non-finite values (stat_boxplot).

###grafica de densidad

poopo <- readxl::read_excel("D:/UNIVERSIDAD/2_2021/MODELACION_AMBIENTAL/poopo.xlsx")

ggplot(poopo, aes(PH, AL)) +
  geom_density_2d_filled(show.legend = FALSE) +
  coord_cartesian(expand = FALSE) +
  labs(x = "PH", x = "AL")

## Warning: Removed 27 rows containing non-finite values (stat_density2d_filled).