Requerimientos Nutricionales del Maiz

Bibliotecas:

Code

library(readxl)
library(tidyverse)
library(janitor)
library(ggplot2)
library(plotly)
library(treemap)
library(moments)
library(htmlwidgets)

Tabla requerimientos nutricionales del maiz

Code

tabla_r_nutri_maiz <- read_excel("requerimientos_nutricionales.xlsx") %>% 
  clean_names()

tabla_r_nutri_maiz

Grafico

Code

Grafic_1 <- 
ggplotly(
tabla_r_nutri_maiz %>% 
ggplot(aes(x = reorder(nutriente, cantidad_kg_tn_grano), y = cantidad_kg_tn_grano)) +
  geom_col(color = "black", fill = "dodgerblue2") +
  coord_flip() +
  labs(
    x = "nutriente",
    y = "Cantidad Kg/Tn grano",
    title = "Requerimientos nutricionales del cultivo de maiz",
    subtitle = "Elaborado por Diego Toscano"
  ) +
  theme_bw()
)

Grafic_1

Code

# Suponiendo que 'Grafic_1' es tu gráfico interactivo
# Reemplaza 'grafico_interactivo' con el nombre de tu gráfico interactivo
grafico_interactivo <- Grafic_1

# Guardar el gráfico interactivo como HTML en la ruta especificada
saveWidget(grafico_interactivo, "C:/Users/EQUIPO/OneDrive/Documents/UdeA/Diego (1)/05- Semestre 4/Edafología/TALLER FINAL/Grafico R/Grafic_1.html")