Aquest informe presenta els resultats de Caprabo al 2025.
En aquest informe explicarem un dataset recollit durant els 12 mesos de l’any.
Gener <- 5
Febrer <- 10
total <- Gener + Febrer
total
## [1] 15
A continuació tenim les dades dels deu primers cotxes.
data(cars)
head(cars, 10)
I ara, les dades de tot el dataset:
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
A continuació, mostrem un gràfic de dispersió amb les dades del nostre dataset de cotxes.
plot(cars)
Hem recopilat les dades de 50 persones que es mostren a continuació:
dades <- read.table(file = "mostra.txt",
header = TRUE,
sep = "\t",
dec = ",")
head(dades)
Quina és l’edat mitana d’aquestes persones?
mean(dades$Edat)
## [1] 130.1569
L’edat mitjana dels clients de Caprabo és 130.1568627 anys.
El següent gràfic mostra l’evolució del preu del bitcoin:
library(tidyverse)
bitcoin <- read.table("https://bit.ly/3dyZXbz", header = T)
bitcoin$date <- as.Date(bitcoin$date)
ggplot(bitcoin, aes(x = date, y = value)) +
geom_line() +
xlab("Evolució del preu del bitcoin") +
ylab("Dòlars")
Aquí al final, afegeixo més codi:
## [1] "Adéu"
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.