Skip to main content
se añadieron 55 caracteres en el cuerpo
Origen Enlace
user327285
  • 438
  • 2
  • 13

No estoy seguro si elEl formato por defecto de los repositorios de github muestrenno muestran los formatos deseados de las tablas de datos especializadas en R o rstudio aunque si podria servir usando Github Pages, pero tal vez estos pasos te ayuden. Necesitas crear 2 archivos, index.rmd e index.html luego te diriges a rstudio > knit > y ahí podrás generar el contenido html.

Estos ejemplos te pueden servir, enEn el archivo .rmd:

---
output:
  html_document
---


Cargar librerias necesarias

```{r echo=TRUE}
#Load the libraries, if you don't have the library installed, run the following command per library:
#install.packages("dplyr")
library(data.table)
library(dplyr)
library(formattable)
library(DT) 


## Establecer datos y formato

```{r}
# Conjunto de datos: https://data.austintexas.gov/City-Government/Imagine-Austin-Indicators/apwj-7zty/data

austinData= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/Austin/Imagine_Austin_Indicators.csv', data.table=FALSE, header = TRUE, stringsAsFactors = FALSE)

# formatear tabla
i1 <- austinData %>%
  filter(`Indicator Name` %in% 
           c('Prevalence of Obesity', 'Prevalence of Tobacco Use', 
             'Prevalence of Cardiovascular Disease', 'Prevalence of Diabetes')) %>%
  select(c(`Indicator Name`, `2011`, `2012`, `2013`, `2014`, `2015`, `2016`)) %>%
  mutate (Average = round(rowMeans(
    cbind(`2011`, `2012`, `2013`, `2014`, `2015`, `2016`), na.rm=T),2), 
    `Improvement` = round((`2011`-`2016`)/`2011`*100,2))

Mas información sobre tablas en R (ingles):

No estoy seguro si el formato por defecto de los repositorios de github muestren los formatos deseados, pero tal vez estos pasos te ayuden. Necesitas crear 2 archivos, index.rmd e index.html luego te diriges a rstudio > knit > y ahí podrás generar el contenido html.

Estos ejemplos te pueden servir, en el archivo .rmd:

---
output:
  html_document
---


Cargar librerias necesarias

```{r echo=TRUE}
#Load the libraries, if you don't have the library installed, run the following command per library:
#install.packages("dplyr")
library(data.table)
library(dplyr)
library(formattable)
library(DT) 


## Establecer datos y formato

```{r}
# Conjunto de datos: https://data.austintexas.gov/City-Government/Imagine-Austin-Indicators/apwj-7zty/data

austinData= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/Austin/Imagine_Austin_Indicators.csv', data.table=FALSE, header = TRUE, stringsAsFactors = FALSE)

# formatear tabla
i1 <- austinData %>%
  filter(`Indicator Name` %in% 
           c('Prevalence of Obesity', 'Prevalence of Tobacco Use', 
             'Prevalence of Cardiovascular Disease', 'Prevalence of Diabetes')) %>%
  select(c(`Indicator Name`, `2011`, `2012`, `2013`, `2014`, `2015`, `2016`)) %>%
  mutate (Average = round(rowMeans(
    cbind(`2011`, `2012`, `2013`, `2014`, `2015`, `2016`), na.rm=T),2), 
    `Improvement` = round((`2011`-`2016`)/`2011`*100,2))

Mas información sobre tablas en R (ingles):

El formato por defecto de los repositorios de github no muestran los formatos deseados de las tablas de datos especializadas en R o rstudio aunque si podria servir usando Github Pages, tal vez estos pasos te ayuden. Necesitas crear 2 archivos, index.rmd e index.html luego te diriges a rstudio > knit > y ahí podrás generar el contenido html.

En el archivo .rmd:

---
output:
  html_document
---


Cargar librerias necesarias

```{r echo=TRUE}
#Load the libraries, if you don't have the library installed, run the following command per library:
#install.packages("dplyr")
library(data.table)
library(dplyr)
library(formattable)
library(DT) 


## Establecer datos y formato

```{r}
# Conjunto de datos: https://data.austintexas.gov/City-Government/Imagine-Austin-Indicators/apwj-7zty/data

austinData= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/Austin/Imagine_Austin_Indicators.csv', data.table=FALSE, header = TRUE, stringsAsFactors = FALSE)

# formatear tabla
i1 <- austinData %>%
  filter(`Indicator Name` %in% 
           c('Prevalence of Obesity', 'Prevalence of Tobacco Use', 
             'Prevalence of Cardiovascular Disease', 'Prevalence of Diabetes')) %>%
  select(c(`Indicator Name`, `2011`, `2012`, `2013`, `2014`, `2015`, `2016`)) %>%
  mutate (Average = round(rowMeans(
    cbind(`2011`, `2012`, `2013`, `2014`, `2015`, `2016`), na.rm=T),2), 
    `Improvement` = round((`2011`-`2016`)/`2011`*100,2))

Mas información sobre tablas en R (ingles):

Origen Enlace
user327285
  • 438
  • 2
  • 13

No estoy seguro si el formato por defecto de los repositorios de github muestren los formatos deseados, pero tal vez estos pasos te ayuden. Necesitas crear 2 archivos, index.rmd e index.html luego te diriges a rstudio > knit > y ahí podrás generar el contenido html.

Estos ejemplos te pueden servir, en el archivo .rmd:

---
output:
  html_document
---


Cargar librerias necesarias

```{r echo=TRUE}
#Load the libraries, if you don't have the library installed, run the following command per library:
#install.packages("dplyr")
library(data.table)
library(dplyr)
library(formattable)
library(DT) 


## Establecer datos y formato

```{r}
# Conjunto de datos: https://data.austintexas.gov/City-Government/Imagine-Austin-Indicators/apwj-7zty/data

austinData= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/Austin/Imagine_Austin_Indicators.csv', data.table=FALSE, header = TRUE, stringsAsFactors = FALSE)

# formatear tabla
i1 <- austinData %>%
  filter(`Indicator Name` %in% 
           c('Prevalence of Obesity', 'Prevalence of Tobacco Use', 
             'Prevalence of Cardiovascular Disease', 'Prevalence of Diabetes')) %>%
  select(c(`Indicator Name`, `2011`, `2012`, `2013`, `2014`, `2015`, `2016`)) %>%
  mutate (Average = round(rowMeans(
    cbind(`2011`, `2012`, `2013`, `2014`, `2015`, `2016`), na.rm=T),2), 
    `Improvement` = round((`2011`-`2016`)/`2011`*100,2))

Mas información sobre tablas en R (ingles):